Changeset 230

Timestamp:

Mar 10, 2017, 2:22:17 PM (7 years ago)

Author:

g7moreau

Message:

• export format txt update

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -1380 +1380 @@
    my $computerdb = computerdb_load();
 
-   printf "%-27s %-4s            %-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";
 
@@ -1402 +1402 @@
       $vlan = $computerdb->{$ip}{network}.'('.get_current_vlan_id($computerdb->{$ip}{network}).')' if $computerdb->{$ip}{network};
 
-      printf "%-28s  %2s  <-------  %-40s %-15s %-18s %-16s %s\n",
+      printf "%-28s %8s  <-------  %-40s %-15s %-18s %-16s %s\n",
          $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description},
          $computerdb->{$ip}{switch_port_hr},
@@ -2537 +2537 @@
       for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
          if (exists $db_switch_output_port{$sw}) {
-            printf "%-28s  %2s  <--+  %2s  %-25s\n", $sw_connect, $port_connect, $db_switch_output_port{$sw}, $sw;
+            printf "%-28s %8s  <--+  %8s  %-25s\n", $sw_connect, $port_connect, $db_switch_output_port{$sw}, $sw;
             }
          else {
-            printf "%-28s  %2s  <--+      %-25s\n", $sw_connect, $port_connect, $sw;
+            printf "%-28s %8s  <--+            %-25s\n", $sw_connect, $port_connect, $sw;
             }
          }