#!/usr/bin/perl # list_nat.cgi # Show NAT enable form require './itsecur-lib.pl'; &can_use_error("nat2"); &header($text{'nat2_title'}, "", undef, undef, undef, undef, &apply_button()); print "
\n"; print "
\n"; print "\n"; print "\n"; print "
$text{'nat_header'}
\n"; ($iface, @nets) = &get_nat($nat2_file); @maps = grep { ref($_) } @nets; @nets = grep { !ref($_) } @nets; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; 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 "
$text{'nat_nets'}\n"; $i = 0; foreach $n ((grep { $_ !~ /^\!/ } @nets), undef, undef, undef) { print "\n"; $i++; } print "
",&group_input("net_$i", $n, 1),"
$text{'nat_excl'}\n"; $i = 0; foreach $n ((grep { $_ =~ /^\!/ } @nets), undef, undef, undef) { print "\n"; $i++; } print "
",&group_input("excl_$i", $n =~ /^\!(.*)/ ? $1 : undef, 1),"
$text{'nat_maps'}", "
$text{'nat_mapsdesc'}
\n"; print "\n"; print " ", " ", "\n"; $i = 0; foreach $m (@maps, [ ], [ ], [ ]) { print "\n"; printf "\n", $i, $m->[0]; printf "\n", $i, $m->[1]; print "\n"; print "\n"; $i++; } print "
$text{'nat_ext'}$text{'nat_int'}$text{'nat_virt'}
",&iface_input("virt_$i", $m->[2], 1, 1, 1),"
\n"; print "
\n"; &can_edit_disable("nat"); print "
\n"; &footer("", $text{'index_return'});