File: unapply.cgi

package info (click to toggle)
webmin-extra 1.180-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 12,324 kB
  • ctags: 1,200
  • sloc: perl: 39,117; makefile: 125
file content (20 lines) | stat: -rwxr-xr-x 488 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/local/bin/perl
# unapply.cgi
# Revert the firewall configuration from the kernel settings

require './firewall-lib.pl';
&ReadParse();
$access{'unapply'} || &error($text{'unapply_ecannot'});
&error_setup($text{'apply_err'});
if (defined(&unapply_iptables)) {
	# Call distro's unapply command
	$err = &unapply_iptables();
	}
else {
	# Manually run iptables-save
	$err = &iptables_save();
	}
&error($err) if ($err);
&webmin_log("unapply");
&redirect("index.cgi?table=$in{'table'}");