mirror of
https://github.com/hanzoai/metrics.git
synced 2026-10-30 20:03:39 +00:00
S.FandGitHub
dd1e436d91
On start the daemon may write an empty line. Log as warning non managed log level. Thanks Andrew .F. for pointers
23 lines
447 B
Perl
23 lines
447 B
Perl
#!/usr/bin/perl
|
|
use Sys::Syslog qw(:standard :macros);
|
|
|
|
openlog($ARGV[0], "pid", "daemon");
|
|
|
|
my %lvl_map = (
|
|
'panic' => LOG_EMERG,
|
|
'fatal' => LOG_CRIT,
|
|
'error' => LOG_ERR,
|
|
'warn' => LOG_WARNING,
|
|
'info' => LOG_INFO,
|
|
);
|
|
|
|
while (my $l = <STDIN>) {
|
|
my ($lvl, undef, $message) = split /\t/, $_, 3;
|
|
next unless $message;
|
|
$lvl = $lvl_map{ lc $lvl } || LOG_WARNING;
|
|
chomp $message;
|
|
syslog( $lvl, $message );
|
|
}
|
|
|
|
closelog();
|