From: Jay Hannah <jhannah@omnihotels.com>
Date: Wed, 15 Sep 2004 14:51:42 +0000 (-0500)
Subject: [patch] Sys::Syslog POD - $Sys::Syslog::host
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=476b65d99f3d74dcdd84fe0193db04f9db2c3d52;p=p5sagit%2Fp5-mst-13.2.git

[patch] Sys::Syslog POD - $Sys::Syslog::host
From: "Jay Hannah" <jhannah@omnihotels.com>
Message-ID: <002001c49b5d$6d0d79c0$4722000a@omarests2>

p4raw-id: //depot/perl@23341
---

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 244157f..551a885 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -128,6 +128,12 @@ Note that C<openlog> now takes three arguments, just like C<openlog(3)>.
     $! = 55;
     syslog('info', 'problem was %m'); # %m == $! in syslog(3)
 
+    # Log to UDP port on $remotehost instead of logging locally
+    setlogsock('udp');
+    $Sys::Syslog::host = $remotehost;
+    openlog($program, 'ndelay', 'user');
+    syslog('info', 'something happened over here');
+
 =head1 SEE ALSO
 
 L<syslog(3)>