\n";
+print &ui_hr();
+print &ui_form_start("save_nat2.cgi","post");
+print &ui_table_start($text{'nat_header'},undef,2);
-($iface, @nets) = &get_nat($nat2_file);
-@maps = grep { ref($_) } @nets;
-@nets = grep { !ref($_) } @nets;
-print " | $text{'nat_desc'} | \n";
-printf " %s \n",
- $iface ? "" : "checked", $text{'nat_disabled'};
-printf " %s\n",
- $iface ? "checked" : "", $text{'nat_enabled'};
-print &iface_input("iface", $iface);
-print " | \n";
+my ($iface, @nets) = &get_nat($nat2_file);
+my @maps = grep { ref($_) } @nets;
+my @nets = grep { !ref($_) } @nets;
-print " | $text{'nat_nets'} | \n";
-print "\n";
-$i = 0;
+print &ui_table_row($text{'nat_desc'},
+ &ui_radio("nat", ( $iface ? 1 : 0 ), [
+ [0,$text{'nat_disabled'}." "],[1,$text{'nat_enabled'}]
+ ]).&iface_input("iface", $iface) );
+
+
+my $style = "style='margin:0;padding:0;'";
+my $tx = "";
+$tx .= "";
+$tx .= "";
+my $i = 0;
foreach $n ((grep { $_ !~ /^\!/ } @nets), undef, undef, undef) {
- print " | ",&group_input("net_$i", $n, 1)," | \n";
+ $tx .= "| ".&group_input("net_$i", $n, 1)." | ";
$i++;
}
-print " | \n";
+$tx .= " ";
-print "$text{'nat_excl'} | \n";
-print "\n";
+$tx .= "| $text{'nat_excl'} | ";
+$tx .= "";
$i = 0;
foreach $n ((grep { $_ =~ /^\!/ } @nets), undef, undef, undef) {
- print " | ",&group_input("excl_$i", $n =~ /^\!(.*)/ ? $1 : undef, 1)," | \n";
+ $tx .= "| ".&group_input("excl_$i", $n =~ /^\!(.*)/ ? $1 : undef, 1)." | ";
$i++;
}
-print " | \n";
+$tx .= " | ";
+$tx .= " ";
-print " | $text{'nat_maps'}",
- " $text{'nat_mapsdesc'} | \n";
-print "\n";
-print " | $text{'nat_ext'} | ",
- "$text{'nat_int'} | ",
- "$text{'nat_virt'} | \n";
+print &ui_table_row($text{'nat_nets'}, $tx, undef, ["valign=top","valign=top"]);
+
+$tx = "";
+$tx .= "| $text{'nat_ext'} | ".
+ " $text{'nat_int'} | ".
+ " $text{'nat_virt'} | ";
$i = 0;
foreach $m (@maps, [ ], [ ], [ ]) {
- print "\n";
- printf " | \n",
- $i, $m->[0];
- printf " | \n",
- $i, $m->[1];
- print "",&iface_input("virt_$i", $m->[2], 1, 1, 1)," | \n";
- print " \n";
+ $tx .= "";
+ $tx .= "| ".&ui_textbox("ext_".$i, $m->[0], 20)." | ",
+ $tx .= " ".&ui_textbox("int_".$i, $m->[0], 20)." | ";
+ $tx .= " ".&iface_input("virt_$i", $m->[2], 1, 1, 1)." | ";
+ $tx .= " ";
$i++;
}
-print " \n";
+$tx .= " ";
+
+print &ui_table_row($text{'nat_maps'}." ".$text{'nat_mapsdesc'}."", $tx, undef, ["valign=top","valign=top"]);
+
+
+print &ui_table_end();
+print "";
+print &ui_submit($text{'save'});
+print &ui_form_end(undef,undef,1);
-print " | |