Changeset 81
- Timestamp:
- Mar 29, 2011, 6:04:16 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r80 r81 1506 1506 1507 1507 my $switch = $where{$ip}->{$switch_detected}; 1508 #print "DEBUG1 : $db_switch_ip_hostname{$ip} / $switch->{hostname} : $switch->{port}\n" if $switch->{hostname} =~ m/sw3-batA0-3s/;1508 print "VERBOSE_4: $db_switch_ip_hostname{$ip} -> $switch->{hostname} : $switch->{port}\n" if $verbose; 1509 1509 1510 1510 next if $switch->{port} eq '0'; … … 1514 1514 $db_switch_link_with{ $db_switch_ip_hostname{$ip} } ||= {}; 1515 1515 $db_switch_link_with{ $db_switch_ip_hostname{$ip} }->{ $switch->{hostname} } = $switch->{port}; 1516 print "VERBOSE_ 4: $db_switch_ip_hostname{$ip} -> $switch->{hostname} : $switch->{port}\n" if $verbose;1516 print "VERBOSE_5: $db_switch_ip_hostname{$ip} -> $switch->{hostname} : $switch->{port}\n" if $verbose; 1517 1517 } 1518 1518
Note: See TracChangeset
for help on using the changeset viewer.