summaryrefslogtreecommitdiffstats
path: root/perl-install/tinyfirewall.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-08 03:50:24 +0000
committerdamien <damien@mandriva.com>2001-04-08 03:50:24 +0000
commitfd797552b2a0ecc1b999e0b4d7dadade63aece5a (patch)
tree724a812bd77fbeaae30c41b76e9689075e46550a /perl-install/tinyfirewall.pm
parent29b67cac16924355f2be70a136d7ff08a5cf5848 (diff)
downloaddrakx-fd797552b2a0ecc1b999e0b4d7dadade63aece5a.tar
drakx-fd797552b2a0ecc1b999e0b4d7dadade63aece5a.tar.gz
drakx-fd797552b2a0ecc1b999e0b4d7dadade63aece5a.tar.bz2
drakx-fd797552b2a0ecc1b999e0b4d7dadade63aece5a.tar.xz
drakx-fd797552b2a0ecc1b999e0b4d7dadade63aece5a.zip
added package installation
Diffstat (limited to 'perl-install/tinyfirewall.pm')
-rw-r--r--perl-install/tinyfirewall.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 739baf934..51a24d01d 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -133,6 +133,7 @@ my $popimap = sub {
my $quit = sub {
$_[0] or $in->exit(0);
SaveConfig();
+ $in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables");
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",
@@ -170,7 +171,7 @@ my $popimap = sub {
if (!Kernel22()) {
pop @struct; pop @struct; pop @struct;
@struct = ( @struct, [undef , "Don't Save", "Save & Quit", $quit ] );
- @messages[9]=@messages[11];
+ $messages[9]=$messages[11];
}
for (my $i=0;$i<@struct;$i++) {
$::Wizard_no_previous = $i == 0;