use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.yoursite.com/');
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n";
}
---
David Carter
[EMAIL PROTECTED]
> -----Original Message-----
> From: Bill Morris [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 22, 2002 8:36 AM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: Re: LWP for Https Site Using Activestate Perl
>
> I've already installed Crypt::SSLeay. That is why I would like a
> sample script to check the installation to be sure it works
> and then I will know how to go about writing my own
> automated check for our servers.
>
> Bill Morris
>
> Bill Morris ([EMAIL PROTECTED])
> Network & Client Services
> North Carolina State University
> Webmaster/Computing Consultant
> Campus Box 7231
> 14 Peele Hall
> 10 Watauga Club Dr.
> Raleigh, NC 27695-7231
>
> >>> Doug Monroe <[EMAIL PROTECTED]> 08/21/02 02:37PM >>>
> Bill Morris wrote:
> >
> > Folks,
> >
> > Does anyone have a sample script for
> > checking SSL websites with Activestate Perl
> > on a Windows 2000 machine?
>
> C:\Perl\bin>ppm
> PPM interactive shell (2.1.5) - type 'help' for available commands.
> PPM> install Crypt::SSLeay
