ports/net-mgmt/monitoring-plugins/files/patch-plugins-scripts__check_ircd.pl
2014-07-29 14:43:17 +00:00

19 lines
678 B
Perl

--- ./plugins-scripts/check_ircd.pl.orig 2014-07-06 19:55:03.000000000 +0200
+++ ./plugins-scripts/check_ircd.pl 2014-07-29 15:15:32.000000000 +0200
@@ -66,6 +66,7 @@
$ENV{'PATH'}='@TRUSTED_PATH@';
$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';
+$ENV{CDPATH} = "";
# -----------------------------------------------------------------[ Global ]--
@@ -153,7 +154,7 @@
print "IRCD UNKNOWN: Could not start socket ($!)\n";
exit $ERRORS{"UNKNOWN"};
}
- $sockaddr = 'S n a4 x8';
+ $sockaddr = 'x C n a4 x8';
$that = pack($sockaddr, AF_INET, $in_remoteport, $thataddr);
if (!connect(ClientSocket, $that)) {
print "IRCD UNKNOWN: Could not connect socket ($!)\n";