Changeset 323 for trunk


Ignore:
Timestamp:
Oct 31, 2017, 11:59:46 AM (6 years ago)
Author:
g7moreau
Message:
  • Table title update (homogeneous)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r322 r323  
    16691669   my $computerdb = computerdb_load();
    16701670
    1671    #printf "%-28s %8s              %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
    1672    #print "--------------------------------------------------------------------------------------------------------------------------------------------\n";
    16731671   my $tb_computer = Text::Table->new(
    16741672      {align => 'left',   align_title => 'left',   title => 'Switch'},
     
    17091707         $vlan,
    17101708         );
    1711 #      printf "%-28s %8s %12s %-40s %-15s %-18s %-16s %s\n",
    1712 #         $computerdb->{$ip}{'switch_hostname'} || $computerdb->{$ip}{'switch_description'},
    1713 #         $computerdb->{$ip}{'switch_port_hr'},
    1714 #         $arrow,
    1715 #         $computerdb->{$ip}{'hostname_fq'},
    1716 #         $ip,
    1717 #         $computerdb->{$ip}{'mac_address'},
    1718 #         $date,
    1719  #        $vlan;
    17201709      }
    17211710
     
    20802069      {align  => 'right',  align_title => 'right',  title => 'Port'},
    20812070      {is_sep => 1,              title => ' ',       body => ' !'},
    2082       {align  => 'left',   align_title => 'left',   title => 'VLAN_Bad'},
     2071      {align  => 'left',   align_title => 'left',   title => 'VLAN-Bad'},
    20832072      {is_sep => 1,              title => ' ',       body => ' +-> '},
    2084       {align  => 'left',   align_title => 'left',   title => 'VLAN_Good'},
     2073      {align  => 'left',   align_title => 'left',   title => 'VLAN-Good'},
    20852074      {is_sep => 1,              title => ' ',       body => ' '},
    2086       {align  => 'left',   align_title => 'left',   title => 'VLAN_ID'},
     2075      {align  => 'left',   align_title => 'left',   title => 'VLAN-ID'},
    20872076      {is_sep => 1,              title => ' ',       body => ' '},
    2088       {align  => 'left',   align_title => 'left',   title => 'Date_Last'},
    2089       {is_sep => 1,              title => ' ',       body => ' '},
    2090       {align  => 'left',   align_title => 'left',   title => 'Date_Good'},
    2091       {is_sep => 1,              title => ' ',       body => ' '},
     2077      {align  => 'left',   align_title => 'left',   title => 'Date-Last'},
     2078      {is_sep => 1,              title => ' ',       body => '  '},
     2079      {align  => 'left',   align_title => 'left',   title => 'Date-Good'},
     2080      {is_sep => 1,              title => ' ',       body => '  '},
    20922081      {align  => 'left',   align_title => 'left',   title => 'MAC-Address'},
    20932082      {is_sep => 1,              title => ' ',       body => ' '},
     
    21392128         $computerdb->{$src_ip}{'hostname_fq'},
    21402129         );
    2141 
    2142       # printf "%s / %-10s +-> %-10s(%i)  %s %s %s %s\n",
    2143       #   $swpt, $switchportdb{$swpt}->{'vlan'}, $computerdb->{$src_ip}{'network'}, $vlan_id,
    2144       #   $date,
    2145       #   $src_date,
    2146       #   $computerdb->{$src_ip}{'mac_address'},
    2147       #   $computerdb->{$src_ip}{'hostname_fq'};
    21482130      }
    21492131   print $tb_bad->title();
     
    29292911   # Switch output port and parent port connection
    29302912   my $tb_child = Text::Table->new( # http://www.perlmonks.org/?node_id=988320
    2931       {align => 'left',   align_title => 'left',   title => 'Child_Switch'},
    2932       {align => 'right',  align_title => 'right',  title => 'Output_Port'},
     2913      {align => 'left',   align_title => 'left',   title => 'Child-Switch'},
     2914      {align => 'right',  align_title => 'right',  title => 'Output-Port'},
    29332915      {align => 'center', align_title => 'center', title => 'Link'},
    2934       {align => 'left',   align_title => 'left',   title => 'Input_Port'},
    2935       {align => 'left',   align_title => 'left',   title => 'Parent_Switch'},
     2916      {align => 'left',   align_title => 'left',   title => 'Input-Port'},
     2917      {align => 'left',   align_title => 'left',   title => 'Parent-Switch'},
    29362918      );
    29372919   for my $sw (sort keys %db_switch_output_port) {
     
    29562938   print "\n";
    29572939   my $tb_parent = Text::Table->new( # http://www.perlmonks.org/?node_id=988320
    2958       {align => 'left',   align_title => 'left',   title => 'Parent_Switch'},
    2959       {align => 'right',  align_title => 'right',  title => 'Input_Port'},
     2940      {align => 'left',   align_title => 'left',   title => 'Parent-Switch'},
     2941      {align => 'right',  align_title => 'right',  title => 'Input-Port'},
    29602942      {align => 'center', align_title => 'center', title => 'Link'},
    2961       {align => 'left',   align_title => 'left',   title => 'Output_Port'},
    2962       {align => 'left',   align_title => 'left',   title => 'Child_Switch'},
     2943      {align => 'left',   align_title => 'left',   title => 'Output-Port'},
     2944      {align => 'left',   align_title => 'left',   title => 'Child-Switch'},
    29632945      );
    29642946   for my $swport (sort keys %db_switch_connected_on_port) {
Note: See TracChangeset for help on using the changeset viewer.