Import Nagios Plugins site

Import the Nagios Plugins web site, Cronjobs, infrastructure scripts,
and configuration files.

1 files changed, 86 insertions, 0 deletions

diff --git a/web/attachments/40409-utils.pm.in.diff b/web/attachments/40409-utils.pm.in.diff
new file mode 100644
index 0000000..cb2ea12
--- /dev/null
+++ b/web/attachments/40409-utils.pm.in.diff
@@ -0,0 +1,86 @@
+*** utils.pm.in.orig    Wed Jan 22 15:39:22 2003
+--- utils.pm.in Wed Jan 22 16:39:06 2003
+***************
+*** 19,25 ****
+  
+  require Exporter;
+  @ISA = qw(Exporter);
+! @EXPORT_OK = qw($TIMEOUT %ERRORS &print_revision &support &usage);
+  
+  #use strict;
+  #use vars($TIMEOUT %ERRORS);
+--- 19,25 ----
+  
+  require Exporter;
+  @ISA = qw(Exporter);
+! @EXPORT_OK = qw($TIMEOUT %ERRORS &print_revision &support &usage &config_value &config_values);
+  
+  #use strict;
+  #use vars($TIMEOUT %ERRORS);
+***************
+*** 27,34 ****
+--- 27,38 ----
+  sub usage;
+  sub support();
+  sub is_hostname;
++ sub config_value ($);
++ sub config_values ($);
+  
+  ## updated by autoconf
++ $prefix = "@prefix@";
++ $sysconfdir  = "@sysconfdir@";
+  $PATH_TO_RPCINFO = "@PATH_TO_RPCINFO@" ;
+  $PATH_TO_NTPDATE = "@PATH_TO_NTPDATE@" ;
+  $PATH_TO_NTPDC   = "@PATH_TO_NTPDC@" ;
+***************
+*** 72,75 ****
+--- 76,124 ----
+        }
+  }
+  
++ ## subroutines to read nagios.cfg and return values of config items.
++ $parsedConfig = 0;
++ %configItems = {};
++ 
++ sub read_config {
++       my $configFile = "$sysconfdir/nagios.cfg";
++ 
++       return 1 if $parsedConfig;
++ 
++       if (! open CONFIG, "<$configFile") {
++               print "$configFile: $!\n";
++               return 0;
++       }
++ 
++       while (<CONFIG>) {
++               next unless /^\s*([^=\s]+)=(.*)$/;
++ 
++               if (defined(@{$configItems{$1}})) {
++                       $configItems{$1} = [@{$configItems{$1}}, $2];
++               } else {
++                       $configItems{$1} = [$2];
++               }
++       }
++       close CONFIG;
++ 
++       $parsedConfig = 1;
++       return 1;
++ }
++ 
++ ## Returns the value/values of a config item. If called in array context,
++ ## a list of values is returned, otherwise the first value of the item
++ ## is returned.  (Most Nagios config items have only one value, but some
++ ## such as cfg_file can be specified more than once.)
++ ##
++ ## ex: @cfg_files = &config_value('cfg_file');
++ ## ex: $resource_file = &config_value('resource_file');
++ sub config_value ($) {
++       my $key = shift;
++       return undef unless &read_config;
++       if (wantarray) {
++               return @{$configItems{$key}};
++       }
++       return $configItems{$key}->[0];
++ }
++ 
+  1;