VUser::Log::Syslog - Syslog log module

 [Log Syslog]
 # Syslog facility to use. See syslog(3) for a list of facilities on your
 # system.
 # Common facilities are: daemon, user, local0 - local7
 facility = daemon

 # Comma separated list if Syslog options.
 # Possible options: pid, ndelay, nowait
 # options = pid

 This file is part of vuser.

 vuser is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 vuser is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with vuser; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package VUser::Log::Syslog;
use warnings;
use strict;

# Copyright 2005 Randy Smith <perlstalker@vuser.org>
# $Id: Syslog.pm,v 1.6 2007-04-24 14:25:44 perlstalker Exp $

our $VERSION = "0.3.0";

use VUser::ExtLib qw(strip_ws);
use VUser::Log qw(:levels);
our @ISA = qw(VUser::Log);

use Sys::Syslog qw(:DEFAULT);

my $c_sec = 'Log Syslog';

my %prior_map = (VUser::Log::LOG_EMERG() => 'emerg',
		 VUser::Log::LOG_ALERT() => 'alert',
		 VUser::Log::LOG_CRIT()  => 'crit',
		 VUser::Log::LOG_ERR()   => 'err',
		 VUser::Log::LOG_WARN()  => 'warning',
		 VUser::Log::LOG_NOTICE() => 'notice',
		 VUser::Log::LOG_INFO()  => 'info',
		 VUser::Log::LOG_DEBUG() => 'debug');

sub init
{
    my $self = shift;
    my $cfg = shift;

    my $facility = strip_ws($cfg->{$c_sec}{facility});
    $self->add_member('facility', $facility);

    my $opts = strip_ws($cfg->{$c_sec}{options});
    $self->add_member('opts', $opts);

    openlog ($self->ident, $self->opts, $self->facility);
}

sub write_msg
{
    my $self = shift;
    my ($level, $msg) = @_;

    if (not defined $level or not defined $prior_map{$level}) {
	$level = VUser::Log::LOG_ERR();
    }

    eval { syslog ($prior_map{$level}, '%s', $msg); };
    if ($@) {
	# ...?
    }
}

sub version { return $VERSION; }

sub DESTROY { closelog(); }

1;

__END__