Sorry for the delayed response. Thanks a bunch Bill and Trevor!! This really does the work. It is much appreciated.
--- $Bill Luebkert <[EMAIL PROTECTED]> wrote: > Blip Sid wrote: > > > Hello, > > > > I would like to write a small script to login to > an > > external website (outside of company firewall). > The > > purpose is to ensure that connectivity is active > to > > this external web site for system monitoring > purpose. > > > > My question is what modules are best suited for > this. > > I am planning on using lwp. Are there others that > are > > better suited? If the website requires a login > with > > userid and pw, can this be accomadated as part of > the > > script. > > > > My hope is that one of the module allows me to > request > > a connection, and if not successful will print out > a > > "die" statement. > > > > I am looking for any bits of codes and tips to > > accomplish. Thanks again for the help. > > > use strict; > > use LWP; > use LWP::UserAgent; > use Data::Dumper; $Data::Dumper::Indent=1; > > my $url = "http://localhost/";; > > > my $ua = LWP::UserAgent->new or die "new UserAgent: > $!"; > > #$ua->agent('Mozilla/4.0'); > # fake Netscape client if necessary > > > my $req = new HTTP::Request 'HEAD', $url or die "new > Request: $!"; > my $res = $ua->request($req) or die "request: $!"; > > > if ($res->is_success) { > print Data::Dumper->Dump([$res], [qw(response)]) if > $debug; > > print "HEAD request to $url OK\n"; > > } else { > > print "Error on HEAD request to $url\n"; > } > > > > __END__ > > > > -- > ,-/- __ _ _ $Bill Luebkert > ICQ=14439852 > (_/ / ) // // DBE Collectibles > Mailto:[EMAIL PROTECTED] > / ) /--< o // // http://dbecoll.tripod.com/ > (Free site for Perl) > -/-' /___/_<_</_</_ Castle of Medieval Myth & > Magic http://www.todbe.com/ > > _______________________________________________ > Perl-Win32-Admin mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs __________________________________________________ Do You Yahoo!? LAUNCH - Your Yahoo! Music Experience http://launch.yahoo.com _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
