webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-28 11:43:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Firewall: added IP-Address to dropdown in DNAT part and now all ip-addresses are in brackets

Browse Source
This commit is contained in:
Alexander Marx
2013-10-30 15:49:21 +01:00
parent 68f6312ac5
commit 11ab2c7d9a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
html/cgi-bin/firewall.cgi
View File

@@ -1685,10 +1685,10 @@ END
<td width='25%' align='right'>$Lang::tr{'dnat address'}:</td> <td width='25%' align='right'>$Lang::tr{'dnat address'}:</td>
<td width='30%'> <td width='30%'>
<select name='dnat' style='width: 100%;'> <select name='dnat' style='width: 100%;'>
<option value='Default IP' $selected{'dnat'}{'Default IP'}>$Lang::tr{'default ip'}</option> <option value='Default IP' $selected{'dnat'}{'Default IP'}>$Lang::tr{'default ip'} ($netsettings{'RED_ADDRESS'})</option>
END END
foreach my $alias (sort keys %aliases) { foreach my $alias (sort keys %aliases) {
print "<option value='$alias' $selected{'dnat'}{$alias}>$alias</option>"; print "<option value='$alias' $selected{'dnat'}{$alias}>$alias ($aliases{$alias}{'IPT'})</option>";
} }
print "</select>"; print "</select>";
@@ -1717,7 +1717,7 @@ END
END END
foreach my $alias (sort keys %aliases) { foreach my $alias (sort keys %aliases) {
print "<option value='$alias' $selected{'snat'}{$alias}>$alias $aliases{$alias}{'IPT'}</option>"; print "<option value='$alias' $selected{'snat'}{$alias}>$alias ($aliases{$alias}{'IPT'})</option>";
} }
# XXX this is composed in a very ugly fashion # XXX this is composed in a very ugly fashion
@@ -1729,7 +1729,7 @@ END
print "<option value='$defaultNetworks{$network}{'NAME'}'"; print "<option value='$defaultNetworks{$network}{'NAME'}'";
print " selected='selected'" if ($fwdfwsettings{$fwdfwsettings{'nat'}} eq $defaultNetworks{$network}{'NAME'}); print " selected='selected'" if ($fwdfwsettings{$fwdfwsettings{'nat'}} eq $defaultNetworks{$network}{'NAME'});
print ">$network $defaultNetworks{$network}{'NET'}</option>"; print ">$network ($defaultNetworks{$network}{'NET'})</option>";
} }
print <<END; print <<END;