#8732 Added autoconfiguration scheduled 3
This commit is contained in:
parent
e8c7c38c1f
commit
8ffb247703
|
@ -320,42 +320,52 @@ sub pandora_agent_autoconfiguration_scheduled($) {
|
|||
$pa_config{'dbuser'}, $pa_config{'dbpass'});
|
||||
|
||||
while ($THRRUN == 1) {
|
||||
my @autoconfig = get_db_rows (
|
||||
$dbh,
|
||||
'SELECT *, DATE_FORMAT(DATE_ADD(periodically_time_from, INTERVAL 5 MINUTE), "%H:%i:%S") AS time_minutes FROM tautoconfig
|
||||
WHERE executed = 0 AND type_execution LIKE "scheduled" AND disabled = 0'
|
||||
);
|
||||
eval {{
|
||||
local $SIG{__DIE__};
|
||||
|
||||
# Get current time.
|
||||
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
|
||||
my $time = sprintf ("%.2d:%.2d:%.2d", $hour, $min, $sec);
|
||||
my @autoconfig = get_db_rows (
|
||||
$dbh,
|
||||
'SELECT *, DATE_FORMAT(DATE_ADD(periodically_time_from, INTERVAL ' . $pa_config->{'autoconfigure_agents_threshold'} . ' SECOND), "%H:%i:%S") AS time_minutes
|
||||
FROM tautoconfig WHERE executed = 0 AND type_execution LIKE "scheduled" AND disabled = 0'
|
||||
);
|
||||
|
||||
foreach my $conf (@autoconfig) {
|
||||
if (($conf->{'type_periodicity'} eq 'monthly' && $conf->{'periodically_day_from'} eq $mday) ||
|
||||
($conf->{'type_periodicity'} eq 'weekly' && (($conf->{'sunday'} eq 1 && $wday eq 0) ||
|
||||
($conf->{'monday'} eq 1 && $wday eq 1) || ($conf->{'tuesday'} eq 1 && $wday eq 2) ||
|
||||
($conf->{'wednesday'} eq 1 && $wday eq 3) || ($conf->{'thursday'} eq 1 && $wday eq 4) ||
|
||||
($conf->{'friday'} eq 1 && $wday eq 5) || ($conf->{'saturday'} eq 1 && $wday eq 6)))
|
||||
) {
|
||||
if ($time ge $conf->{'periodically_time_from'} && $time le $conf->{'time_minutes'}) {
|
||||
# Get agents.
|
||||
my @agents = get_db_rows(
|
||||
$dbh,
|
||||
'SELECT id_agente, alias, id_grupo, id_os, os_version, direccion, nombre AS agent_name FROM tagente
|
||||
WHERE `disabled` = 0'
|
||||
);
|
||||
# Get current time.
|
||||
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
|
||||
my $time = sprintf ("%.2d:%.2d:%.2d", $hour, $min, $sec);
|
||||
|
||||
foreach my $agent (@agents) {
|
||||
my $match = enterprise_hook('autoconf_evaluate_rules', [$pa_config, $dbh, $agent, $conf->{'id'}, $agent->{'id_agente'}, 1]);
|
||||
if (defined($match) && $match > 0) {
|
||||
enterprise_hook('autoconf_execute_actions', [$pa_config, $dbh, $agent->{'id_agente'}, $agent, $conf->{'id'}]);
|
||||
foreach my $conf (@autoconfig) {
|
||||
if (($conf->{'type_periodicity'} eq 'monthly' && $conf->{'periodically_day_from'} eq $mday) ||
|
||||
($conf->{'type_periodicity'} eq 'weekly' && (($conf->{'sunday'} eq 1 && $wday eq 0) ||
|
||||
($conf->{'monday'} eq 1 && $wday eq 1) || ($conf->{'tuesday'} eq 1 && $wday eq 2) ||
|
||||
($conf->{'wednesday'} eq 1 && $wday eq 3) || ($conf->{'thursday'} eq 1 && $wday eq 4) ||
|
||||
($conf->{'friday'} eq 1 && $wday eq 5) || ($conf->{'saturday'} eq 1 && $wday eq 6)))
|
||||
) {
|
||||
if ($time ge $conf->{'periodically_time_from'} && $time le $conf->{'time_minutes'}) {
|
||||
# Update executed.
|
||||
db_process_update ($dbh, 'tautoconfig', {'executed' => 1}, {'id' => $conf->{'id'}});
|
||||
# Get agents.
|
||||
my @agents = get_db_rows(
|
||||
$dbh,
|
||||
'SELECT id_agente, alias, id_grupo, id_os, os_version, direccion, nombre AS agent_name FROM tagente
|
||||
WHERE `disabled` = 0'
|
||||
);
|
||||
|
||||
foreach my $agent (@agents) {
|
||||
# Check if the agent matches the rules.
|
||||
my $match = enterprise_hook('autoconf_evaluate_rules', [$pa_config, $dbh, $agent, $conf->{'id'}, $agent->{'id_agente'}, 1]);
|
||||
if (defined($match) && $match > 0) {
|
||||
enterprise_hook('autoconf_execute_actions', [$pa_config, $dbh, $agent->{'id_agente'}, $agent, $conf->{'id'}]);
|
||||
}
|
||||
}
|
||||
|
||||
# Update executed.
|
||||
db_process_update ($dbh, 'tautoconfig', {'executed' => 0}, {'id' => $conf->{'id'}});
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}};
|
||||
|
||||
sleep (300);
|
||||
sleep ($pa_config->{'autoconfigure_agents_threshold'});
|
||||
}
|
||||
|
||||
db_disconnect($dbh);
|
||||
|
|
|
@ -539,6 +539,7 @@ sub pandora_load_config {
|
|||
$pa_config->{"provisioning_cache_interval"} = 300; # 7.0 720
|
||||
|
||||
$pa_config->{"autoconfigure_agents"} = 1; # 7.0 725
|
||||
$pa_config->{"autoconfigure_agents_threshold"} = 300; #7.0 764
|
||||
|
||||
$pa_config->{'snmp_extlog'} = ""; # 7.0 726
|
||||
|
||||
|
@ -1265,6 +1266,9 @@ sub pandora_load_config {
|
|||
elsif ($parametro =~ m/^autoconfigure_agents\s+([0-1])/i){
|
||||
$pa_config->{'autoconfigure_agents'}= clean_blank($1);
|
||||
}
|
||||
elsif ($parametro =~ m/^autoconfigure_agents_threshold\s+([0-1])/i){
|
||||
$pa_config->{'autoconfigure_agents_threshold'}= clean_blank($1);
|
||||
}
|
||||
elsif ($parametro =~ m/^snmp_extlog\s(.*)/i) {
|
||||
$pa_config->{'snmp_extlog'} = clean_blank($1);
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue