mirror of
https://github.com/webmin/webmin.git
synced 2026-02-22 14:07:36 +00:00
40 lines
1.2 KiB
Perl
Executable File
40 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# list_pat.cgi
|
|
# Show table of incoming forwarded ports
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_use_error("pat");
|
|
&header($text{'pat_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
print "<hr>\n";
|
|
|
|
@forwards = &get_pat();
|
|
print "<form action=save_pat.cgi>\n";
|
|
print "<table border>\n";
|
|
print "<tr $tb> <td><b>$text{'pat_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table>\n";
|
|
|
|
print "<tr> <td valign=top><b>$text{'pat_forward'}</b></td> ",
|
|
"<td><table border>\n";
|
|
print "<tr $tb> <td><b>$text{'pat_service'}</b></td> ",
|
|
"<td><b>$text{'pat_host'}</b></td> ",
|
|
"<td><b>$text{'pat_iface'}</b></td> </tr>\n";
|
|
$j = 0;
|
|
foreach $f (@forwards, { }, { }, { }) {
|
|
print "<tr $cb>\n";
|
|
print "<td>",&service_input("service_$j", $f->{'service'}, 1),"</td>\n";
|
|
print "<td><input name=host_$j size=30 value='$f->{'host'}'></td>\n";
|
|
print "<td>",&iface_input("iface_$j", $f->{'iface'},
|
|
0, 1, 1),"</td>\n";
|
|
print "</tr>\n";
|
|
$j++;
|
|
}
|
|
print "</table></td> </tr>\n";
|
|
|
|
print "</table></td></tr></table>\n";
|
|
print "<input type=submit value='$text{'save'}'></form>\n";
|
|
&can_edit_disable("pat");
|
|
|
|
print "<hr>\n";
|
|
&footer("", $text{'index_return'});
|