Folks, I wrote some Perl scripts that connects to an HTTP server and determines the availability of a web page.. This has been working fine for about six months. All of the sudden the script stopped working and I made NO change.
Script snippet:
$ua = LWP::UserAgent->new;
$ua->agent("" . $ua->agent);
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",autosave => 1));
print "Checking $url/login.jsp......" if $dbug;
push @TSLOG, "Checking $url/login.jsp......";
$req = HTTP::Request->new(GET => "$url/login.jsp");
$req->authorization_basic($pnuname, $pnpass);
@step1 = $ua->request($req)->as_string;
print "Step1-->$step1[0]\n\n" if $dbug;
if ($step1[0] =~ /<form name=\"LoginForm\"/) {
print "Success\n" if $dbug;
push @TSLOG, "Success\n";
$CURRSTAT{$url} = "U";
} else {
print "Failed\n" if $dbug;
push @TSLOG, "Failed\n";
$CURRSTAT{$url} = "D";
return;
}
Ouput now...
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking placenet.xxx.com for cookies
HTTP::Cookies::add_cookie_header: Checking .xxx.com for cookies
HTTP::Cookies::add_cookie_header: Checking xxx.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET
https://placenet.xxx.com:443/sjprdcell/steppingstone/login.jsp
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
Any thoughts?
David M. Funk
President/CEO
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions
Trinity Solutions
604 Cassandra Dr.
Cranberry Twp., PA 16066
Phone: 724-316-0721
Fax: 724-772-7889
email: [EMAIL PROTECTED]
<<attachment: winmail.dat>>
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
