Changeset 281

Timestamp:

Sep 25, 2017, 7:34:53 PM (7 years ago)

Author:

g7moreau

Message:

• Add invisible node on dot graph

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -2800 +2800 @@
    my $timestamp                   =   $switch_connection->{'timestamp'};
 
+   my $invisible_node = 0; # Count number of invisible node
+
    my %db_building= ();
+   my %db_switch_line = (); # Number of line drawed on a switch
    for my $sw (@SWITCH_LIST) {
       my ($building, $location) = split m/ \/ /xms, $sw->{'location'}, 2;
@@ -2806 +2809 @@
       $db_building{$building}->{$location} ||= {};
       $db_building{$building}->{$location}{ $sw->{'hostname'} } = 'y';
+      
+      $db_switch_line{$sw} = 0;
       }
 
@@ -2867 +2872 @@
                print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum,  peripheries = $peripheries, style = filled];\n";
                print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color = $color, arrowhead= normal, arrowtail = inv]\n";
+               
+               $db_switch_line{$sw}++;
+               if ($db_switch_line{$sw} % 9 == 0) {
+                  # Create invisible node
+                  $invisible_node++;
+                  my $invisible = '__Invisible_' . $invisible_node;
+                  print "$invisible [shape=none, label=\"\"]\n";
+                  print "\"$sw:$port_connect\" -> $invisible [style=invis]\n";
+                  print "$invisible            -> \"$sw\"    [style=invis]\n";
+                  }
               }
             }