From df312e28d883e74cd997b90a3f72de1c79864ef6 Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Wed, 29 Nov 2000 16:47:27 +0000 Subject: [PATCH] fixed problem in new spong.hosts based parameters code --- src/lib/Spong/Network/plugins/check_http | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/lib/Spong/Network/plugins/check_http b/src/lib/Spong/Network/plugins/check_http index 1738263..f807216 100755 --- a/src/lib/Spong/Network/plugins/check_http +++ b/src/lib/Spong/Network/plugins/check_http @@ -10,11 +10,13 @@ sub check_http { my( $host ) = @_; my( @http_files ) = ( @{$HTTPDOCS{"ALL"}}, @{$HTTPDOCS{$host}} ); my( $http_port ) = $HTTPPORT{$host} || $HTTPPORT{"ALL"} || 80; + # Find list of URL's to check - my( @http_urls ) = @{$HTTPURLS{$host}} || # Old style configs - @{$HTTPURLS{'DEFAULT'}} || - $HOSTS{$host}->{'http_urls'} || # New style configs - $HOSTS_DEFAULTS{'http_urls'}; + my( @http_urls ) = @{$HTTPURLS{$host}}; + @http_urls = @{$HTTPURLS{'DEFAULT'}} if( ! @http_urls ); + @http_urls = @{$HOSTS{$host}->{'http_urls'}} if( ! @http_urls ); + @http_urls = @{$HOSTS_DEFAULTS{'http_urls'}} if( ! @http_urls ); + # Append mandatory urls to check @http_urls = ( @http_urls, @{$HOSTS_ALL{'http_urls'}} ); -- 2.30.2