Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my $DEFAULT_TIMEOUT = 60;

# hashref which holds targets
my $sitesToCheck;
     
sub loadConf {
}


sub checkNC {
   use Net::Netcat;
} 


sub checkHTTP {
   use LWP::UserAgent;
   my ($url, $timeout) = @_;
   #print "URL = $url\nTimeout = $timeout\n\n";
   return -1 unless $url && $timeout;
   my $r = HTTP::Request->new( 'HEAD', $url );
   my $ua = LWP::UserAgent->new();
   my $res = $ua->request($r);
   return $res->is_success;
   #die Dumper( $res );
}

sub checkPing {
   my ($url,$type,$timeout) = @_;
   use Net::Ping;
   my $p = Net::Ping->new('icmp');
   return $p->ping( $url ) ? 1 : 0;
}   

sub runTest {
   my $parameters = shift;
   my $result;
   if ( $parameters->{'type'} eq 'lwp' ) {
      $result = &checkHTTP( $parameters->{'url'}, $parameters->{'timeout'} ? $parameters->{'timeout'} : $DEFAULT_TIMEOUT );
   } elsif ( $parameters->{'type'} eq 'ping' ) {
      $result = checkPing( $parameters->{'url'}, $parameters->{'timeout'} ? $parameters->{'timeout'} : $DEFAULT_TIMEOUT );
   }
   return $result;
}

my $login = (getpwuid $>);
die "This script must be run as root\n" if $login ne 'root';

my $result;
foreach my $testToRun( keys %$sitesToCheck ) {
   $result = &runTest( $sitesToCheck->{$testToRun} );
   print "Results for $testToRun " . ( $result ? "is" : "is not" ) . " ok\n";
}