plugins-scripts/utils.pm.in

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