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

Recipe 578916 revision 2 

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');

Diff to Previous Revision

--- revision 1 2014-07-31 17:19:56
+++ revision 2 2014-07-31 17:23:17
@@ -3,9 +3,9 @@
 use Net::Syslog;
 
 my $syslog=Net::Syslog->(
-		Facility	=>	'local4',
-		Priority	=>	'debug',
-		SyslogHost	=>	'192.168.1.1'
-	);
+    Facility    =>  'local4',
+    Priority    =>  'debug',
+    SyslogHost  =>  '192.168.1.1'
+  );
 
 $syslog->send( 'Message to be sent to remote syslog server' , Priority => 'info');

History