diff options
Diffstat (limited to 'plugins-scripts/check_ircd.pl')
-rwxr-xr-x | plugins-scripts/check_ircd.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/plugins-scripts/check_ircd.pl b/plugins-scripts/check_ircd.pl index 6d40cf5a..d869ae7b 100755 --- a/plugins-scripts/check_ircd.pl +++ b/plugins-scripts/check_ircd.pl | |||
@@ -51,7 +51,6 @@ use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose); | |||
51 | use vars qw($PROGNAME); | 51 | use vars qw($PROGNAME); |
52 | use FindBin; | 52 | use FindBin; |
53 | use lib "$FindBin::Bin"; | 53 | use lib "$FindBin::Bin"; |
54 | use lib '@libexecdir@'; | ||
55 | use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); | 54 | use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); |
56 | 55 | ||
57 | # ----------------------------------------------------[ Function Prototypes ]-- | 56 | # ----------------------------------------------------[ Function Prototypes ]-- |
@@ -70,7 +69,9 @@ $ENV{'ENV'}=''; | |||
70 | # -----------------------------------------------------------------[ Global ]-- | 69 | # -----------------------------------------------------------------[ Global ]-- |
71 | 70 | ||
72 | $PROGNAME = "check_ircd"; | 71 | $PROGNAME = "check_ircd"; |
73 | my $NICK="ircd$$"; | 72 | # nickname shouldn't be longer than 9 chars, this might happen with large PIDs |
73 | # To prevent this, we cut of the part over 10000 | ||
74 | my $NICK="ircd" . $$ % 10000; | ||
74 | my $USER_INFO="monitor localhost localhost : "; | 75 | my $USER_INFO="monitor localhost localhost : "; |
75 | 76 | ||
76 | # -------------------------------------------------------------[ connection ]-- | 77 | # -------------------------------------------------------------[ connection ]-- |
@@ -182,10 +183,10 @@ MAIN: | |||
182 | 183 | ||
183 | if ($opt_V) { | 184 | if ($opt_V) { |
184 | print_revision($PROGNAME,'@NP_VERSION@'); | 185 | print_revision($PROGNAME,'@NP_VERSION@'); |
185 | exit $ERRORS{'OK'}; | 186 | exit $ERRORS{'UNKNOWN'}; |
186 | } | 187 | } |
187 | 188 | ||
188 | if ($opt_h) {print_help(); exit $ERRORS{'OK'};} | 189 | if ($opt_h) {print_help(); exit $ERRORS{'UNKNOWN'};} |
189 | 190 | ||
190 | ($opt_H) || ($opt_H = shift @ARGV) || usage("Host name/address not specified\n"); | 191 | ($opt_H) || ($opt_H = shift @ARGV) || usage("Host name/address not specified\n"); |
191 | my $remotehost = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/); | 192 | my $remotehost = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/); |