mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
29 lines
649 B
Perl
Executable File
29 lines
649 B
Perl
Executable File
#!/usr/bin/perl
|
|
# save_pat.cgi
|
|
# Save incoming forwarded ports
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_edit_error("pat");
|
|
&ReadParse();
|
|
&lock_itsecur_files();
|
|
|
|
&error_setup($text{'pat_err'});
|
|
for($i=0; defined($s = $in{"service_$i"}); $i++) {
|
|
next if (!$s);
|
|
$h = $in{"host_$i"};
|
|
gethostbyname($h) || &error(&text('pat_ehost', $i+1));
|
|
$iface = $in{"iface_$i"};
|
|
$iface eq "" || $iface =~ /^[a-z0-9:\.]+$/ ||
|
|
&error(&text('pat_eiface', $i+1));
|
|
push(@forwards, { 'service' => $s,
|
|
'host' => $h,
|
|
'iface' => $iface });
|
|
}
|
|
|
|
&automatic_backup();
|
|
&save_pat(@forwards);
|
|
&unlock_itsecur_files();
|
|
&remote_webmin_log("update", "pat");
|
|
&redirect("");
|
|
|