diff options
| author | damien <damien@mandriva.com> | 2001-03-28 01:28:33 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-28 01:28:33 +0000 |
| commit | ea41d6294e7f9ff15466b88263b3dfa5d93dca7c (patch) | |
| tree | 7c481bbdbe3f8bc7cf5b383142229816ae66d742 /perl-install/tinyfirewall.pm | |
| parent | d15bb26152a6c03279b3cace95e80ce27053d558 (diff) | |
| download | drakx-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.pm | 9 |
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; |