mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 15:32:20 +00:00
73 lines
2.4 KiB
Perl
Executable File
73 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# list_nat.cgi
|
|
# Show NAT enable form
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_use_error("nat");
|
|
&header($text{'nat_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
|
|
print &ui_hr();
|
|
|
|
print &ui_form_start("save_nat.cgi","post");
|
|
print &ui_table_start($text{'nat_header'},undef,2);
|
|
|
|
my ($iface, @nets) = &get_nat();
|
|
my @maps = grep { ref($_) } @nets;
|
|
my @nets = grep { !ref($_) } @nets;
|
|
|
|
print &ui_table_row($text{'nat_desc'},
|
|
&ui_radio("nat", ( $iface ? 1 : 0 ), [
|
|
[0,$text{'nat_disabled'}."<br>"],[1,$text{'nat_enabled'}]
|
|
]).&iface_input("iface", $iface) );
|
|
|
|
|
|
my $style = "style='margin:0;padding:0;'";
|
|
my $tx = "";
|
|
$tx .= "<table $style><tr><td $style class='ui_form_value' valign=top>";
|
|
$tx .= "<table $style>";
|
|
my $i = 0;
|
|
foreach $n ((grep { $_ !~ /^\!/ } @nets), undef, undef, undef) {
|
|
$tx .= "<tr><td $style valign=top>".&group_input("net_$i", $n, 1)."</td></tr>";
|
|
$i++;
|
|
}
|
|
$tx .= "</table></td>";
|
|
|
|
$tx .= "<td class='ui_form_label' valign=top> <b>$text{'nat_excl'}</b></td>";
|
|
$tx .= "<td class='ui_form_value' $style valign=top><table $style>";
|
|
$i = 0;
|
|
foreach $n ((grep { $_ =~ /^\!/ } @nets), undef, undef, undef) {
|
|
$tx .= "<tr><td $style valign=top>".&group_input("excl_$i", $n =~ /^\!(.*)/ ? $1 : undef, 1)."</td></tr>";
|
|
$i++;
|
|
}
|
|
$tx .= "</table></td>";
|
|
$tx .= "</td></tr></table>";
|
|
|
|
print &ui_table_row($text{'nat_nets'}, $tx, undef, ["valign=top","valign=top"]);
|
|
|
|
$tx = "<table $style>";
|
|
$tx .= "<tr><td $style valign=top><b>$text{'nat_ext'}</b></td>".
|
|
"<td $style valign=top> <b>$text{'nat_int'}</b></td>".
|
|
"<td $style valign=top> <b>$text{'nat_virt'}</b></td></tr>";
|
|
$i = 0;
|
|
foreach $m (@maps, [ ], [ ], [ ]) {
|
|
$tx .= "<tr>";
|
|
$tx .= "<td class='ui_form_value' $style>".&ui_textbox("ext_".$i, $m->[0], 20)."</td>",
|
|
$tx .= "<td class='ui_form_value' $style> ".&group_input("int_$i", $m->[1], 1)."</td>";
|
|
$tx .= "<td class='ui_form_value' $style> ".&iface_input("virt_$i", $m->[2], 1, 1, 1)."</td>";
|
|
$tx .= "</tr>";
|
|
$i++;
|
|
}
|
|
$tx .= "</table>";
|
|
|
|
print &ui_table_row($text{'nat_maps'}."</b><br>".$text{'nat_mapsdesc'}."<b>", $tx, undef, ["valign=top","valign=top"]);
|
|
|
|
print &ui_table_end();
|
|
print "<p>";
|
|
print &ui_submit($text{'save'});
|
|
print &ui_form_end(undef,undef,1);
|
|
&can_edit_disable("nat");
|
|
|
|
print &ui_hr();
|
|
&footer("", $text{'index_return'});
|