Changeset 231

Timestamp:

Mar 10, 2017, 2:27:44 PM (7 years ago)

Author:

g7moreau

Message:

• Export format txt update - small bogue

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -1380 +1380 @@
    my $computerdb = computerdb_load();
 
-   printf "%-28s %-8s            %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
+   printf "%-28s %8s            %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
    print "--------------------------------------------------------------------------------------------------------------------------------------------\n";
 
@@ -2523 +2523 @@
    for my $sw (sort keys %db_switch_output_port) {
       if (exists $db_switch_parent{$sw}) {
-         printf "%-28s  %2s  +-->  %2s  %-25s\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};
+         printf "%-28s %8s  +-->  %8s  %-25s\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};
          }
       else {
-         printf "%-28s  %2s  +-->  router\n", $sw, $db_switch_output_port{$sw};
+         printf "%-28s %8s  +-->  %8s  router\n", $sw, $db_switch_output_port{$sw}, '';
          }
       }
@@ -2540 +2540 @@
             }
          else {
-            printf "%-28s %8s  <--+            %-25s\n", $sw_connect, $port_connect, $sw;
+            printf "%-28s %8s  <--+  %8s  %-25s\n", $sw_connect, $port_connect, '', $sw;
             }
          }