Folks,
I have a Perl script that uses LWP and connects to a web page via 443
SSL for availability
All of the sudden the script stopped working and of course I didn't change
anything.
The web guys told me they renewed the certificate. Could that be the reason it
is now failing?
I get a "Dr. Watson" like error now complaining about SSLEAY
Any way for me to make this work with the new cert?
Do I need to import the new cert and get rid of the old one? If so how?
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: ()
The information contained in this e-mail may be confidential and is intended
solely for the use of the named addressee.
Access, copying or re-use of the e-mail or any information contained therein by
any other person is not authorized.
If you are not the intended recipient please notify us immediately by returning
the e-mail to the originator.(17b)
|
