summaryrefslogtreecommitdiffstats
path: root/perl-install/tinyfirewall.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-28 01:28:33 +0000
committerdamien <damien@mandriva.com>2001-03-28 01:28:33 +0000
commitea41d6294e7f9ff15466b88263b3dfa5d93dca7c (patch)
tree7c481bbdbe3f8bc7cf5b383142229816ae66d742 /perl-install/tinyfirewall.pm
parentd15bb26152a6c03279b3cace95e80ce27053d558 (diff)
downloaddrakx-backup-do-not-use-ea41d6294e7f9ff15466b88263b3dfa5d93dca7c.tar
drakx-backup-do-not-use-ea41d6294e7f9ff15466b88263b3dfa5d93dca7c.tar.gz
drakx-backup-do-not-use-ea41d6294e7f9ff15466b88263b3dfa5d93dca7c.tar.bz2
drakx-backup-do-not-use-ea41d6294e7f9ff15466b88263b3dfa5d93dca7c.tar.xz
drakx-backup-do-not-use-ea41d6294e7f9ff15466b88263b3dfa5d93dca7c.zip
workaround to make it work if kernel 2.4
Diffstat (limited to 'perl-install/tinyfirewall.pm')
-rw-r--r--perl-install/tinyfirewall.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 8827e358f..9d871228b 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -133,6 +133,11 @@ my $popimap = sub {
my $quit = sub {
$_[0] or $in->exit(0);
SaveConfig();
+ system($_) foreach ("/bin/cp /usr/share/Bastille/bastille-ipchains /usr/share/Bastille/bastille-netfilter /sbin",
+ "/bin/cp /usr/share/Bastille/bastille-firewall /etc/rc.d/init.d/",
+ "/bin/chmod 0700 /etc/rc.d/init.d/bastille-firewall", "/bin/chmod 0700 /sbin/bastille-ipchains",
+ "/bin/chmod 0700 /sbin/bastille-netfilter", "/sbin/chkconfig bastille-firewall on",
+ "/etc/rc.d/init.d/bastille-firewall stop", "/etc/rc.d/init.d/bastille-firewall start");
$in->exit(0);
return;
$_[0] or $in->exit(0);
@@ -143,7 +148,7 @@ my $popimap = sub {
s/\".*\"/\"$a\"/;
}
} $config_file;
- map { system($_) } ("/bin/cp /usr/share/Bastille/bastille-ipchains /usr/share/Bastille/bastille-netfilter /sbin",
+ system($_) foreach ("/bin/cp /usr/share/Bastille/bastille-ipchains /usr/share/Bastille/bastille-netfilter /sbin",
"/bin/cp /usr/share/Bastille/bastille-firewall /etc/rc.d/init.d/",
"/bin/chmod 0700 /etc/rc.d/init.d/bastille-firewall", "/bin/chmod 0700 /sbin/bastille-ipchains",
"/bin/chmod 0700 /sbin/bastille-netfilter", "/sbin/chkconfig bastille-firewall on",
@@ -162,7 +167,7 @@ my $popimap = sub {
[undef , "No I don't need NTP", "Yes I need NTP", $ntp ],
[undef , "Don't Save", "Save & Quit", $quit ]
);
- !Kernel22() and pop @struct, pop @struct;
+ if (!Kernel22()) { pop @struct; pop @struct; pop @struct; @struct = ( @struct, [undef , "Don't Save", "Save & Quit", $quit ] ) }
for (my $i=0;$i<@struct;$i++) {
$::Wizard_no_previous = $i == 0;
$::Wizard_finished = $i == $#struct;