From c8a8778f897fb8a7ff11509107975c6d88a2f1d2 Mon Sep 17 00:00:00 2001
From: Michael Tremer <michael.tremer@ipfire.org>
Date: Sun, 22 Jul 2012 17:36:13 +0200
Subject: [PATCH] connections.cgi: Highlight multicast (former class D)
 connections.

---
 html/cgi-bin/connections.cgi | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/html/cgi-bin/connections.cgi b/html/cgi-bin/connections.cgi
index 2b98585953..fbd7fcd7cd 100644
--- a/html/cgi-bin/connections.cgi
+++ b/html/cgi-bin/connections.cgi
@@ -32,6 +32,8 @@ require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
 
+my $colour_multicast = "#A0A0A0";
+
 &Header::showhttpheaders();
 
 my @network=();
@@ -147,6 +149,11 @@ if ($netsettings{'ORANGE_DEV'}) {
 	}
 }
 
+# Highlight multicast connections.
+push(@network, "224.0.0.0");
+push(@masklen, "239.0.0.0");
+push(@colour, $colour_multicast);
+
 # Add OpenVPN net and RED/BLUE/ORANGE entry (when appropriate)
 if (-e "${General::swroot}/ovpn/settings") {
 	my %ovpnsettings = ();
@@ -243,6 +250,9 @@ print <<END;
 			<td align='center' bgcolor='${Header::colourovpn}'>
 				<b><font color='#FFFFFF'>$Lang::tr{'OpenVPN'}</font></b>
 			</td>
+			<td align='center' bgcolor='$colour_multicast'>
+				<b><font color='#FFFFFF'>Multicast</font></b>
+			</td>
 		</tr>
 	</table>
 	<br>
-- 
2.39.5