projects
/
webmin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Handle hostnames with upper-case letters
[webmin.git]
/
shorewall
/
clear.cgi
1
#!/usr/local/bin/perl
2
# clear.cgi
3
# Clear out all rules
4
5
require './shorewall-lib.pl';
6
if ($access{'nochange'}) {
7
&redirect("/");
8
exit 0;
9
}
10
11
&error_setup($text{'clear_err'});
12
$out = &backquote_logged("$config{'shorewall'} clear 2>&1");
13
if ($?) {
14
&error("<pre>$out</pre>");
15
}
16
&webmin_log("clear");
17
&redirect("");
18