Changeset 114 for trunk/klask

Timestamp:

Oct 1, 2012, 5:36:13 PM (12 years ago)

Author:

g7moreau

Message:

• Add command bad-vlan-config

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -65 +65 @@
    'ip-free'  => \&cmd_ip_free,
    'search-mac-on-switch' => \&cmd_search_mac_on_switch,
+   'bad-vlan-config'  => \&cmd_bad_vlan_config,
    );
 
@@ -1186 +1187 @@
    }
 
+sub cmd_bad_vlan_config {
+   test_maindb_environnement();
+
+   my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
+
+   my %swithportdb = ();
+   LOOP_ON_IP_ADDRESS:
+   foreach my $ip (keys %{$computerdb}) {
+      # to be improve in the future
+      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
+
+      my $ip_timestamp   = $computerdb->{$ip}{timestamp};
+      my $ip_mac         = $computerdb->{$ip}{mac_address};
+      my $ip_hostname_fq = $computerdb->{$ip}{hostname_fq};
+
+      my $swpt = sprintf "%-28s  %2s", $computerdb->{$ip}{switch_hostname}, $computerdb->{$ip}{switch_port};
+      $swithportdb{$swpt} ||= {
+         ip          => $ip,
+         timestamp   => $ip_timestamp,
+         vlan        => $computerdb->{$ip}{network},
+         hostname_fq => $ip_hostname_fq,
+         mac_address => $ip_mac,
+         };
+      
+      if (
+         ($ip_timestamp > $swithportdb{$swpt}->{timestamp})
+         and (
+            $ip_hostname_fq !~ m/^float/
+            or $ip_timestamp > ( $swithportdb{$swpt}->{timestamp} + (15 * 24 * 3600) )
+            )
+         ) {
+         $swithportdb{$swpt} = {
+            ip          => $ip,
+            timestamp   => $ip_timestamp,
+            vlan        => $computerdb->{$ip}{network},
+            hostname_fq => $ip_hostname_fq,
+            mac_address => $ip_mac,
+            };
+         }
+      }
+
+   foreach my $swpt (keys %swithportdb) {
+      next if $swpt =~ m/^\s*0$/;
+      next if $swithportdb{$swpt}->{hostname_fq} !~ m/^float/;
+      
+      my $src_ip = $swithportdb{$swpt}->{ip};
+      my $src_timestamp = 0;
+      foreach my $ip (keys %{$computerdb}) {
+         next if $computerdb->{$ip}{mac_address} ne  $swithportdb{$swpt}->{mac_address};
+         next if $computerdb->{$ip}{hostname_fq} =~ m/^float/;
+         next if $computerdb->{$ip}{timestamp} < $src_timestamp;
+         
+         $src_ip = $ip;
+         $src_timestamp = $computerdb->{$ip}{timestamp};
+         }
+      
+      next if $src_timestamp == 0;
+      
+      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $swithportdb{$swpt}->{timestamp};
+      $year += 1900;
+      $mon++;
+      my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
+
+      ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$src_ip}{timestamp};
+      $year += 1900;
+      $mon++;
+      my $src_date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
+
+      printf "%s / %-10s +-> %-10s  %s / %s # %s\n",
+         $swpt, $swithportdb{$swpt}->{vlan}, $computerdb->{$src_ip}{network},
+         $date,
+         $src_date,
+         $computerdb->{$src_ip}{hostname_fq};
+      }
+   }
+
 sub cmd_ip_location {
    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");