- Timestamp:
- Mar 10, 2017, 2:55:57 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r231 r232 1402 1402 $vlan = $computerdb->{$ip}{network}.'('.get_current_vlan_id($computerdb->{$ip}{network}).')' if $computerdb->{$ip}{network}; 1403 1403 1404 printf "%-28s %8s <------- %-40s %-15s %-18s %-16s %s\n", 1404 my $arrow ='<-------'; 1405 $arrow ='<=======' if $computerdb->{$ip}{switch_port_hr} =~ m/^(Trk|Br|Po)/; 1406 1407 printf "%-28s %8s %8s %-40s %-15s %-18s %-16s %s\n", 1405 1408 $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}, 1406 1409 $computerdb->{$ip}{switch_port_hr}, 1410 $arrow, 1407 1411 $computerdb->{$ip}{hostname_fq}, 1408 1412 $ip, … … 2522 2526 print "---------------------------------------------\n"; 2523 2527 for my $sw (sort keys %db_switch_output_port) { 2528 my $arrow ='+-->'; 2529 $arrow ='+==>' if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/; 2524 2530 if (exists $db_switch_parent{$sw}) { 2525 printf "%-28s %8s +--> %8s %-25s\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};2531 printf "%-28s %8s %4s %8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'}; 2526 2532 } 2527 2533 else { 2528 printf "%-28s %8s +--> %8s router\n", $sw, $db_switch_output_port{$sw}, '';2534 printf "%-28s %8s %4s %8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, '', 'router'; 2529 2535 } 2530 2536 } … … 2536 2542 my ($sw_connect,$port_connect) = split m/ : /xms, $swport; 2537 2543 for my $sw (keys %{$db_switch_connected_on_port{$swport}}) { 2544 my $arrow ='<--+'; 2545 $arrow ='<==+' if $port_connect =~ m/^(Trk|Br|Po)/; 2538 2546 if (exists $db_switch_output_port{$sw}) { 2539 printf "%-28s %8s <--+ %8s %-25s\n", $sw_connect, $port_connect, $db_switch_output_port{$sw}, $sw;2547 printf "%-28s %8s %4s %8s %-25s\n", $sw_connect, $port_connect, $arrow, $db_switch_output_port{$sw}, $sw; 2540 2548 } 2541 2549 else { 2542 printf "%-28s %8s <--+ %8s %-25s\n", $sw_connect, $port_connect, '', $sw;2550 printf "%-28s %8s %4s %8s %-25s\n", $sw_connect, $port_connect, $arrow, '', $sw; 2543 2551 } 2544 2552 }
Note: See TracChangeset
for help on using the changeset viewer.