Added a string with information of the caller of pandora_server. Modified too an issue with security level messages

This commit is contained in:
Jose Gonzalez 2019-10-07 10:02:21 +02:00
parent cc239e5e68
commit 7bdd2a02e5
1 changed files with 8 additions and 3 deletions

View File

@ -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);
} }
} }