this repo has no description
Merge pull request #10 from websages/update-user-agent
Update user agent string
authored by
Stephen Yeargin
and committed by
GitHub
f681df20
dc63d467
+2
-1
+2
-1
htdocs/irclink/index.cgi
+2
-1
htdocs/irclink/index.cgi
···
16
16
if ( $cgi->param( 'user' ) && $cgi->param( 'url' ) ) {
17
17
my $user = $cgi->param( 'user' );
18
18
my $url = $cgi->param( 'url' );
19
+
my $agentString = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.16; rv:84.0) Gecko/20100101 Firefox/84.0';
19
20
20
21
my $agent = LWP::UserAgent->new();
21
-
$agent->agent( 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.17) Gecko/20110422 Ubuntu/8.04 (hardy) Firefox/3.6.17' );
22
+
$agent->agent( $agentString );
22
23
23
24
my $response = $agent->get( $url );
24
25
if($response->{'_rc'} eq "302"){