mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 09:12:05 +00:00
28 lines
644 B
Perl
28 lines
644 B
Perl
# gentoo-linux-lib.pl
|
|
# Deal with gentoo's IPtables save file
|
|
|
|
# check_iptables()
|
|
# Returns an error message if something is wrong with iptables on this system
|
|
sub check_iptables
|
|
{
|
|
if (!-r "/etc/init.d/iptables") {
|
|
return &text('gentoo_escript', "<tt>/etc/init.d/iptables</tt>");
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
local %iptconf;
|
|
&read_env_file("/etc/conf.d/iptables", \%iptconf);
|
|
$iptables_save_file = $iptconf{'IPTABLES_SAVE'};
|
|
|
|
# apply_iptables()
|
|
# Applies the current iptables configuration from the save file
|
|
sub apply_iptables
|
|
{
|
|
local $out = &backquote_logged("cd / ; /etc/init.d/iptables restart 2>&1");
|
|
return $? ? "<pre>$out</pre>" : undef;
|
|
}
|
|
|
|
1;
|
|
|