Changeset 281
- Timestamp:
- Sep 25, 2017, 7:34:53 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r280 r281 2800 2800 my $timestamp = $switch_connection->{'timestamp'}; 2801 2801 2802 my $invisible_node = 0; # Count number of invisible node 2803 2802 2804 my %db_building= (); 2805 my %db_switch_line = (); # Number of line drawed on a switch 2803 2806 for my $sw (@SWITCH_LIST) { 2804 2807 my ($building, $location) = split m/ \/ /xms, $sw->{'location'}, 2; … … 2806 2809 $db_building{$building}->{$location} ||= {}; 2807 2810 $db_building{$building}->{$location}{ $sw->{'hostname'} } = 'y'; 2811 2812 $db_switch_line{$sw} = 0; 2808 2813 } 2809 2814 … … 2867 2872 print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum, peripheries = $peripheries, style = filled];\n"; 2868 2873 print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color = $color, arrowhead= normal, arrowtail = inv]\n"; 2874 2875 $db_switch_line{$sw}++; 2876 if ($db_switch_line{$sw} % 9 == 0) { 2877 # Create invisible node 2878 $invisible_node++; 2879 my $invisible = '__Invisible_' . $invisible_node; 2880 print "$invisible [shape=none, label=\"\"]\n"; 2881 print "\"$sw:$port_connect\" -> $invisible [style=invis]\n"; 2882 print "$invisible -> \"$sw\" [style=invis]\n"; 2883 } 2869 2884 } 2870 2885 }
Note: See TracChangeset
for help on using the changeset viewer.