Welcome, guest | Sign In | My Account | Store | Cart

This script allows sending syslog messages to a remote syslog server (UNIX).

Perl, 11 lines
 1
 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');
Created by Brett Carroll on Thu, 31 Jul 2014 (Apache)
Perl recipes (17)
Brett Carroll's recipes (3)

Required Modules

  • (none specified)

Other Information and Tasks