summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/utils.pm.in
diff options
context:
space:
mode:
authorEthan Galstad <egalstad@users.sourceforge.net>2002-02-28 06:42:51 (GMT)
committerEthan Galstad <egalstad@users.sourceforge.net>2002-02-28 06:42:51 (GMT)
commit44a321cb8a42d6c0ea2d96a1086a17f2134c89cc (patch)
treea1a4d9f7b92412a17ab08f34f04eec45433048b7 /plugins-scripts/utils.pm.in
parent54fd5d7022ff2d6a59bc52b8869182f3fc77a058 (diff)
downloadmonitoring-plugins-44a321cb8a42d6c0ea2d96a1086a17f2134c89cc.tar.gz
Initial revision
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/utils.pm.in')
-rw-r--r--plugins-scripts/utils.pm.in38
1 files changed, 38 insertions, 0 deletions
diff --git a/plugins-scripts/utils.pm.in b/plugins-scripts/utils.pm.in
new file mode 100644
index 0000000..361bfe9
--- /dev/null
+++ b/plugins-scripts/utils.pm.in
@@ -0,0 +1,38 @@
1package utils;
2
3require Exporter;
4@ISA = qw(Exporter);
5@EXPORT_OK = qw($TIMEOUT %ERRORS &print_revision &support &usage);
6
7#use strict;
8#use vars($TIMEOUT %ERRORS);
9sub print_revision ($$);
10sub usage;
11sub support();
12
13$TIMEOUT = 15;
14%ERRORS=('UNKNOWN'=>-1,'OK'=>0,'WARNING'=>1,'CRITICAL'=>2);
15
16sub print_revision ($$) {
17 my $commandName = shift;
18 my $pluginRevision = shift;
19 $pluginRevision =~ s/^\$Revision: //;
20 $pluginRevision =~ s/ \$\s*$//;
21 print "$commandName (@PACKAGE@ @VERSION@) $pluginRevision\n";
22 print "@WARRANTY@";
23}
24
25sub support () {
26 my $support='@SUPPORT@';
27 $support =~ s/@/\@/g;
28 $support =~ s/\\n/\n/g;
29 print $support;
30}
31
32sub usage {
33 my $format=shift;
34 printf($format,@_);
35 exit $ERRORS{'UNKNOWN'};
36}
37
381;