+++ /dev/null
-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;