nagios-plugins-checkircd.patch

   1 #! /bin/sh -e
   2 ## 06_checkircd.dpatch by  <ultrotter@debian.org>
   3 ##
   4 ## All lines beginning with `## DP:' are a description of the patch.
   5 ## DP: No description.
   6
   7 if [ $# -lt 1 ]; then
   8     echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
   9     exit 1
  10 fi
  11
  12 [ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
  13 patch_opts="${patch_opts:--f --no-backup-if-mismatch} ${2:+-d $2}"
  14
  15 case "$1" in
  16     -patch) patch -p1 ${patch_opts} < $0;;
  17     -unpatch) patch -R -p1 ${patch_opts} < $0;;
  18     *)
  19         echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
  20         exit 1;;
  21 esac
  22
  23 exit 0
  24
  25 @DPATCH@
  26 diff -urNad /home/ultrotter/docs/projects/deb/nagios/new/nagios-plugins-1.3.1.0/plugins-scripts/check_ircd.pl nagios-plugins-1.3.1.0/plugins-scripts/check_ircd.pl
  27 --- /home/ultrotter/docs/projects/deb/nagios/new/nagios-plugins-1.3.1.0/plugins-scripts/check_ircd.pl   2002-05-07 07:35:49.000000000 +0200
  28 +++ nagios-plugins-1.3.1.0/plugins-scripts/check_ircd.pl        2004-08-12 15:54:50.000000000 +0200
  29 @@ -148,7 +148,6 @@
  30         my $proto = getprotobyname('tcp');
  31         my $sockaddr;
  32         my $this;
  33 -       my $thisaddr = gethostbyname($in_hostname);
  34         my $that;
  35         my ($name, $aliases,$type,$len,$thataddr) = gethostbyname($in_remotehost);
  36  #      ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($in_hostname);
  37 @@ -158,7 +157,7 @@
  38             exit $ERRORS{"UNKNOWN"};
  39         }
  40         $sockaddr = 'S n a4 x8';
  41 -       $this = pack($sockaddr, AF_INET, 0, $thisaddr);
  42 +       $this = pack($sockaddr, AF_INET, 0, INADDR_ANY);
  43         $that = pack($sockaddr, AF_INET, $in_remoteport, $thataddr);
  44         if (!bind(ClientSocket, $this)) {
  45             print "IRCD UNKNOWN: Could not bind socket ($!)\n";