Print missing files and change log_file to logfile

This commit is contained in:
Félix Suárez 2023-05-27 17:01:29 -06:00
parent 20425562c9
commit 21aedb1e7a
1 changed files with 14 additions and 2 deletions

View File

@ -5923,13 +5923,25 @@ sub cli_get_bad_conf_files() {
foreach my $file (@files) {
# Check important tokens
my $missings = 0;
my @tokens = ("server_ip","server_path","temporal","log_file");
my @tokens = ("server_ip","server_path","temporal","logfile");
if ($file !~ /.srv./) {
foreach my $token (@tokens) {
if(enterprise_hook('pandora_check_conf_token',[$conf->{incomingdir}.'/conf/'.$file, $token]) == 0) {
my $result = enterprise_hook('pandora_check_conf_token', [$conf->{incomingdir}.'/conf/'.$file, $token]);
if($result == 0) {
$missings++;
}
elsif ($result == -1) {
print_log "[WARN] File not exists /conf/".$file."\n\n";
$bad_files++;
last;
}
elsif(!defined $result) {
print_log "[WARN] Can't open file /conf/".$file."\n\n";
$bad_files++;
last;
}
}
# If any token of checked is missed we print the file path