--- projects/cms/source/host/ihost-perl/ihost.pl	2001/03/14 18:48:33	1.28
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/03/15 09:44:08	1.30
@@ -10,7 +10,7 @@
 #  - pjm2@ukc.ac.uk
 #
 # $Author: pjm2 $
-# $Id: ihost.pl,v 1.28 2001/03/14 18:48:33 pjm2 Exp $
+# $Id: ihost.pl,v 1.30 2001/03/15 09:44:08 pjm2 Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -45,7 +45,7 @@ $filter_manager_addr = $ARGV[0];
 $filter_manager_port = $ARGV[1];
 
 $seq_no = 1;
-$retry_wait = 6;
+$retry_wait = 600;
 
 # write our PID to a file
 $pidfile = "/var/tmp/ihost.pid";
@@ -111,7 +111,6 @@ sub tcp_configure() {
         if (!defined $sock) {
             print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n";
             print "Please check that there is an i-scream server at this address.\n";
-            close($sock);
             wait_then_retry();
             next;
         }