Changeset 80


Ignore:
Timestamp:
Mar 29, 2011, 5:57:13 PM (9 years ago)
Author:
g7moreau
Message:

Add one mode DEBUG print in updatesw command

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r79 r80  
    14791479
    14801480      $where{$resol_arp{ipv4_address}} = find_all_switch_port($resol_arp{mac_address}); # find port on all switch
    1481 #my @l = ();
    1482 #for my $c  ( keys %{$where{$resol_arp{ipv4_address}}} ) {
    1483 #push @l, "$c -+ "; #$where{$resol_arp{ipv4_address}}->{$c}{hostname};
    1484 #}
    1485 #print "DEBUG  $one_computer $resol_arp{ipv4_address} $resol_arp{mac_address} --- @l\n";
     1481
     1482      if ($verbose) {
     1483         my @l = ();
     1484         for my $c  ( keys %{$where{$resol_arp{ipv4_address}}} ) {
     1485            push @l, "$c -+ "; #$where{$resol_arp{ipv4_address}}->{$c}{hostname};
     1486            }
     1487         print "VERBOSE_3 $one_computer $resol_arp{ipv4_address} $resol_arp{mac_address} --- @l\n";
     1488         }
    14861489
    14871490      $db_switch_ip_hostname{$resol_arp{ipv4_address}} = $resol_arp{hostname_fq};
     
    15111514         $db_switch_link_with{ $db_switch_ip_hostname{$ip} } ||= {};
    15121515         $db_switch_link_with{ $db_switch_ip_hostname{$ip} }->{ $switch->{hostname} } = $switch->{port};
    1513          print "VERBOSE_3: $db_switch_ip_hostname{$ip} -> $switch->{hostname} : $switch->{port}\n" if $verbose;
    1514 #print "DEBUG :  $db_switch_ip_hostname{$ip} / $switch->{hostname} : $switch->{port}\n" if $switch->{hostname} !~ m/sw3-batA0-3s/;
     1516         print "VERBOSE_4: $db_switch_ip_hostname{$ip} -> $switch->{hostname} : $switch->{port}\n" if $verbose;
    15151517         }
    15161518
Note: See TracChangeset for help on using the changeset viewer.