PERL Modules - Sys::Syslog

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Sys::Syslog

Fletcher Mattox

2006-03-13, 6:56 pm

Hi,

When I upgraded perl 8.8.0 (Sys::Syslog 0.3) to perl 8.8.8 (Sys::Syslog 0.13)
on my Solaris 9 box, the hostname in the syslog entries changed from
"cs.utexas.edu" (i.e. the FQDN) to "localhost". I assume that's because
these lines were removed from connect_udp() in Sys::Syslog 0.3:

unless ($host) {
require Sys::Hostname;
my($host_uniq) = Sys::Hostname::hostname();
($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
}

Was this the desired effect? What was the reason for this change?
I much prefer the old behavior. Is the some way to get it back, short
of modifying Sys::Syslog or wrapping each call to syslog() with

$Sys::Syslog::host = hostname();

in all my applications?

Thanks,
Fletcher

Sponsored Links