| 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, |
| 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 |
|
} |
