mrguy123 has asked for the wisdom of the Perl Monks concerning the following question:
with the LWP::UserAgent. The code goes like this:http://www.GIDEONonline.net/loginx.php?user=metalib
The response page is as so:#!/usr/bin/perl use strict; use LWP::UserAgent; { my $ua = new LWP::UserAgent(); my $search_address = "http://www.GIDEONonline.net/loginx.php?user= +metalib"; #creating the request object my $req = new HTTP::Request ('POST', $search_address); #sending the request my $res = $ua->request($req); if (!($res->is_success)){ warn "Warning:".$res->message."\n"; } my $response = $res->headers_as_string(); my $response .= $res->content(); print "$response\n"; }
As far as I know, Javascript is not turned off (I retrieve similar pages that use javascript).<HTML> <HEAD> <SCRIPT LANGUAGE="JavaScript" SRC="js_lib/browser_check.js"></SCRIPT> <SCRIPT LANGUAGE="JavaScript"> function goThere() { if ( (is_nav && (is_major >= 6)) || (is_ie && (is_majo +r >=5)) ) { document.location.href = "/authx.php?user=meta +lib&browser_ok=" + 1; } else { document.location.href = "/authx.php?user=meta +lib&browser_ok=" + 0; } } </SCRIPT> </HEAD> <NOSCRIPT> <BR> <CENTER><B>Javascript must be turned on to access Gideon Onlin +e.</B></CENTER> </NOSCRIPT> <BODY BGCOLOR="#FFFFFF" onLoad="goThere()"> </BODY> </HTML>
2006-07-09 Retitled by Corion, as per Monastery guidelines
Original title: 'javascript'
|
|---|