* Added network_interfaces, bonds, bridges and ip_addresses tables to the age-out list.

* Confirmed that striker-purge-target works again.

Signed-off-by: Digimer <digimer@alteeve.ca>
main
Digimer 3 years ago
parent b77bb81343
commit b154ec816a
  1. 6
      Anvil/Tools/Database.pm
  2. 6
      tools/striker-purge-target

@ -17448,6 +17448,12 @@ sub _age_out_data
# scan_storcli # scan_storcli
$to_clean->{table}{scan_storcli_variables}{child_table}{scan_storcli_variables}{uuid_column} = "scan_storcli_variable_uuid"; $to_clean->{table}{scan_storcli_variables}{child_table}{scan_storcli_variables}{uuid_column} = "scan_storcli_variable_uuid";
# Network stuff
$to_clean->{table}{network_interfaces}{child_table}{network_interfaces}{uuid_column} = "network_interface_uuid";
$to_clean->{table}{bridges}{child_table}{bridges}{uuid_column} = "bridge_uuid";
$to_clean->{table}{bonds}{child_table}{bonds}{uuid_column} = "bond_uuid";
$to_clean->{table}{ip_addresses}{child_table}{ip_addresses}{uuid_column} = "ip_address_uuid";
my $vacuum = 0; my $vacuum = 0;
foreach my $table (sort {$a cmp $b} keys %{$to_clean->{table}}) foreach my $table (sort {$a cmp $b} keys %{$to_clean->{table}})
{ {

@ -354,12 +354,6 @@ WHERE
} }
# Commit. # Commit.
print "===================\n";
foreach my $query (@{$queries})
{
print $query."\n";
}
print "===================\n";
my $problem = $anvil->Database->write({query => $queries, source => $THIS_FILE, line => __LINE__}); my $problem = $anvil->Database->write({query => $queries, source => $THIS_FILE, line => __LINE__});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { problem => $problem }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { problem => $problem }});
if ($problem) if ($problem)

Loading…
Cancel
Save