mirror of
https://github.com/beard7n/bsdports.git
synced 2026-04-11 02:51:18 +02:00
20 lines
678 B
Perl
20 lines
678 B
Perl
--- ./plugins-scripts/check_ircd.pl.orig 2014-11-30 12:36:26.000000000 +0200
|
|
+++ ./plugins-scripts/check_ircd.pl 2015-03-17 14:57:35.234674000 +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";
|