This script allows sending syslog messages to a remote syslog server (UNIX).
Perl, 11 lines
Download
Copy to clipboard1 2 3 4 5 6 7 8 9 10 11 | use warnings;
use strict;
use Net::Syslog;
my $syslog=Net::Syslog->(
Facility => 'local4',
Priority => 'debug',
SyslogHost => '192.168.1.1'
);
$syslog->send( 'Message to be sent to remote syslog server' , Priority => 'info');
|
