| 86 |
|
PeerAddr => $filter_manager_addr, |
| 87 |
|
PeerPort => $filter_manager_port, |
| 88 |
|
Proto => 'tcp' |
| 89 |
< |
); |
| 89 |
> |
) or die "Cannot connect!"; |
| 90 |
|
if (!defined $sock) { |
| 91 |
|
print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n"; |
| 92 |
|
print "Please check that there is an i-scream server at this address.\n"; |
| 265 |
|
# Make the packet smaller by stripping out newlines and leading spaces. |
| 266 |
|
$xml =~ s/\n\s*//g; |
| 267 |
|
|
| 268 |
– |
print $xml; |
| 269 |
– |
|
| 268 |
|
my($sock) = new IO::Socket::INET ( |
| 269 |
|
PeerPort => $udp_port, |
| 270 |
|
PeerAddr => $filter_addr, |
| 271 |
|
Proto => 'udp' |
| 272 |
< |
) or die "Socket: $!\n"; |
| 272 |
> |
) or die "Could not send UDP: $!\n"; |
| 273 |
|
|
| 274 |
|
print $sock $xml or die "Could not send UDP packet: $!\n"; |
| 275 |
|
close($sock); |
| 293 |
|
PeerAddr => $filter_addr, |
| 294 |
|
PeerPort => $tcp_port, |
| 295 |
|
Proto => 'tcp' |
| 296 |
< |
); |
| 296 |
> |
) or return; |
| 297 |
|
if (!defined $sock) { |
| 298 |
|
print "IHOST WARNING: Failed to deliver a heartbeat to the i-scream filter.\n"; |
| 299 |
|
return; |
