From bfa204a580a503a216cedbedd36586fb00458181 Mon Sep 17 00:00:00 2001
From: root <root@kremium>
Date: Fri, 18 Nov 2011 10:10:13 +0100
Subject: //Monitoring: add shinken configs

---
 Monitoring/plugins/utils.pm | 67 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 Monitoring/plugins/utils.pm

(limited to 'Monitoring/plugins/utils.pm')

diff --git a/Monitoring/plugins/utils.pm b/Monitoring/plugins/utils.pm
new file mode 100644
index 00000000..676a06fe
--- /dev/null
+++ b/Monitoring/plugins/utils.pm
@@ -0,0 +1,67 @@
+# Utility drawer for Nagios plugins.
+#
+# This will be deprecated soon. Please use Nagios::Plugin from CPAN
+# for new plugins
+
+package utils;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw($TIMEOUT %ERRORS &print_revision &support &usage);
+
+#use strict;
+#use vars($TIMEOUT %ERRORS);
+sub print_revision ($$);
+sub usage;
+sub support();
+sub is_hostname;
+
+## updated by autoconf
+$PATH_TO_RPCINFO = "/usr/bin/rpcinfo" ;
+$PATH_TO_LMSTAT  = "" ;
+$PATH_TO_SMBCLIENT = "/usr/bin/smbclient" ;
+$PATH_TO_MAILQ   = "/usr/bin/mailq";
+$PATH_TO_QMAIL_QSTAT = "";
+
+## common variables
+$TIMEOUT = 15;
+%ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
+
+## utility subroutines
+sub print_revision ($$) {
+	my $commandName = shift;
+	my $pluginRevision = shift;
+	print "$commandName v$pluginRevision (nagios-plugins 1.4.15)\n";
+	print "The nagios plugins come with ABSOLUTELY NO WARRANTY. You may redistribute\ncopies of the plugins under the terms of the GNU General Public License.\nFor more information about these matters, see the file named COPYING.\n";
+}
+
+sub support () {
+	my $support='Send email to nagios-users@lists.sourceforge.net if you have questions\nregarding use of this software. To submit patches or suggest improvements,\nsend email to nagiosplug-devel@lists.sourceforge.net.\nPlease include version information with all correspondence (when possible,\nuse output from the --version option of the plugin itself).\n';
+	$support =~ s/@/\@/g;
+	$support =~ s/\\n/\n/g;
+	print $support;
+}
+
+sub usage {
+	my $format=shift;
+	printf($format,@_);
+	exit $ERRORS{'UNKNOWN'};
+}
+
+sub is_hostname {
+	my $host1 = shift;
+	return 0 unless defined $host1;
+	if ($host1 =~ m/^[\d\.]+$/ && $host1 !~ /\.$/) {
+		if ($host1 =~ m/^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
+			return 1;
+		} else {
+			return 0;
+		}
+	} elsif ($host1 =~ m/^[a-zA-Z0-9][-a-zA-Z0-9]*(\.[a-zA-Z0-9][-a-zA-Z0-9]*)*\.?$/) {
+		return 1;
+	} else {
+		return 0;
+	}
+}
+
+1;
-- 
cgit v1.2.3