Changeset 323 for trunk

Timestamp:

Oct 31, 2017, 11:59:46 AM (7 years ago)

Author:

g7moreau

Message:

• Table title update (homogeneous)

File:

• trunk/klask (modified) (6 diffs)

trunk/klask

@@ -1669 +1669 @@
    my $computerdb = computerdb_load();
 
-   #printf "%-28s %8s              %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
-   #print "--------------------------------------------------------------------------------------------------------------------------------------------\n";
    my $tb_computer = Text::Table->new(
       {align => 'left',   align_title => 'left',   title => 'Switch'},
@@ -1709 +1707 @@
          $vlan,
          );
-#      printf "%-28s %8s %12s %-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,
-#         $computerdb->{$ip}{'mac_address'},
-#         $date,
- #        $vlan;
       }
 
@@ -2080 +2069 @@
       {align  => 'right',  align_title => 'right',  title => 'Port'},
       {is_sep => 1,              title => ' ',       body => ' !'},
-      {align  => 'left',   align_title => 'left',   title => 'VLAN_Bad'},
+      {align  => 'left',   align_title => 'left',   title => 'VLAN-Bad'},
       {is_sep => 1,              title => ' ',       body => ' +-> '},
-      {align  => 'left',   align_title => 'left',   title => 'VLAN_Good'},
+      {align  => 'left',   align_title => 'left',   title => 'VLAN-Good'},
       {is_sep => 1,              title => ' ',       body => ' '},
-      {align  => 'left',   align_title => 'left',   title => 'VLAN_ID'},
+      {align  => 'left',   align_title => 'left',   title => 'VLAN-ID'},
       {is_sep => 1,              title => ' ',       body => ' '},
-      {align  => 'left',   align_title => 'left',   title => 'Date_Last'},
-      {is_sep => 1,              title => ' ',       body => ' '},
-      {align  => 'left',   align_title => 'left',   title => 'Date_Good'},
-      {is_sep => 1,              title => ' ',       body => ' '},
+      {align  => 'left',   align_title => 'left',   title => 'Date-Last'},
+      {is_sep => 1,              title => ' ',       body => '  '},
+      {align  => 'left',   align_title => 'left',   title => 'Date-Good'},
+      {is_sep => 1,              title => ' ',       body => '  '},
       {align  => 'left',   align_title => 'left',   title => 'MAC-Address'},
       {is_sep => 1,              title => ' ',       body => ' '},
@@ -2139 +2128 @@
          $computerdb->{$src_ip}{'hostname_fq'},
          );
-
-      # printf "%s / %-10s +-> %-10s(%i)  %s %s %s %s\n",
-      #   $swpt, $switchportdb{$swpt}->{'vlan'}, $computerdb->{$src_ip}{'network'}, $vlan_id,
-      #   $date,
-      #   $src_date,
-      #   $computerdb->{$src_ip}{'mac_address'},
-      #   $computerdb->{$src_ip}{'hostname_fq'};
       }
    print $tb_bad->title();
@@ -2929 +2911 @@
    # Switch output port and parent port connection
    my $tb_child = Text::Table->new( # http://www.perlmonks.org/?node_id=988320
-      {align => 'left',   align_title => 'left',   title => 'Child_Switch'},
-      {align => 'right',  align_title => 'right',  title => 'Output_Port'},
+      {align => 'left',   align_title => 'left',   title => 'Child-Switch'},
+      {align => 'right',  align_title => 'right',  title => 'Output-Port'},
       {align => 'center', align_title => 'center', title => 'Link'},
-      {align => 'left',   align_title => 'left',   title => 'Input_Port'},
-      {align => 'left',   align_title => 'left',   title => 'Parent_Switch'},
+      {align => 'left',   align_title => 'left',   title => 'Input-Port'},
+      {align => 'left',   align_title => 'left',   title => 'Parent-Switch'},
       );
    for my $sw (sort keys %db_switch_output_port) {
@@ -2956 +2938 @@
    print "\n";
    my $tb_parent = Text::Table->new( # http://www.perlmonks.org/?node_id=988320
-      {align => 'left',   align_title => 'left',   title => 'Parent_Switch'},
-      {align => 'right',  align_title => 'right',  title => 'Input_Port'},
+      {align => 'left',   align_title => 'left',   title => 'Parent-Switch'},
+      {align => 'right',  align_title => 'right',  title => 'Input-Port'},
       {align => 'center', align_title => 'center', title => 'Link'},
-      {align => 'left',   align_title => 'left',   title => 'Output_Port'},
-      {align => 'left',   align_title => 'left',   title => 'Child_Switch'},
+      {align => 'left',   align_title => 'left',   title => 'Output-Port'},
+      {align => 'left',   align_title => 'left',   title => 'Child-Switch'},
       );
    for my $swport (sort keys %db_switch_connected_on_port) {