Sys::Syslog issue on Solaris 9 with perl-5.8.2

[Thomas Glanzmann]

Hello together,
I try to use a unix/socket syslog mechanism on Solaris 9 together with
perl-5.8.2 and get the following:

(faui04b) [~] cat syslog.pl
#!/opt/csw/bin/perl -w

use strict;
use Carp; $SIG{__DIE__} = \&Carp::confess;

use Sys::Syslog qwDEFAULT setlogsock); # default set, plus setlogsock
setlogsock('unix');
openlog('spamd', 'cons,pid', 'mail');
syslog('debug', "test application");
closelog();
(faui04b) [~] ./syslog.pl
unix dgram connect: Socket operation on non-socket at ./syslog.pl line 9
no connection to syslog available at ./syslog.pl line 9
Sys::Syslog::connect called at /opt/csw/lib/perl/5.8.2/Sys/Syslog.pm line 293
Sys::Syslog::syslog('debug','test application') called at ./syslog.pl line 9

Any ideas how I can fix the issue?

Thomas

 

[Ben Morrow]

#!/opt/csw/bin/perl -w

use strict;
use Carp; $SIG{__DIE__} = \&Carp::confess;

use Sys::Syslog qwDEFAULT setlogsock); # default set, plus setlogsock
setlogsock('unix');
openlog('spamd', 'cons,pid', 'mail');
syslog('debug', "test application");
closelog();

unix dgram connect: Socket operation on non-socket at ./syslog.pl line 9
no connection to syslog available at ./syslog.pl line 9
Sys::Syslog::connect called at /opt/csw/lib/perl/5.8.2/Sys/Syslog.pm line 293
Sys::Syslog::syslog('debug','test application') called at ./syslog.pl line 9

Any ideas how I can fix the issue?

perldoc Sys::Syslog
| setlogsock...
<snip>
| A value of 'stream' will connect to the stream indicated by the
| pathname provided as the optional second parameter. (For example
| Solaris and IRIX require 'stream' instead of 'unix'.)

Why are you using 'setlogsock' at all?

Ben

 

[David Efflandt]

Hello together,
I try to use a unix/socket syslog mechanism on Solaris 9 together with
perl-5.8.2 and get the following:

(faui04b) [~] cat syslog.pl
#!/opt/csw/bin/perl -w

use strict;
use Carp; $SIG{__DIE__} = \&Carp::confess;

use Sys::Syslog qwDEFAULT setlogsock); # default set, plus setlogsock
setlogsock('unix');
openlog('spamd', 'cons,pid', 'mail');
syslog('debug', "test application");
closelog();
(faui04b) [~] ./syslog.pl
unix dgram connect: Socket operation on non-socket at ./syslog.pl line 9
no connection to syslog available at ./syslog.pl line 9
Sys::Syslog::connect called at /opt/csw/lib/perl/5.8.2/Sys/Syslog.pm line 293
Sys::Syslog::syslog('debug','test application') called at ./syslog.pl line 9

Any ideas how I can fix the issue?

You fail to test if setlogmask() is successful? I don't have root access
on my Solaris ISP, but in Linux I do not use openlog(). I just initize it
with:

# Name of this script
if ($0 =~ m|/([^/]+)$|) { $id = $1; } else { $id = $0; }
use Sys::Syslog qwDEFAULT setlogsock);
setlogsock 'unix' || die "Can't setlogsock";


Then in my log sub I just (with $msg defined):

syslog('info',"$id\[$$]:$msg"); closelog();

 

[Thomas Glanzmann]

Hi Ben.

| A value of 'stream' will connect to the stream indicated by the
| pathname provided as the optional second parameter. (For example
| Solaris and IRIX require 'stream' instead of 'unix'.)

if I use stream. I get the following 'funny' syslog output:

Why are you using 'setlogsock' at all?

Because the syslog mechanism defaults to inet. And I want it to work on
hosts where syslog doesn't listen on a udp/tcp/inet socket.

Thomas

 

[Thomas Glanzmann]

Hi,

You fail to test if setlogmask() is successful?

I don't have to. Look at the

use Carp; $SIG{__DIE__} = \&Carp::confess;

line.

I don't have root access on my Solaris ISP, but in Linux I do not use
openlog(). I just initize it with:

Yes openlog is redundant. But Solaris != Linux. And yes I know that this
progamm works without any problmes under Linux. However you don't answer
my question. I want stream or unix syslog on *Solaris 2.8 and 2.9*.

Thomas