Changeset 284
- Timestamp:
- Sep 25, 2017, 8:42:50 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r283 r284 2849 2849 2850 2850 my $peripheries = 1; 2851 my $color = ' black';2851 my $color = 'lightblue'; 2852 2852 if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) { 2853 2853 $peripheries = 2; 2854 $color = "\"$color: invis:$color\"";2854 $color = "\"$color:$color\""; 2855 2855 } 2856 2856 print "\"$sw:$db_switch_output_port{$sw}\" [label=\"".format_aggregator4dot($db_switch_output_port{$sw})."\", color=black, fillcolor=lightblue, peripheries=$peripheries, style=filled];\n"; … … 2868 2868 next if $port_connect eq $db_switch_output_port{$sw}; 2869 2869 my $peripheries = 1; 2870 my $color = ' black';2870 my $color = 'plum'; 2871 2871 if ($port_connect =~ m/^(Trk|Br|Po)/) { 2872 2872 $peripheries = 2; 2873 $color = "\"$color: invis:$color\"";2873 $color = "\"$color:$color\""; 2874 2874 } 2875 2875 print "\"$sw:$port_connect\" [label=\"".format_aggregator4dot($port_connect)."\", color=black, fillcolor=plum, peripheries=$peripheries, style=filled];\n"; … … 2898 2898 else { 2899 2899 my $style = 'solid'; 2900 my $color = ' navyblue';2900 my $color = 'black'; # navyblue 2901 2901 if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) { 2902 2902 $style = 'bold'; … … 2914 2914 for my $sw (keys %{$db_switch_connected_on_port{$swport}}) { 2915 2915 my $style = 'solid'; 2916 my $color = ' navyblue';2916 my $color = 'black'; # navyblue 2917 2917 if ($port_connect =~ m/^(Trk|Br|Po)/) { 2918 2918 $style = 'bold';
Note: See TracChangeset
for help on using the changeset viewer.