diff options
| author | damien <damien@mandriva.com> | 2001-04-16 03:52:15 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-16 03:52:15 +0000 |
| commit | d3eadfbba415ef48e28706c293094c1230522499 (patch) | |
| tree | 4d5741be5551734905382f79647fdeb3cab46883 /perl-install | |
| parent | c646d611456ac980c6034fce5421b08898d57227 (diff) | |
| download | drakx-backup-do-not-use-d3eadfbba415ef48e28706c293094c1230522499.tar drakx-backup-do-not-use-d3eadfbba415ef48e28706c293094c1230522499.tar.gz drakx-backup-do-not-use-d3eadfbba415ef48e28706c293094c1230522499.tar.bz2 drakx-backup-do-not-use-d3eadfbba415ef48e28706c293094c1230522499.tar.xz drakx-backup-do-not-use-d3eadfbba415ef48e28706c293094c1230522499.zip | |
corrected package installation
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/tinyfirewall.pm | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm index cd29ca6e2..e3c2effcd 100644 --- a/perl-install/tinyfirewall.pm +++ b/perl-install/tinyfirewall.pm @@ -145,13 +145,6 @@ sub DoInterface { my (undef, undef, @netstat) = `/bin/netstat -in`; $settings{DHCP_IFACES} = join(' ', split(' ', $settings{DHCP_IFACES}), map { /(\S+)/ } @netstat ); } else { $settings{DHCP_IFACES} = "" } }; - my $install = sub { - if ($in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables", "Bastille")) { - $in->ask_warn('', _("Failure installing the needed packages : %s and Bastille. - Try to install them manually.", Kernel22() ? "ipchains" : "iptables") ); - $in->exit(0); - } - }; my $quit = sub { $_[0] or $in->exit(0); SaveConfig(); @@ -177,7 +170,7 @@ sub DoInterface { "/etc/rc.d/init.d/bastille-firewall stop", "/etc/rc.d/init.d/bastille-firewall start"); }; my @struct = ( [$GetNetworkInfo], - [undef , undef, undef, $install ], + [], [undef , undef, undef, undef, ["tcp", "80"], ["tcp", "443"]], [undef , undef, undef, undef, ["tcp", "53"], ["udp", "53"]], [undef , undef, undef, undef, ["tcp", "22"]], @@ -234,6 +227,20 @@ sub Kernel22 { } sub main { my ($in)=@_; + my $dialog = new Gtk::Dialog(); + $dialog->set_position(1); + $dialog->vbox->set_border_width(10); + my $label = new Gtk::Label(_("Please Wait... Verifying installed packages")); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); + $dialog->vbox->pack_start($label,1,1,20); + $dialog->show_all; + Gtk->main_iteration while Gtk->events_pending; + if ($in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables", "Bastille")) { + $in->ask_warn('', _("Failure installing the needed packages : %s and Bastille. + Try to install them manually.", Kernel22() ? "ipchains" : "iptables") ); + $dialog->destroy; + $in->exit(0); + } ReadConfig; DoInterface($in); } |