BGPmon-core-1
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/BGPmon/Fetch/Client.pm view on Meta::CPAN
if ($read_buffer =~ /^(<BGP_MESSAGE.*?BGP_MESSAGE>)/) {
$complete_xml_msg = $1;
$msgs_read++;
$read_buffer =~ s/^<BGP_MESSAGE.*?BGP_MESSAGE>//;
} else {
$error_code{$fname} = UNKNOWN_ERROR_CODE;
$error_msg{$fname} = UNKNOWN_ERROR_MSG;
}
return $complete_xml_msg;
}
# Timeout.
$error_code{$fname} = SOCKET_TIMEOUT_CODE;
$error_msg{$fname} = SOCKET_TIMEOUT_MSG;
return undef;
}
=head2 close_connection
Function to close open files and sockets.
=cut
lib/BGPmon/Fetch/Client2.pm view on Meta::CPAN
if ($read_buffer =~ /^(<BGP_MONITOR_MESSAGE.*?BGP_MONITOR_MESSAGE>)/) {
$complete_xml_msg = $1;
$msgs_read++;
$read_buffer =~ s/^<BGP_MONITOR_MESSAGE.*?BGP_MONITOR_MESSAGE>//;
} else {
$error_code{$fname} = UNKNOWN_ERROR_CODE;
$error_msg{$fname} = UNKNOWN_ERROR_MSG;
}
return $complete_xml_msg;
}
# Timeout.
$error_code{$fname} = SOCKET_TIMEOUT_CODE;
$error_msg{$fname} = SOCKET_TIMEOUT_MSG;
return undef;
}
=head2 close_connection
Function to close open files and sockets.
=cut
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.614 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )