Website Connectivity Script

[n3tw0rkadm1n1strat0r]

Does anyone know of a script that will check to see if a website is up? Not a script that will just ping the website, because that just says if the server is up, but the website itself...

 

[MillerH]

Use LWP::Simple to just get a page from the website. It has methods for text for success and error:

http://search.cpan.org/search?query=LWP::Simple

 

[n3tw0rkadm1n1strat0r]

Ok, so I found this...

#!C:\Perl\bin\perl.exe

perl -MLWP::Simple -e 'getprint "[URL unfurl="true"]http://www.yahoo.com/"'[/URL]

 use LWP::Simple;
 $content = get("[URL unfurl="true"]http://www.yahoo.com/");[/URL]
 die "Couldn't get it!" unless defined $content;

 if (mirror("[URL unfurl="true"]http://www.yahoo.com/",[/URL] "foo") == RC_NOT_MODIFIED) {
     ...
 }

 if (is_success(getprint("[URL unfurl="true"]http://www.yahoo.com/")))[/URL] {
     ...
 }

But nothing happens when I run it...

 

[n3tw0rkadm1n1strat0r]

Here is the syntax errors I saw when running form the command line:

syntax error at C:\Documents and Settings\ekrengel\Desktop\PerlWebsiteCheck.pl l
ine 3, near "MLWP::Simple -e "
"use" not allowed in expression at C:\Documents and Settings\ekrengel\Desktop\Pe
rlWebsiteCheck.pl line 5, near ""
syntax error at C:\Documents and Settings\ekrengel\Desktop\PerlWebsiteCheck.pl l
ine 10, near "..."
Execution of C:\Documents and Settings\ekrengel\Desktop\PerlWebsiteCheck.pl abor
ted due to compilation errors.

 

[n3tw0rkadm1n1strat0r]

Ok I just found a lot better script for this:

http://www.codeproject.com/perl/checkwebsite.asp

This should work fine.

 

[MillerH]

Good deal.

Yes, this script simply uses LWP::UserAgent. Which is the more advanced module in the LWP package.