tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-27 15:54:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Change to handle as log blocks

Browse Source
This commit is contained in:
Félix Suárez 2023-07-24 12:27:27 -06:00
parent 1fc1c0e9a4
commit 93eb93b348
1 changed files with 15 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
pandora_server/util/pandora_db.pl
View File

@ -1254,8 +1254,8 @@ sub pandoradb_main {
# Maintain Referential integrity and other stuff # Maintain Referential integrity and other stuff
pandora_checkdb_integrity ($conf, $dbh); pandora_checkdb_integrity ($conf, $dbh);
# Update error logs # Close and open error log blocks
update_err_logs($conf); handle_error_log_block($conf, $dbh);
# Move old data to the history DB # Move old data to the history DB
if (defined ($history_dbh)) { if (defined ($history_dbh)) {
@ -1333,34 +1333,21 @@ sub pandora_check_forgotten_discovery_tasks {
} }
############################################################################### ###############################################################################
# Update error logs that do not have a date # Opening and closing of error log blocks
############################################################################### ###############################################################################
sub update_err_logs { sub handle_error_log_block {
my ($conf, $dbh) = @_;
my $is_open = get_db_value ($dbh,"SELECT `value` FROM `tconfig` WHERE `token` = 'open_error_log'");
open (STDERR, ">> " . $conf->{'errorlog_file'}) or die " [ERROR] " . pandora_get_initial_product_name() . " can't write to Errorlog. Aborting : \n $! \n";
if (!defined ($is_open)) {
db_do($dbh, "INSERT INTO `tconfig`(`token`, `value`) VALUES ('open_error_log', 1)");
} elsif ($is_open eq 1){
print STDERR strftime ("%Y-%m-%d %H:%M:%S", localtime()) . ' - ' . $conf->{'servername'} . " pandora_db: pandora_db maintenance tasks ends\n";
}
my ($conf) = @_; print STDERR strftime ("%Y-%m-%d %H:%M:%S", localtime()) . ' - ' . $conf->{'servername'} . " pandora_db: pandora_db maintenance tasks starts\n";
my $file = $conf{'errorlog_file'}; close (STDERR);
my $temp_file = substr($file, 0, rindex($file, '.')) . '_temp.txt';
my $date_str = strftime("%Y-%m-%d %H:%M:%S ", localtime);
open(my $in_fh, '<', $file) or die "Unable to open error log file to read: $!";
open(my $out_fh, '>', $temp_file) or die "Unable to open the temporary file for writing: $!";
while (my $line = <$in_fh>) {
chomp $line;
if ($line !~ /^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}/) {
$line = $date_str . $line;
}
print $out_fh "$line\n";
}
close($in_fh);
close($out_fh);
if (!copy($temp_file, $file)) {
die "Could not copy temporary file: $!";
}
unlink($temp_file) or warn "Could not delete temporary file: $!";
} }
# Init # Init