plugins-scripts/utils.pm.in

   1 # Utility drawer for Nagios plugins.
   2 # $Id$
   3 #
   4 # $Log$
   5 # Revision 1.5  2002/10/30 05:07:29  sghosh
   6 # monitor mailq
   7 #
   8 # Revision 1.4  2002/05/27 02:01:09  sghosh
   9 #  new var - smbclient
  10 #
  11 # Revision 1.3  2002/05/10 03:49:22  sghosh
  12 # added programs to autoconf
  13 #
  14 # Revision 1.2  2002/05/08 05:10:35  sghosh
  15 #  is_hostname added, update CODES to POSIX
  16 #
  17 #
  18 package utils;
  19
  20 require Exporter;
  21 @ISA = qw(Exporter);
  22 @EXPORT_OK = qw($TIMEOUT %ERRORS &print_revision &support &usage);
  23
  24 #use strict;
  25 #use vars($TIMEOUT %ERRORS);
  26 sub print_revision ($$);
  27 sub usage;
  28 sub support();
  29 sub is_hostname;
  30
  31 ## updated by autoconf
  32 $PATH_TO_RPCINFO = "@PATH_TO_RPCINFO@" ;
  33 $PATH_TO_NTPDATE = "@PATH_TO_NTPDATE@" ;
  34 $PATH_TO_NTPDC   = "@PATH_TO_NTPDC@" ;
  35 $PATH_TO_LMSTAT  = "@PATH_TO_LMSTAT@" ;
  36 $PATH_TO_SMBCLIENT = "@PATH_TO_SMBCLIENT@" ;
  37 $PATH_TO_MAILQ   = "@PATH_TO_MAILQ@";
  38
  39 ## common variables
  40 $TIMEOUT = 15;
  41 %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
  42
  43 ## utility subroutines
  44 sub print_revision ($$) {
  45         my $commandName = shift;
  46         my $pluginRevision = shift;
  47         $pluginRevision =~ s/^\$Revision: //;
  48         $pluginRevision =~ s/ \$\s*$//;
  49         print "$commandName (@PACKAGE@ @VERSION@) $pluginRevision\n";
  50         print "@WARRANTY@";
  51 }
  52
  53 sub support () {
  54         my $support='@SUPPORT@';
  55         $support =~ s/@/\@/g;
  56         $support =~ s/\\n/\n/g;
  57         print $support;
  58 }
  59
  60 sub usage {
  61         my $format=shift;
  62         printf($format,@_);
  63         exit $ERRORS{'UNKNOWN'};
  64 }
  65
  66 sub is_hostname {
  67         my $host1 = shift;
  68         if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z][-a-zA-Z0-9]+(\.[a-zA-Z][-a-zA-Z0-9]+)*)$/) {
  69                 return 1;
  70         }else{
  71                 return 0;
  72         }
  73 }
  74
  75 1;