Files
webmin/ipfw/unapply.cgi
2007-04-12 20:24:50 +00:00

12 lines
263 B
Perl
Executable File

#!/usr/local/bin/perl
# unapply.cgi
# Copy the active firewall configuration to the save file
require './ipfw-lib.pl';
&lock_file($ipfw_file);
&system_logged("$config{'ipfw'} list > $ipfw_file");
&unlock_file($ipfw_file);
&webmin_log("unapply");
&redirect("");