+ | |||
END ; @@ -332,7 +370,7 @@ foreach (@zones) { my $red_restricted = ($uc eq "RED" && ! ($red_type eq "STATIC" || $red_type eq "DHCP")); if ($red_restricted) { - print " | $uc ($red_type) | "; + print "\t\t$uc ($red_type) | \n"; next; # We're done here } @@ -350,7 +388,7 @@ foreach (@zones) { } print <$uc |
$nic $mac | ";
+ print "\t|||
$nic $mac | \n";
# Iterate through all zones and check if the current NIC is assigned to it
foreach (@zones) {
my $uc = uc $_;
my $dev_name = $ethsettings{"${uc}_DEV"};
+ my $highlight = "";
if ($dev_name eq "") { # Again, skip the zone if it is not activated
next;
@@ -391,9 +430,10 @@ foreach (@nics) {
if ($mac eq $ethsettings{"${uc}_MACADDR"}) {
$checked = "checked";
+ $highlight = $_;
}
- print ""; + print "\t\t | \n"; next; # We're done here } } @@ -430,21 +470,26 @@ foreach (@nics) { $access_selected{"NONE"} = ($access_selected{"NATIVE"} eq "") && ($access_selected{"VLAN"} eq "") ? "selected" : ""; my $vlan_disabled = ($wlan) ? "disabled" : ""; + + # If the interface is assigned, hightlight table cell + if ($access_selected{"NONE"} eq "") { + $highlight = $_; + } print < | + + + | END ; } - print "