diff options
| author | Subhendu Ghosh <sghosh@users.sourceforge.net> | 2002-05-02 16:43:29 (GMT) |
|---|---|---|
| committer | Subhendu Ghosh <sghosh@users.sourceforge.net> | 2002-05-02 16:43:29 (GMT) |
| commit | becc0f34e60500798bd15bf5af6e4b8c52707d0a (patch) | |
| tree | c117e73085955568f57d4eb89f41640297796977 /plugins-scripts/check_disk_smb.pl | |
| parent | bbcaeb1db1666c606a3578d3d24f1618f8c9947c (diff) | |
| download | monitoring-plugins-becc0f34e60500798bd15bf5af6e4b8c52707d0a.tar.gz | |
fix for embedded perl
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@21 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/check_disk_smb.pl')
| -rwxr-xr-x | plugins-scripts/check_disk_smb.pl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/plugins-scripts/check_disk_smb.pl b/plugins-scripts/check_disk_smb.pl index d1b0b3d..9a66ed5 100755 --- a/plugins-scripts/check_disk_smb.pl +++ b/plugins-scripts/check_disk_smb.pl | |||
| @@ -14,13 +14,10 @@ | |||
| 14 | # Modified [warn] and [critical] parameters to accept format of nnn[M|G] to | 14 | # Modified [warn] and [critical] parameters to accept format of nnn[M|G] to |
| 15 | # allow setting of limits in MBytes or GBytes. Percentage settings for large | 15 | # allow setting of limits in MBytes or GBytes. Percentage settings for large |
| 16 | # drives is a pain in the butt | 16 | # drives is a pain in the butt |
| 17 | 17 | # 2-May-2002 - SGhosh fix for embedded perl | |
| 18 | BEGIN { | 18 | # |
| 19 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | 19 | # $Id$ |
| 20 | $runtimedir = $1; | 20 | # |
| 21 | $PROGNAME = $2; | ||
| 22 | } | ||
| 23 | } | ||
| 24 | 21 | ||
| 25 | require 5.004; | 22 | require 5.004; |
| 26 | use POSIX; | 23 | use POSIX; |
| @@ -28,7 +25,8 @@ use strict; | |||
| 28 | use Getopt::Long; | 25 | use Getopt::Long; |
| 29 | use vars qw($opt_V $opt_h $opt_H $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $verbose); | 26 | use vars qw($opt_V $opt_h $opt_H $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $verbose); |
| 30 | use vars qw($PROGNAME); | 27 | use vars qw($PROGNAME); |
| 31 | use lib $main::runtimedir; | 28 | use FindBin; |
| 29 | use lib "$FindBin::Bin"; | ||
| 32 | use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); | 30 | use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); |
| 33 | 31 | ||
| 34 | sub print_help (); | 32 | sub print_help (); |