summaryrefslogtreecommitdiffstats
path: root/perl-install/tinyfirewall.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-16 03:52:15 +0000
committerdamien <damien@mandriva.com>2001-04-16 03:52:15 +0000
commitd3eadfbba415ef48e28706c293094c1230522499 (patch)
tree4d5741be5551734905382f79647fdeb3cab46883 /perl-install/tinyfirewall.pm
parentc646d611456ac980c6034fce5421b08898d57227 (diff)
downloaddrakx-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/tinyfirewall.pm')
-rw-r--r--perl-install/tinyfirewall.pm23
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);
}