ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl
(Generate patch)

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.28 by pjm2, Wed Mar 14 18:48:33 2001 UTC vs.
Revision 1.31 by pjm2, Thu Mar 15 09:46:18 2001 UTC

# Line 45 | Line 45 | $filter_manager_addr = $ARGV[0];
45   $filter_manager_port = $ARGV[1];
46  
47   $seq_no = 1;
48 < $retry_wait = 6;
48 > $retry_wait = 600;
49  
50   # write our PID to a file
51   $pidfile = "/var/tmp/ihost.pid";
# Line 102 | Line 102 | sub wait_then_retry() {
102   #-----------------------------------------------------------------------
103   sub tcp_configure() {
104      
105 <    while (1 == 1) {
105 >    while (1) {
106          my($sock) = new IO::Socket::INET(
107                                           PeerAddr => $filter_manager_addr,
108                                           PeerPort => $filter_manager_port,
# Line 111 | Line 111 | sub tcp_configure() {
111          if (!defined $sock) {
112              print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n";
113              print "Please check that there is an i-scream server at this address.\n";
114 –            close($sock);
114              wait_then_retry();
115              next;
116          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines