1 # coherant-linux-lib.pl
2 # Deal with redhat's /etc/sysconfig/iptables save file and startup script
4 &foreign_require("init", "init-lib.pl");
5 $init_script = "$init::config{'init_dir'}/iptables";
8 # Returns an error message if something is wrong with iptables on this system
11 if (!-r $init_script) {
12 return &text('coherent_escript', "<tt>$init_script</tt>");
14 if (!$config{'done_check_iptables'}) {
15 local $out = `$init_script status 2>&1`;
16 if ($out !~ /table:|INPUT|FORWARD|OUTPUT/) {
17 return &text('coherent_eoutput',
18 "<tt>$init_script status</tt>");
20 $config{'done_check_iptables'} = 1;
21 &save_module_config();
26 $iptables_save_file = "/etc/sysconfig/iptables";
29 # Applies the current iptables configuration from the save file
32 local $out = &backquote_logged("cd / ; $init_script restart 2>&1");
33 $out =~ s/\033[^m]+m//g;
34 return $? || $out =~ /FAILED/ ? "<pre>$out</pre>" : undef;
38 # Writes the current iptables configuration to the save file
41 $out = &backquote_logged("cd / ; $init_script save 2>&1 </dev/null");
42 $out =~ s/\033[^m]+m//g;
43 return $? || $out =~ /FAILED/ ? "<pre>$out</pre>" : undef;
49 return &init::action_status("iptables") == 2;
54 &init::enable_at_boot("iptables"); # Assumes init script exists
59 &init::disable_at_boot("iptables");