zengargoyle has asked for the wisdom of the Perl Monks concerning the following question:

Solaris 2.8 and perl-5.6.1 have a little problem with Sys::Syslog. Somewhere in the build process things go a little wrong with Sys::Syslog and it doesn't learn about LOG_AUTH.

After a bit of google i came up with this to fix it

use Sys::Syslog;
package Sys::Syslog;
sub xlate {
    local($name) = @_;
    $name = uc $name;
    $name = "LOG_$name" unless $name =~ /^LOG_/;
    return (4<<3) if $name eq 'LOG_AUTH';         # a fix for LOG_AUTH
    $name = "Sys::Syslog::$name";
    eval { &$name } || -1;
}
package main;
openlog "testing","pid","auth";
syslog "info", "log this please";

[download]

so for an actual question... does anybody know why LOG_AUTH gets skipped in the build process?

Replies are listed 'Best First'.
Re: Sys::Syslog LOG_AUTH perl-5.6.1 and Solaris 2.8
by pg (Canon) on Dec 21, 2002 at 18:39 UTC
    This is the default setting on Solaris, and it tosses away logs related to LOG_AUTH facility.

    You can simply modify your /etc/syslog.conf, and add one line: 
    auth.info /var/log/authlog

    [download]
[reply]
[d/l]

      the concept of throwing away auth by default sounds foolish. nevertheless, it's not the problem here.

      # fgrep auth.info /etc/syslog.conf 
auth.info                       /var/log/auth
auth.info                       @authloghost

# logger -p auth.info "hello world"

# tail -1 /var/log/auth
Dec 21 16:22:04 host.sub.dom username: [ID 702911 auth.info] hello wor
+ld

      [download]

      meanwhile...

      # perl -v

This is perl, v5.6.1 built for sun4-solaris

...

# perl -e 'use Sys::Syslog; syslog "auth.info", "from perl"'
syslog: invalid level/facility: auth at -e line 1

# perl -e 'use Sys::Syslog; sub Sys::Syslog::LOG_AUTH () { 4<<3 }; sys
+log "auth.info", "from perl"'

# tail -1 /var/log/auth
Dec 21 16:30:08 host.sub.dom username: from perl

      [download]

      i've tried a fresh build of 5.6.1 using Sun's compiler and the auto-everything flags (-des). somehow when it builds the Sys::Syslog module it misses LOG_AUTH (even though it's in sys/syslog.h with everything else). 5.8.1 built with the same compiler/flags works properly. adding the missing function works as well.

[reply]
[d/l]
[select]
        1. So your building environment is correct. Now, read perldelta for perl 5.8.0, search for 'LOG_AUTH', in section "selected bug fixes", it clearly tells you: "Sys::Syslog ignored the LOG_AUTH constant. "

        2. You said: "the concept of throwing away auth by default sounds foolish." On the contrary, this is not foolish at all, when you install Solaris, the default is that Solaris will toss those away. It doesn't matter whether you realize it or whether you like it, it is the default from Solaris.
[reply]

Back to Seekers of Perl Wisdom