Re: Monitor webserver status on all machines in a subnet

[Chady]

Just as Abigail has pointed out, you have to issue a request to the webserver to see if it is really running, and not just something listening on the port. ex:

require LWP::UserAgent;

my $ua = LWP::UserAgent->new(timeout => 10,  
                             agent   => 'subnet monitor'
                             );

my $request = HTTP::Request->new('HEAD', "http://perlmonks.org/");
my $contents = $ua->request($request); 

print $contents->{_rc} == 200 ? 
    "Webserver Up" :
    "Webserver Down";

Update: As for if the server is running on a different port, you might want to experiment with Net::Telnet

Possibly something like this:

sub check {
    my ($host, $port) = @_;
    my $telnet = new Net::Telnet (errmode=> 'return');
    my $return = $telnet->open(Host => $host, Port=> $port);
    unless ($return) {     
        print "Nothing running on port $port.\n";
                return;
    }

    my $res = $telnet->getline;
    $telnet->print("HEAD / HTTP/1.0\n\n");
    $res = $telnet->getline;
    if ($res =~ /200 OK/) {
        print "Webserver Up\n";
    } else {
        print "Webserver Down\n";
    }
    $telnet->close();
}