Fix check_ircd binding to wrong interface (#668778)

1 files changed, 5 insertions, 16 deletions

diff --git a/plugins-scripts/check_ircd.pl b/plugins-scripts/check_ircd.pl
index cc730cff..3fbce2e4 100755
--- a/plugins-scripts/check_ircd.pl
+++ b/plugins-scripts/check_ircd.pl
@@ -59,7 +59,7 @@ use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
 sub print_help ();
 sub print_usage ();
 sub connection ($$$$);
-sub bindRemote ($$$);
+sub bindRemote ($$);
 
 # -------------------------------------------------------------[ Enviroment ]--
 
@@ -141,28 +141,20 @@ Perl Check IRCD plugin for Nagios
 
 # -------------------------------------------------------------[ bindRemote ]--
 
-sub bindRemote ($$$)
+sub bindRemote ($$)
 {
-        my ($in_remotehost, $in_remoteport, $in_hostname) = @_;
+        my ($in_remotehost, $in_remoteport) = @_;
         my $proto = getprotobyname('tcp');
         my $sockaddr;
-        my $this;
-        my $thisaddr = gethostbyname($in_hostname);
         my $that;
         my ($name, $aliases,$type,$len,$thataddr) = gethostbyname($in_remotehost);
-#       ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($in_hostname);
 
         if (!socket(ClientSocket,AF_INET, SOCK_STREAM, $proto)) {
             print "IRCD UNKNOWN: Could not start socket ($!)\n";
             exit $ERRORS{"UNKNOWN"};
         }
         $sockaddr = 'S n a4 x8';
-        $this = pack($sockaddr, AF_INET, 0, $thisaddr);
         $that = pack($sockaddr, AF_INET, $in_remoteport, $thataddr);
-        if (!bind(ClientSocket, $this)) {
-            print "IRCD UNKNOWN: Could not bind socket ($!)\n";
-            exit $ERRORS{"UNKNOWN"};
-        }
         if (!connect(ClientSocket, $that)) { 
             print "IRCD UNKNOWN: Could not connect socket ($!)\n";
             exit $ERRORS{"UNKNOWN"};
@@ -221,13 +213,10 @@ MAIN:
         
         alarm($TIMEOUT);
 
-        chomp($hostname = `/bin/hostname`);
-        $hostname = $1 if ($hostname =~ /([-.a-zA-Z0-9]+)/);
         my ($name, $alias, $proto) = getprotobyname('tcp');
-        print "MAIN(debug): hostname = $hostname\n" if $verbose;
 
-        print "MAIN(debug): binding to remote host: $remotehost -> $remoteport -> $hostname\n" if $verbose;
-        my $ClientSocket = &bindRemote($remotehost,$remoteport,$hostname);
+        print "MAIN(debug): binding to remote host: $remotehost -> $remoteport\n" if $verbose;
+        my $ClientSocket = &bindRemote($remotehost,$remoteport);
         
         print ClientSocket "NICK $NICK\nUSER $USER_INFO\n";