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

Handle agent removal

Browse Source
This commit is contained in:
Félix Suárez 2023-06-07 12:25:07 -06:00
parent 17262c45e0
commit ab2d15d1f8
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pandora_server/util/pandora_db.pl
View File

@ -138,23 +138,13 @@ sub pandora_purgedb ($$$) {
# Delete old disabled agents # Delete old disabled agents
if (defined ($conf->{'_delete_disabled_agents'}) && $conf->{'_delete_disabled_agents'} > 0) { if (defined ($conf->{'_delete_disabled_agents'}) && $conf->{'_delete_disabled_agents'} > 0) {
my $where_clause = 'WHERE disabled = 1 AND modo != 2 AND (ultimo_contacto < (NOW() - INTERVAL ? DAY) AND ultimo_contacto_remoto < (NOW() - INTERVAL ? DAY))';
# TODO: Verificar este método para seleccionar los agentes eliminables. my $query = 'SELECT count(id_agente) as total FROM tagente ' . $where_clause;
# Usando último contacto o último contacto remoto y la columna de "disabled". ¿Se debe agregar una columna adicional? my $removable_agents = get_db_value ($dbh, $query, $conf->{'_delete_disabled_agents'},$conf->{'_delete_disabled_agents'});
# ¿Usar la función "days" o utilizar una solución desde Perl?
$removable_agents = get_db_value ($dbh, 'SELECT count(id_agente) as total FROM tagente WHERE disabled = 1 AND (ultimo_contacto < (NOW() - INTERVAL ? DAY) AND ultimo_contacto_remoto < (NOW() - INTERVAL ? DAY));', $conf->{'_delete_disabled_agents'},$conf->{'_delete_disabled_agents'});
if (defined ($removable_agents) && $removable_agents > 0){ if (defined ($removable_agents) && $removable_agents > 0){
log_message('PURGE', "Deleting old disabled agents (More than " . $conf->{'_delete_disabled_agents'} . " days).") log_message('PURGE', "Deleting old disabled agents (More than " . $conf->{'_delete_disabled_agents'} . " days).");
db_do ($dbh, "DELETE FROM tagente " . $where_clause, $conf->{'_delete_disabled_agents'},$conf->{'_delete_disabled_agents'});
print("Founded ${removable_agents} to delete.")
# Verificar que cuando se borren agentes se borren módulos asociados a ese agente.
# Verificar que se borren alertas asociadas a módulos del agente.
# Verificar que se borren elementos en consolas visuales, en widgets, informes.
# db_do ($dbh, "DELETE FROM tagente WHERE WHERE disabled = 1 AND (ultimo_contacto < (NOW() - INTERVAL $conf->{'_delete_disabled_agents'} DAY) AND ultimo_contacto_remoto < (NOW() - INTERVAL $conf->{'_delete_disabled_agents'} DAY));");
} }
} }