Added a string with information of the caller of pandora_server. Modified too an issue with security level messages
This commit is contained in:
parent
cc239e5e68
commit
7bdd2a02e5
|
@ -640,19 +640,24 @@ sub logger ($$;$) {
|
||||||
# Set the security level
|
# Set the security level
|
||||||
my $security_level = 'info';
|
my $security_level = 'info';
|
||||||
if ($level < 2) {
|
if ($level < 2) {
|
||||||
$security = 'crit';
|
$security_level = 'crit';
|
||||||
} elsif ($level < 5) {
|
} elsif ($level < 5) {
|
||||||
$security = 'warn';
|
$security_level = 'warn';
|
||||||
}
|
}
|
||||||
|
|
||||||
openlog('pandora_server', 'ndelay', 'daemon');
|
openlog('pandora_server', 'ndelay', 'daemon');
|
||||||
syslog($security_level, $message);
|
syslog($security_level, $message);
|
||||||
closelog();
|
closelog();
|
||||||
} else {
|
} else {
|
||||||
|
# Obtain the script that invoke this log
|
||||||
|
my $parent_caller = "";
|
||||||
|
if (($parent_caller = ( caller(2) )[1]) ne "") {
|
||||||
|
$parent_caller = " ** " . (split '/', $parent_caller)[-1] . " **:";
|
||||||
|
}
|
||||||
open (FILE, ">> $file") or die "[FATAL] Could not open logfile '$file'";
|
open (FILE, ">> $file") or die "[FATAL] Could not open logfile '$file'";
|
||||||
# Get an exclusive lock on the file (LOCK_EX)
|
# Get an exclusive lock on the file (LOCK_EX)
|
||||||
flock (FILE, 2);
|
flock (FILE, 2);
|
||||||
print FILE strftime ("%Y-%m-%d %H:%M:%S", localtime()) . " " . (defined($pa_config->{'servername'}) ? $pa_config->{'servername'} : '') . " [V". $level ."] " . $message . "\n";
|
print FILE strftime ("%Y-%m-%d %H:%M:%S", localtime()) . $parent_caller . " " . (defined($pa_config->{'servername'}) ? $pa_config->{'servername'} : '') . " [V". $level ."] " . $message . "\n";
|
||||||
close (FILE);
|
close (FILE);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue