Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;

use warnings;

# Currently three types of tests

# type: lwp

# url: site to test

# timeout: optional integer, number of seconds. defaults to 'default timeout'

#

# type: ping

# url: site to test

# timeout: optional integer, number of seconds. defaults to 'default timeout'

#

# type: netcat

# url: site to test

# port: port to test on

# timeout: optional integer, number of seconds. defaults to 'default timeout'

use Data::Dumper;

use FindBin;

use File::Spec;

# name of script directory, no trailing slash

my $MY_DIR = $FindBin::Bin;

# name of currently executing file

my $MY_NAME = $FindBin::Script;

my $configName = $MY_DIR . '/' . $MY_NAME . '.yaml';

# hashref which holds configuration

my $config;

# simply read the contents of YAML file $filename into

# hashref and return the hashref

sub loadConf {

   use YAML::Tiny;

   my $filename = shift;

   my $conf = YAML::Tiny->read( $filename );

   return $conf->[0];

}

# not used. May use it later, who knows.

sub saveConf {

   use YAML::Tiny;

   my ( $filename, $config ) = @_;

   my $yaml = YAML::Tiny->new( $config );

   $yaml->write( $filename );

}

# check using netcat

sub checkNetCat {

   my ($url, $port, $timeout ) = @_;

   my $netcat = `which nc`;

   chomp $netcat;

   unless ( $netcat ) {

      warn "Netcat not found, not testing\n";

      return 0;

   }

   $netcat = join( ' ', ($netcat, "-z -w $timeout", $url, $port ) );

   `$netcat`;

   return not $? >> 8;

} 

# this has only been tested on http and https, but with a little work

# could do echo, ftp

# will NOT work with some WordPress sites since it goes into

# infinite redirect loop

sub checkHTTP {

   use LWP::UserAgent; # probably should eval this in case not loaded

   my ($url, $timeout) = @_;

   # just getting HEAD, so small amount of data

   my $r = HTTP::Request->new( 'HEAD', $url );

   # new agent, make the request, return success

   my $ua = LWP::UserAgent->new();

   my $res = $ua->request($r);

   return $res->is_success;

}

# we're only using icmp. Probably could extend to other things, but

# netcat and lwp do them also, I think.

# basically a ping. Must be run as root.

sub checkPing {

   my ($url,$type,$timeout) = @_;

   use Net::Ping;

   # verify running as root

   my $login = (getpwuid $>);

   if ( $login ne 'root' ) {

      warn "This script must be run as root for ping type\n";

      return 0;

   }

   my $p = Net::Ping->new('icmp');

   return $p->ping( $url ) ? 1 : 0;

}   

# determines which test to run, runs it and returns results

sub runTest {

   my $parameters = shift;

   #die Dumper( $parameters );

   my $result;

   if ( $parameters->{'type'} eq 'lwp' ) {

      $result = &checkHTTP( $parameters->{'url'}, $parameters->{'timeout'} );

   } elsif ( $parameters->{'type'} eq 'ping' ) {

      $result = checkPing( $parameters->{'url'}, $parameters->{'timeout'} );

   } elsif ( $parameters->{'type'} eq 'netcat' ) {

      $result = checkNetCat( $parameters->{'url'}, $parameters->{'port'}, $parameters->{'timeout'} );

   } else {

      $result = 0;

   }

   return $result;

}

# just make up the flag file name in one place so we don't

# forget to do it everyplace it is needed

sub flagFileName {

   my $name = shift;

   return "/tmp/$name.down";

}

# this will put a flag file in /tmp/monitorNetwork which will control

# countdown in case of failure

# if the countdown is exceeded, it will report the status 

sub processFailure {

   my ( $name, $parameters ) = @_;

   print "Failed test for $name\n";

}

# we are up, so check for any flag file and unlink if found

sub cleanUp {

   my $name = shift;

   $name = &flagFileName( $name );

   unlink $name if -f $name;

}

#######################################################################

#                     Main Code

#######################################################################

# get the config file

$config = &loadConf( $configName );

# loop through each site to check

foreach my $testToRun( keys %{$config->{'sites to check'}} ) {

   # there is a faster way of doing this, but I don't remember it

   # you can merge two hashes, overwriting one with values if not existing in the other

   # I'll look it up, but for now

   foreach my $key ( keys %{$config->{'defaults'}} ) {

      $config->{'sites to check'}->{$testToRun}->{$key} = $config->{'defaults'}->{$key} unless defined $config->{'sites to check'}->{$testToRun}->{$key};

   }

   # run the test

   if ( &runTest( $config->{'sites to check'}->{$testToRun} ) ) {

      &cleanUp( $testToRun ); # success, clean up any old stuff

   } else { # failure, this is what we're here for

      &processFailure( $testToRun, $config->{'sites to check'}->{$testToRun} );

   }

}