summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-14 12:56:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-14 12:56:08 +0000
commit7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37 (patch)
treea3ba84e320f83c60eb82fcd06493b3accc202e51 /perl-install
parent2761f46c6c45794d0ee7da23af0389f9128f62f4 (diff)
downloaddrakx-7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37.tar
drakx-7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37.tar.gz
drakx-7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37.tar.bz2
drakx-7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37.tar.xz
drakx-7c20ad554c7b8f754f673cf5f4ebbf5dbd47ab37.zip
- add "Services" and "Firewall" in summary
- rework a little summary & summary_prompt
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm40
1 files changed, 33 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index adf72a21e..257b57c4a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -830,7 +830,7 @@ sub summaryBefore {
}
sub summary_prompt {
- my ($o, $l) = @_;
+ my ($o, $l, $check_complete) = @_;
($_->{format}, $_->{val}) = ($_->{val}, '') foreach @$l;
@@ -838,6 +838,7 @@ sub summary_prompt {
messages => N("Summary"),
interactive_help_id => 'summary',
cancel => '',
+ callbacks => { complete => sub { !$check_complete->() } },
}, $l);
}
@@ -956,13 +957,38 @@ sub summary {
},
};
- while (1) {
- $o->summary_prompt(\@l);
+ push @l, {
+ label => N("Firewall"),
+ val => sub {
+ require network::shorewall;
+ my $shorewall = network::shorewall::read();
+ $shorewall && !$shorewall->{disabled} ? N("activated") : N("disabled");
+ },
+ clicked => sub {
+ require network::drakfirewall;
+ network::drakfirewall::main($o, $o->{security} <= 3);
+ },
+ } if detect_devices::getNet();
- last if
- $o->{raw_X} || !pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed ||
- $o->ask_yesorno('', N("You have not configured X. Are you sure you really want this?"));
- }
+ push @l, {
+ label => N("Services"),
+ val => sub {
+ require services;
+ my ($l, $activated) = services::services();
+ N("Services: %d activated for %d registered", int(@$activated), int(@$l));
+ },
+ clicked => sub {
+ require services;
+ $o->{services} = services::ask($o) and services::doit($o, $o->{services});
+ },
+ };
+
+ my $check_complete = sub {
+ $o->{raw_X} || !pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed ||
+ $o->ask_yesorno('', N("You have not configured X. Are you sure you really want this?"));
+ };
+
+ $o->summary_prompt(\@l, $check_complete);
install_steps::configureTimezone($o) if !$timezone_manually_set; #- do not forget it.
}