From: Jan Willamowius <jan@willamowius.de>
Date: Tue, 20 Sep 2005 14:34:32 +0000 (+0000)
Subject: bugfix: $HTTPPORT{ALL} is not used
X-Git-Tag: spong-2_8_0-beta1~8
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c24c8a8d3f4698af5994535f9267b3ecfb383c8;p=spong.git

bugfix: $HTTPPORT{ALL} is not used
---

diff --git a/src/lib/Spong/Network/plugins/check_http b/src/lib/Spong/Network/plugins/check_http
index b6e4a72..c7d9195 100755
--- a/src/lib/Spong/Network/plugins/check_http
+++ b/src/lib/Spong/Network/plugins/check_http
@@ -33,7 +33,7 @@ sub check_http {
          $method =~ s/\s$//;	# remove trailing spaces
          my($hpart,$urlpath) = ( $url =~ m|^([^/]+)(/.*)| );
          my($hname,$port) = split(/:/,$hpart);
-         $port = 80 if ! $port;
+         $port = $http_port if ! $port;
          #$hname = $host if ( ! $hname || $hname eq '_HOST_' );
          if ( ! $hname ) {
             $hname = $host;