| 77 |
|
PeerAddr => $filter_manager_addr, |
| 78 |
|
PeerPort => $filter_manager_port, |
| 79 |
|
Proto => 'tcp' |
| 80 |
< |
) or die "Could not perform configuration via TCP: $!\n"; |
| 80 |
> |
); |
| 81 |
> |
if (!defined $sock) { |
| 82 |
> |
print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n"; |
| 83 |
> |
print "Please check that there is an i-scream server at this address.\n"; |
| 84 |
> |
print "Program ended.\n"; |
| 85 |
> |
exit(1); |
| 86 |
> |
} |
| 87 |
|
|
| 82 |
– |
die "Could not connect to the i-scream filter manager: $!\n" unless $sock; |
| 83 |
– |
|
| 88 |
|
# Now run through the configuration process. |
| 89 |
|
my($response); |
| 90 |
|
|
| 258 |
|
PeerAddr => $filter_addr, |
| 259 |
|
PeerPort => $tcp_port, |
| 260 |
|
Proto => 'tcp' |
| 261 |
< |
) or die "Could not perform heartbeat via TCP: $!\n"; |
| 262 |
< |
|
| 263 |
< |
die "Could not connect to the i-scream filter: $!\n" unless $sock; |
| 261 |
> |
); |
| 262 |
> |
if (!defined $sock) { |
| 263 |
> |
print "IHOST WARNING: Failed to deliver a heartbeat to the i-scream filter.\n"; |
| 264 |
> |
return; |
| 265 |
> |
} |
| 266 |
|
|
| 267 |
|
# Now run through the configuration process. |
| 268 |
|
my($response); |
