Changeset 74 for trunk

Timestamp:

Nov 8, 2010, 10:50:46 AM (14 years ago)

Author:

g7moreau

Message:

• Add cleandb command to delete duplicate entry when time date are different

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -54 +54 @@
    searchdb   => \&cmd_searchdb,
    removedb   => \&cmd_removedb,
+   cleandb   => \&cmd_cleandb,
    search     => \&cmd_search,
    enable     => \&cmd_enable,
@@ -859 +860 @@
    mkdir "$dirdb", 0755 unless -d "$dirdb";
    YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+   return;
+   }
+
+sub cmd_cleandb {
+   my @options = @_;
+
+   my $days_to_clean = 15;
+   my $verbose;
+   my $database_has_changed;
+
+   my $ret = GetOptionsFromArray(\@options,
+      'day|d=i'   => \$days_to_clean,
+      'verbose|v' => \$verbose,
+      );
+
+   my @vlan_name = get_list_network();
+
+   my $computerdb = {};
+      $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE") if -e "$KLASK_DB_FILE";
+   my $timestamp = time;
+
+   my $timestamp_barrier = 3600 * 24 * $days_to_clean;
+
+   ALL_VLAN:
+   for my $vlan (@vlan_name) {
+
+      my @ip_list   = get_list_ip($vlan);
+      my %mactimedb = ();
+      
+      LOOP_ON_IP_ADDRESS:
+      for my $ip (@ip_list) {
+
+         next LOOP_ON_IP_ADDRESS if
+            not exists $computerdb->{$ip};
+            
+            #&& $computerdb->{$ip}{timestamp} > $timestamp_barrier;
+         my $ip_timestamp = $computerdb->{$ip}{timestamp};
+         my $ip_mac       = $computerdb->{$ip}{mac_address};
+         
+         $mactimedb{$ip_mac} ||= [ $ip, $ip_timestamp ];
+         
+         if ( $mactimedb{$ip_mac}->[1] - $ip_timestamp > $timestamp_barrier ) {
+            print "remove ip $ip\n" if $verbose;
+            delete $computerdb->{$ip};
+            $database_has_changed++;
+            }
+
+         if ( $ip_timestamp - $mactimedb{$ip_mac}->[1] > $timestamp_barrier ) {
+            print "remove ip ".$mactimedb{$ip_mac}->[0]."\n" if $verbose;
+            delete $computerdb->{$mactimedb{$ip_mac}->[0]};
+            $database_has_changed++;
+            }
+
+         if ( $ip_timestamp > $mactimedb{$ip_mac}->[1]) {
+            $mactimedb{$ip_mac} = [ $ip, $ip_timestamp ];
+            }
+         }
+      }
+
+   if ( $database_has_changed ) {
+      my $dirdb = $KLASK_DB_FILE;
+         $dirdb =~ s{ / [^/]* $}{}xms;
+      mkdir "$dirdb", 0755 unless -d "$dirdb";
+      YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+      }
    return;
    }