From 44a321cb8a42d6c0ea2d96a1086a17f2134c89cc Mon Sep 17 00:00:00 2001
From: Ethan Galstad <egalstad@users.sourceforge.net>
Date: Thu, 28 Feb 2002 06:42:51 +0000
Subject: Initial revision

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c
---
 plugins-scripts/utils.pm.in | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 plugins-scripts/utils.pm.in

(limited to 'plugins-scripts/utils.pm.in')

diff --git a/plugins-scripts/utils.pm.in b/plugins-scripts/utils.pm.in
new file mode 100644
index 00000000..361bfe99
--- /dev/null
+++ b/plugins-scripts/utils.pm.in
@@ -0,0 +1,38 @@
+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();
+
+$TIMEOUT = 15;
+%ERRORS=('UNKNOWN'=>-1,'OK'=>0,'WARNING'=>1,'CRITICAL'=>2);
+
+sub print_revision ($$) {
+	my $commandName = shift;
+	my $pluginRevision = shift;
+	$pluginRevision =~ s/^\$Revision: //;
+	$pluginRevision =~ s/ \$\s*$//;
+	print "$commandName (@PACKAGE@ @VERSION@) $pluginRevision\n";
+	print "@WARRANTY@";
+}
+
+sub support () {
+	my $support='@SUPPORT@';
+	$support =~ s/@/\@/g;
+	$support =~ s/\\n/\n/g;
+	print $support;
+}
+
+sub usage {
+	my $format=shift;
+	printf($format,@_);
+	exit $ERRORS{'UNKNOWN'};
+}
+
+1;
-- 
cgit v1.2.3