net-mgmt/nagios-plugins/files/patch-plugins-scripts_check__ircd.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--- plugins-scripts/check_ircd.pl.orig	2015-07-30 21:40:06 UTC
+++ plugins-scripts/check_ircd.pl
@@ -67,6 +67,7 @@ sub bindRemote ($$);
 $ENV{'PATH'}='@TRUSTED_PATH@';
 $ENV{'BASH_ENV'}=''; 
 $ENV{'ENV'}='';
+$ENV{'CDPATH'} = "";
 
 # -----------------------------------------------------------------[ Global ]--
 
@@ -154,7 +155,7 @@ sub bindRemote ($$)
 	    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";