From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 28 Nov 2000 20:35:36 +0000 (+0000)
Subject: added timeout parameter of 10 to check_tcp() calls
X-Git-Tag: spong-2_7_2~51
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e650f641c24ef40665da820ab44dabd429e25ac;p=spong.git

added timeout parameter of 10 to check_tcp() calls
---

diff --git a/src/lib/Spong/Network/plugins/check_http b/src/lib/Spong/Network/plugins/check_http
index 02342c6..1738263 100755
--- a/src/lib/Spong/Network/plugins/check_http
+++ b/src/lib/Spong/Network/plugins/check_http
@@ -39,7 +39,7 @@ sub check_http {
          
          my $message = 
 	    &check_tcp( $hname, $port,
-               "HEAD $urlpath HTTP/1.1\r\nHost: $hname:$port\r\n\r\n" );
+               "HEAD $urlpath HTTP/1.1\r\nHost: $hname:$port\r\n\r\n", 10 );
 
          if( $message =~ /HTTP\S+\s+(\d\d\d)\s.*$/m ) {
             my $code = $1;
@@ -67,7 +67,7 @@ sub check_http {
 
       foreach $file ( @http_files ) {
          my $message = 
-	    &check_tcp( $host, $http_port, "HEAD $file HTTP/1.0\r\n\r\n" );
+	    &check_tcp( $host, $http_port, "HEAD $file HTTP/1.0\r\n\r\n", 10 );
       
          if( $message =~ /HTTP\S+\s+(\d\d\d)\s.*$/m ) {
 	    my $code = $1;