My guess is LWP by default sends requests to port 80.  
There must be a method to specify a different port...

The request string where you specified the url...

my $req = new HTTP::Request('GET', 'https://www.someserver.com');

...just get's added the the http header inside the tcp 
payload and interpreted by the http daemon on port 80.

-- 
Jack Varga    SMTS              |       [EMAIL PROTECTED] 
Circadence Corporation          |       303.413.8800  x 1082    
4888 Perl East Circle           |       Boulder, Colorado       80301


> -----Original Message-----
> From: Frank Belfie [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, March 08, 2001 2:20 PM
> To: [EMAIL PROTECTED]
> Subject: PLease help! Using LWP to check to see if Secure Server is
> running
> 
> 
> 
> 
> 
> 
> 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]
> 
______________________________________________________________________
OpenSSL Project                                 http://www.openssl.org
User Support Mailing List                    [EMAIL PROTECTED]
Automated List Manager                           [EMAIL PROTECTED]

Reply via email to