File: gentoo-linux-lib.pl

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 (27 lines) | stat: -rw-r--r-- 644 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# 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;