Changeset 232

Timestamp:

Mar 10, 2017, 2:55:57 PM (7 years ago)

Author:

g7moreau

Message:

• Double arrow for trunk (bridge) connexion export txt format

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -1402 +1402 @@
       $vlan = $computerdb->{$ip}{network}.'('.get_current_vlan_id($computerdb->{$ip}{network}).')' if $computerdb->{$ip}{network};
 
-      printf "%-28s %8s  <-------  %-40s %-15s %-18s %-16s %s\n",
+      my $arrow ='<-------';
+         $arrow ='<=======' if $computerdb->{$ip}{switch_port_hr} =~ m/^(Trk|Br|Po)/;
+
+      printf "%-28s %8s  %8s  %-40s %-15s %-18s %-16s %s\n",
          $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description},
          $computerdb->{$ip}{switch_port_hr},
+         $arrow,
          $computerdb->{$ip}{hostname_fq},
          $ip,
@@ -2522 +2526 @@
    print "---------------------------------------------\n";
    for my $sw (sort keys %db_switch_output_port) {
+      my $arrow ='+-->';
+         $arrow ='+==>' if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
       if (exists $db_switch_parent{$sw}) {
-         printf "%-28s %8s  +-->  %8s  %-25s\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};
+         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'};
          }
       else {
-         printf "%-28s %8s  +-->  %8s  router\n", $sw, $db_switch_output_port{$sw}, '';
+         printf "%-28s %8s  %4s  %8s  %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, '', 'router';
          }
       }
@@ -2536 +2542 @@
       my ($sw_connect,$port_connect) = split m/ : /xms, $swport;
       for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
+         my $arrow ='<--+';
+            $arrow ='<==+' if $port_connect =~ m/^(Trk|Br|Po)/;
          if (exists $db_switch_output_port{$sw}) {
-            printf "%-28s %8s  <--+  %8s  %-25s\n", $sw_connect, $port_connect, $db_switch_output_port{$sw}, $sw;
+            printf "%-28s %8s  %4s  %8s  %-25s\n", $sw_connect, $port_connect, $arrow, $db_switch_output_port{$sw}, $sw;
             }
          else {
-            printf "%-28s %8s  <--+  %8s  %-25s\n", $sw_connect, $port_connect, '', $sw;
+            printf "%-28s %8s  %4s  %8s  %-25s\n", $sw_connect, $port_connect, $arrow, '', $sw;
             }
          }