Net::Dev::Tools::Syslog 1.0.0

Net::Dev::Tools::Syslog is a Perl module to send, listen and parse syslog messages.

SYNOPSIS

use Syslog;

#
# Syslog Parser
#
($syslog, $error) = Syslog- >parse(
-dump => < directory >,
-append => < 0|1 >,
-ext => < extension >,
-report => < 0|1 >,
-interval => < seconds >,
-debug => < 0|1|2|3 >,
-rx_time => < 0|1 >,
-lastmsg => < 0|1 >,
-min_date => < mm/dd/yyyy [hh:mm] >,
-max_date => < mm/dd/yyyy [hh:mm] >,
-device => < pattern >,
-tag => < pattern >,
-message => < pattern >,
-format => < bsd|noHost|self >
-moreTime => < 0|1 >
-parseTag => < 0|1 >
);

$parse = $syslog- >parse_syslog_line(< line >);

#
# Syslog Send
#
($send, $error) = Syslog- >send(
-server => < address >,
-port => < IP port >,
-proto => < udp|tcp >,
-facility => < facility >,
-severity => < severity >,
-timestamp => < timestamp >,
-device => < device name >,
-tag => < tag >,
-pid => < pid >,
-message => < message >,
-strict => < 0|1 >,
);

$send- >send_message(
-server => < address >,
-port => < IP port >,
-proto => < udp|tcp >,
-facility => < facility >,
-severity => < severity >,
-timestamp => < timestamp >,
-device => < device name >,
-tag => < tag >,
-pid => < pid >,
-message => < message >,
-strict => < 0|1 >,
);

#
# Syslog Listen
#
($listen, $error) = Syslog- >listen(
-port => < IP port >,
-proto => < udp|tcp >,
-maxlength => < integer >
-verbose => < 0|1|2|3 >,
-fwd_server => < IP address >,
-fwd_port => < integer >,
-fwd_proto => < udp|tcp >,
);

Product's homepage

Requirements:

· Perl