+# Add Orange Network
+if ($netsettings{'ORANGE_DEV'}) {
+ push(@network, $netsettings{'ORANGE_NETADDRESS'});
+ push(@masklen, $netsettings{'ORANGE_NETMASK'} );
+ push(@colour, ${Header::colourorange} );
+ # Add Orange Routes to Array
+ @routes = `/sbin/route -n | /bin/grep $netsettings{'ORANGE_DEV'}`;
+ foreach my $route (@routes) {
+ chomp($route);
+ my @temp = split(/[\t ]+/, $route);
+ push(@network, $temp[0]);
+ push(@masklen, $temp[2]);
+ push(@colour, ${Header::colourorange} );
+ }
+}
+
+# Add Blue Network
+if ($netsettings{'BLUE_DEV'}) {
+ push(@network, $netsettings{'BLUE_NETADDRESS'});
+ push(@masklen, $netsettings{'BLUE_NETMASK'} );
+ push(@colour, ${Header::colourblue} );
+ # Add Blue Routes to Array
+ @routes = `/sbin/route -n | /bin/grep $netsettings{'BLUE_DEV'}`;
+ foreach my $route (@routes) {
+ chomp($route);
+ my @temp = split(/[\t ]+/, $route);
+ push(@network, $temp[0]);
+ push(@masklen, $temp[2]);
+ push(@colour, ${Header::colourblue} );
+ }
+}
+