plugins-scripts/utils.pm.in

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