fixed pandora manage disable agent software

This commit is contained in:
Daniel Barbero Martin 2019-07-18 18:21:20 +02:00
parent fdbc3b5366
commit c9779ef0a8
1 changed files with 58 additions and 2 deletions

56
pandora_server/util/pandora_manage.pl Normal file → Executable file
View File

@ -306,9 +306,65 @@ sub pandora_enable_group ($$$) {
my ($conf, $dbh, $group) = @_;
if ($group == 0){
# Extraigo todos los nombres de los agentes de pandora si es para all = 0
# my @agents = get_db_rows ($dbh, 'SELECT nombre FROM tagente');
my @agents = glob($conf->{incomingdir}.'/conf/*');
#my %remote_agents = map {
# if ( $_ =~ /.*\/(.*?)\.conf$/) {
# $1 => 1
# } else {
# undef
# }
#} @agents;
use Data::Dumper;
foreach my $route_agent (@agents) {
print Dumper('++++++++++++++++++++++++++++++++++++++++++++++++++++++');
# Leo el conf de cada agente
#my $conf_txt = enterprise_hook('read_agent_conf_file',[$conf, $remote_agent]);
#my $agent_conf_file = $pa_config->{incomingdir}.'/conf/'.md5(encode_utf8(safe_output($remote_agent))).'.conf';
# If the module is not local, do nothing
if(!defined($route_agent) || !(-f $route_agent)){
next;
}
if ($route_agent =~ /.srv./) {
next;
}
my $conf_file_txt = read_file($route_agent);
if(!$conf_file_txt) {
next;
}
my $validate_conf = enterprise_hook('validate_readed_conf_file',[$conf_file_txt]);
print Dumper($validate_conf);
if (!$validate_conf) {
next;
}
print Dumper($conf_file_txt);
print Dumper('-----------------------------------------------------------');
# # De los agentes que existan
# # checheo el campo disabled se lo pongo a 0 con expresion regular imagino
# my $content = $conf_txt
# # Escribo el conf
# write_agent_conf_file($pa_config, $agent_name, $content);
}
# actualizo la bbdd
db_do ($dbh, "UPDATE tagente SET disabled = 0");
}
else {
# my @remote_agents = get_db_rows ($dbh, 'SELECT nombre FROM tagente WHERE id_grupo = ?', $group);
db_do ($dbh, "UPDATE tagente SET disabled = 0 WHERE id_grupo = $group");
}
exit;