Changeset 312

Timestamp:

Oct 21, 2017, 6:59:05 PM (7 years ago)

Author:

g7moreau

Message:

• Clean code and change arrow

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -2854 +2854 @@
    my %db_switch_connected_on_port = %{$switch_connection->{'connected_on_port'}};
 
+   # 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'},
@@ -2861 +2862 @@
       {align => 'left',   align_title => 'left',   title => 'Parent_Switch'},
       );
-   #print "Switch output port and parent port connection\n";
-   #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 %3s %-8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, $db_switch_parent{$sw}->{'port_hr'}, $db_switch_parent{$sw}->{'switch'};
          $tb_child->add($sw, $db_switch_output_port{$sw}, $arrow, $db_switch_parent{$sw}->{'port_hr'}, $db_switch_parent{$sw}->{'switch'});
 
          }
       else {
-         #printf "%-28s %8s %3s %-8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, '', 'router';
          $tb_child->add($sw, $db_switch_output_port{$sw}, $arrow, '', 'router');
          }
       }
    my @colrange = map { scalar $tb_child->colrange($_) } (0 .. 4); # force scaler context
-   $tb_child->add(map { ' ' x $_ } reverse @colrange); # add empty line to force symetric table
+   $tb_child->add(map { ' ' x $_ } reverse @colrange); # add empty line to force symetric table output
    print $tb_child->title();
    print $tb_child->rule('-');
@@ -2883 +2880 @@
    $tb_child->clear;
 
+   # Switch parent and children port inter-connection
    print "\n";
    my $tb_parent = Text::Table->new( # http://www.perlmonks.org/?node_id=988320
@@ -2891 +2889 @@
       {align => 'left',   align_title => 'left',   title => 'Child_Switch'},
       );
-   #print "Switch parent and children port inter-connection\n";
-   #print "------------------------------------------------\n";
    for my $swport (sort keys %db_switch_connected_on_port) {
       my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
       for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
-         my $arrow ='<--';
-            $arrow ='<==' if $port_connect =~ m/^(Trk|Br|Po)/;
+         my $arrow ='<---';
+            $arrow ='<===' if $port_connect =~ m/^(Trk|Br|Po)/;
          if (exists $db_switch_output_port{$sw}) {
-            #printf "%-28s %8s %3s %-8s %-25s\n", $sw_connect, $port_connect, $arrow, $db_switch_output_port{$sw}, $sw;
             $tb_parent->add($sw_connect, $port_connect, $arrow, $db_switch_output_port{$sw}, $sw);
             }
          else {
-            #printf "%-28s %8s %3s %-8s %-25s\n", $sw_connect, $port_connect, $arrow, '', $sw;
             $tb_parent->add($sw_connect, $port_connect, $arrow, '', $sw);
             }
@@ -2909 +2903 @@
       }
    @colrange = map { scalar $tb_parent->colrange($_) } (0 .. 4); # force scaler context
-   $tb_parent->add(map { ' ' x $_ } reverse @colrange); # add empty line to force symetric table
+   $tb_parent->add(map { ' ' x $_ } reverse @colrange); # add empty line to force symetric table output
    print $tb_parent->title();
    print $tb_parent->rule('-');