From d9897a4588990e39d3d53fdddad58933903b7f7f Mon Sep 17 00:00:00 2001
From: enriquecd <enrique.camargo@artica.com>
Date: Tue, 16 May 2017 17:13:39 +0200
Subject: [PATCH] Fix --cli_clean_conf_file no agent param clean all conf files
 - #742

---
 pandora_server/util/pandora_manage.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/pandora_server/util/pandora_manage.pl b/pandora_server/util/pandora_manage.pl
index 92cb4e1b76..b26b0127d6 100644
--- a/pandora_server/util/pandora_manage.pl
+++ b/pandora_server/util/pandora_manage.pl
@@ -3909,14 +3909,20 @@ sub cli_clean_conf_file() {
 		my $list_command = 'ls '.$conf->{incomingdir}.'/conf/';
 		my $out = `$list_command`;
 		my @files = split('\n',$out);
+		my $files_count = 0;
 		# TODO: FINISH OPTION! NOW ONLY SHOW FILES
 		foreach my $file (@files) {
 			# Get the md5 hash
 			my @filesplit = split('.',$file);
-			$result = enterprise_hook('pandora_clean_conf_file',[$conf,$filesplit[0]]);
+			
+			my $pos_conf = index($files[$files_count],".conf");
+			my $file_hash = substr($files[$files_count],0,$pos_conf);
+			
+			$result = enterprise_hook('pandora_clean_conf_file',[$conf,$file_hash]);
 			if($result != -1) {
-				print_log "[INFO] Conf file '".$conf->{incomingdir}.'/conf/'.$filesplit[0].".conf has been cleaned'\n\n";
+				print_log "[INFO] Conf file '".$conf->{incomingdir}.'/conf/'.$file_hash.".conf has been cleaned'\n\n";
 			}
+			$files_count++;
 		}
 	}
 }