runtest.pl: use lib '.' - because newer perl does not have that by default

[pve-common.git] / src / PVE / SafeSyslog.pm

package PVE::SafeSyslog;

use strict;
use warnings;
use File::Basename;
use Sys::Syslog ();
use Encode;

use vars qw($VERSION @ISA @EXPORT);

$VERSION = '1.00';

require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(syslog initlog);

my $log_tag = "unknown";
 
# never log to console - thats too slow, and
# it corrupts the DBD database connection!

sub syslog {
    eval { Sys::Syslog::syslog (@_); }; # ignore errors
}

sub initlog {
    my ($tag, $facility) = @_;

    if ($tag) { 
	$tag = basename($tag);

	$tag = encode("ascii", decode_utf8($tag));

	$log_tag = $tag;
    }

    $facility = "daemon" if !$facility;

    # never log to console - thats too slow
    Sys::Syslog::setlogsock ('unix');

    Sys::Syslog::openlog ($log_tag, 'pid', $facility);
}

sub tag {
    return $log_tag;
}

1;