use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request('GET', 'https://www.someserver.com');
my $res = $ua->request($req);
print $res->code."\n";
The return code is always 501 with secure servers, and 200 with non-secure.
Should this code work?
I know the ssl server is up and listening, yet I get the 501 code. All I need
this to do is see if it is still taking requests. I installed the openssl, and
all neccessary packages.
RedHat 7.0, Perl5.6.0..... Doesn't throw any errors?
Any help is very appreciated!
Thanks,
Frank Belfie
Datacomm Engineer
Commerce Bank, N.A.
[EMAIL PROTECTED]
______________________________________________________________________
OpenSSL Project http://www.openssl.org
User Support Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
