2 files changed, 350 insertions, 0 deletions

diff --git a/contrib/check_log2.pl b/contrib/check_log2.pl
new file mode 100644
index 00000000..befbf98d
--- /dev/null
+++ b/contrib/check_log2.pl
@@ -0,0 +1,185 @@
+#!/usr/bin/perl
+#
+# Log file regular expression detector for Nagios.
+# Written by Aaron Bostick (abostick@mydoconline.com)
+# Last modified: 05-02-2002
+#
+# Thanks and acknowledgements to Ethan Galstad for Nagios and the check_log
+# plugin this is modeled after.
+#
+# Usage: check_log2 -l <log_file> -s <seek_file> -p <pattern> [-n <negpattern>]
+#
+# Description:
+#
+# This plugin will scan arbitrary text files looking for regular expression 
+# matches.  The text file to scan is specified with <log_file>.
+# <log_seek_file> is a temporary file used to store the seek byte position
+# of the last scan.  This file will be created automatically on the first 
+# scan.  <pattern> can be any RE pattern that perl's s/// syntax accepte.  Be
+# forewarned that a bad pattern will send this script into never never land!
+#
+# Output:
+#
+# This plugin returns OK when a file is successfully scanned and no pattern
+# matches are found.  WARNING is returned when 1 or more patterns are found 
+# along with the pattern count and the line of the last pattern matched.
+# CRITICAL is returned when an error occurs, such as file not found, etc.
+#
+# Notes (paraphrased from check_log's notes):
+#
+#    1.  The "max_attempts" value for the service should be 1, as this
+#        will prevent Nagios from retrying the service check (the
+#        next time the check is run it will not produce the same results).
+#
+#    2.  The "notify_recovery" value for the service should be 0, so that
+#        Nagios does not notify you of "recoveries" for the check.  Since
+#        pattern matches in the log file will only be reported once and not
+#        the next time, there will always be "recoveries" for the service, even
+#        though recoveries really don't apply to this type of check.
+#
+#    3.  You *must* supply a different <log_Seek_file> for each service that
+#        you define to use this plugin script - even if the different services
+#        check the same <log_file> for pattern matches.  This is necessary
+#        because of the way the script operates.
+#
+# Examples:
+#
+# Check for error notices in messages
+#   check_log2 -l /var/log/messages -s ./check_log2.messages.seek -p 'err'
+#
+
+
+BEGIN {
+    if ($0 =~ s/^(.*?)[\/\\]([^\/\\]+)$//) {
+        $prog_dir = $1;
+        $prog_name = $2;
+    }
+}
+
+require 5.004;
+
+use lib $main::prog_dir;
+use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
+use Getopt::Long;
+
+sub print_usage ();
+sub print_version ();
+sub print_help ();
+
+    # Initialize strings
+    $log_file = '';
+    $seek_file = '';
+    $re_pattern = '';
+    $neg_re_pattern = '';
+    $pattern_count = 0;
+    $pattern_line = '';
+    $plugin_revision = '$Revision$ ';
+
+    # Grab options from command line
+    GetOptions
+    ("l|logfile=s"      => \$log_file,
+     "s|seekfile=s"     => \$seek_file,
+     "p|pattern=s"      => \$re_pattern,
+     "n|negpattern:s"   => \$neg_re_pattern,
+     "v|version"        => \$version,
+     "h|help"           => \$help);
+
+    !($version) || print_version ();
+    !($help) || print_help ();
+
+    # Make sure log file is specified
+    ($log_file) || usage("Log file not specified.\n");
+    # Make sure seek file is specified
+    ($seek_file) || usage("Seek file not specified.\n");
+    # Make sure re pattern is specified
+    ($re_pattern) || usage("Regular expression not specified.\n");
+
+    # Open log file
+    open LOG_FILE, $log_file || die "Unable to open log file $log_file: $!";
+
+    # Try to open log seek file.  If open fails, we seek from beginning of
+    # file by default.
+    if (open(SEEK_FILE, $seek_file)) {
+        chomp(@seek_pos = <SEEK_FILE>);
+        close(SEEK_FILE);
+
+        #  If file is empty, no need to seek...
+        if ($seek_pos[0] != 0) {
+            
+            # Compare seek position to actual file size.  If file size is smaller
+            # then we just start from beginning i.e. file was rotated, etc.
+            ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat(LOG_FILE);
+
+            if ($seek_pos[0] <= $size) {
+                seek(LOG_FILE, $seek_pos[0], 0);
+            }
+        }
+    }
+
+    # Loop through every line of log file and check for pattern matches.
+    # Count the number of pattern matches and remember the full line of 
+    # the most recent match.
+    while (<LOG_FILE>) {
+        if ($neg_re_pattern) {
+            if ((/$re_pattern/) && !(/$neg_re_pattern/)) {
+                $pattern_count += 1;
+                $pattern_line = $_;
+            }
+        } elsif (/$re_pattern/) {
+                $pattern_count += 1;
+                $pattern_line = $_;
+        }
+    }
+
+    # Overwrite log seek file and print the byte position we have seeked to.
+    open(SEEK_FILE, "> $seek_file") || die "Unable to open seek count file $seek_file: $!";
+    print SEEK_FILE tell(LOG_FILE);
+
+    # Close seek file.
+    close(SEEK_FILE);
+    # Close the log file.
+    close(LOG_FILE);
+
+    # Print result and return exit code.
+    if ($pattern_count) {
+        print "($pattern_count): $pattern_line";
+        exit $ERRORS{'WARNING'};
+    } else {
+        print "OK - No matches found.\n";
+        exit $ERRORS{'OK'};
+    }
+
+#
+# Subroutines
+#
+
+sub print_usage () {
+    print "Usage: $prog_name -l <log_file> -s <log_seek_file> -p <pattern> [-n <negpattern>]\n";
+    print "Usage: $prog_name [ -v | --version ]\n";
+    print "Usage: $prog_name [ -h | --help ]\n";
+}
+
+sub print_version () {
+    print_revision($prog_name, $plugin_revision);
+    exit $ERRORS{'OK'};
+}
+
+sub print_help () {
+    print_revision($prog_name, $plugin_revision);
+    print "\n";
+    print "Scan arbitrary log files for regular expression matches.\n";
+    print "\n";
+    print_usage();
+    print "\n";
+    print "-l, --logfile=<logfile>\n";
+    print "    The log file to be scanned\n";
+    print "-s, --seekfile=<seekfile>\n";
+    print "    The temporary file to store the seek position of the last scan\n";
+    print "-p, --pattern=<pattern>\n";
+    print "    The regular expression to scan for in the log file\n";
+    print "-n, --negpattern=<negpattern>\n";
+    print "    The regular expression to skip in the log file\n";
+    print "\n";
+    support();
+    exit $ERRORS{'OK'};
+}
diff --git a/contrib/check_vcs.pl b/contrib/check_vcs.pl
new file mode 100644
index 00000000..7ee00728
--- /dev/null
+++ b/contrib/check_vcs.pl
@@ -0,0 +1,165 @@
+#!/usr/bin/perl
+#
+# Veritas Cluster System monitor for Nagios.
+# Written by Aaron Bostick (abostick@mydoconline.com)
+# Last modified: 05-22-2002
+#
+# Usage: check_vcs {-g <vcs_group> | -r <vcs_resource> } -s <vcs_system> [-n]
+#
+# Description:
+#
+# This plugin is just a perl wrapper to the vcs commands hagrp and hares. 
+# You specify what group/resource and system you want the status for, and
+# the plugin returns a status code based on the output of either hagrp or 
+# hares.
+#
+# Normal hagrp/hares status codes are ONLINE and OFFLINE depending on where the 
+# cluster service currently lives.  I have added an option, -n, which makes
+# the expected state to be OFFLINE rather than ONLINE so you can run the 
+# plugin on both sides of the cluster and will receive critical alerts when
+# the cluster fails over i.e.  a proper failover will make the standby node
+# go from OFFLINE to ONLINE for the group, so an ONLINE status should alert
+# you! (You do want to know when the cluster fails over, right? :))
+#
+# Output:
+#
+# This plugin returns OK when hagrp/hares -state <grp> -sys <system> returns 
+# ONLINE (or OFFLINE if -n is specified).  Any other hagrp/hares string returns 
+# CRITICAL...  Would a WARNING ever be justified???  UNKNOWN is returned if 
+# hagrp/hares cannot run for some reason.
+# 
+# Examples:
+#
+# Make sure group oracle is ONLINE on server dbserver1:
+#   check_vcs -g oracle -s dbserver1
+#
+# Make sure group oracle is OFFLINE on server dbserver2:
+#   check_vcs -g oracle -s dbserver2 -n
+#
+# Make sure resource oraip is ONLINE on server dbserver1:
+#   check_vcs -r oraip -s dbserver1
+#
+# Make sure resource oraip is OFFLINE on server dbserver2:
+#   check_vcs -r oraip -s dbserver2 -n
+#
+
+
+BEGIN {
+    if ($0 =~ s/^(.*?)[\/\\]([^\/\\]+)$//) {
+        $prog_dir = $1;
+        $prog_name = $2;
+    }
+}
+
+require 5.004;
+
+use lib $main::prog_dir;
+use utils qw($TIMEOUT %ERRORS &print_revision &support);
+use Getopt::Long;
+
+sub print_usage ();
+sub print_version ();
+sub print_help ();
+
+    # Initialize strings
+    $vcs_bin = '/opt/VRTSvcs/bin';
+    $vcs_command = '';
+    $vcs_arg = '';
+    $vcs_group = '';
+    $vcs_resource = '';
+    $vcs_system = '';
+    $vcs_negate = '';
+    $vcs_result = '';
+    $vcs_expected_result = 'ONLINE';
+    $plugin_revision = '$Revision$ ';
+
+    # Grab options from command line
+    GetOptions
+    ("g|group:s"        => \$vcs_group,
+     "r|resouce:s"      => \$vcs_resource,
+     "s|system=s"       => \$vcs_system,
+     "n|negate"         => \$vcs_negate,
+     "v|version"        => \$version,
+     "h|help"           => \$help);
+ 
+    (!$version) || print_version ();
+    (!$help) || print_help ();
+    (!$vcs_negate) || ($vcs_expected_result = 'OFFLINE');
+
+    # Make sure group and resource is not specified
+    !($vcs_group && $vcs_resource) || usage("Please specify either a group or a resource, but not both.\n");
+    # Make sure group or resource is specified
+    ($vcs_group || $vcs_resource) || usage("HA group or resource not specified.\n");
+    # Make sure system is specified
+    ($vcs_system) || usage("HA system not specified.\n");
+
+    # Specify proper command
+    if ($vcs_group) {
+        $vcs_command = 'hagrp';
+        $vcs_arg = $vcs_group;
+    } else {
+        $vcs_command = 'hares';
+        $vcs_arg = $vcs_resource;
+    }
+
+    # Run command and save output
+    $vcs_result = `$vcs_bin/$vcs_command -state $vcs_arg -sys $vcs_system`;
+    chomp ($vcs_result);
+
+    # If empty result, return UNKNOWN
+    if (!$vcs_result) {
+        print "UNKNOWN: Problem running $vcs_command...\n";
+        exit $ERRORS{'UNKNOWN'};
+    }
+        
+    # If result is expected, return OK
+    # If result is not expected, return CRITICAL
+    if ($vcs_result eq $vcs_expected_result) {
+        print "OK: $vcs_command $vcs_arg is $vcs_result\n";
+        exit $ERRORS{'OK'};
+    } else {
+        print "CRITICAL: $vcs_command $vcs_arg is $vcs_result\n";
+        exit $ERRORS{'CRITICAL'};
+    }
+        
+
+#
+# Subroutines
+#
+
+sub usage () {
+    print @_;
+    print_usage();
+    exit $ERRORS{'OK'};
+}
+
+sub print_usage () {
+    print "\nUsage: $prog_name { -g <vcs_group> | -r <vcs_resource> } -s <vcs_system> [-n]\n";
+    print "Usage: $prog_name [ -v | --version ]\n";
+    print "Usage: $prog_name [ -h | --help ]\n";
+}
+
+sub print_version () {
+    print_revision($prog_name, $plugin_revision);
+    exit $ERRORS{'OK'};
+}
+
+sub print_help () {
+    print_revision($prog_name, $plugin_revision);
+    print "\n";
+    print "Validate output from hagrp/hares command.\n";
+    print "\n";
+    print_usage();
+    print "\n";
+    print "-g, --group=<vcs_group>\n";
+    print "    The HA group to be validated\n";
+    print "-r, --resource=<vcs_resource>\n";
+    print "    The HA resource to be validated\n";
+    print "-s, --system=<vcs_system>\n";
+    print "    The HA system where the group/resource lives\n";
+    print "-n, --negate=<negate>\n";
+    print "    Set expected result to OFFLINE instead of ONLINE\n";
+    print "\n";
+    support();
+    exit $ERRORS{'OK'};
+}