summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-27 14:12:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-27 14:12:58 +0000
commitf7d01273f208726f899eef4fa323cf7d99653fe0 (patch)
tree0632c260ef3e64dc07515871d23df88a1fd03e72 /perl-install/install_any.pm
parent7b373f93136b9ec685413cd220385815b41d9d4e (diff)
downloaddrakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.gz
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.bz2
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.xz
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.zip
warnAboutNaughtyServers
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3876cff74..f884691b9 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -366,6 +366,24 @@ sub unselectMostPackages {
pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}};
}
+sub warnAboutNaughtyServers {
+ my ($o) = @_;
+ my @naughtyServers = pkgs::naughtyServers($o->{packages}) or return 1;
+ if (!$o->ask_yesorno('',
+formatAlaTeX(_("You have selected the following server(s): %s
+
+
+These servers are activated by default. They don't have any known security
+issues, but some new could be found. In that case, you must make sure to upgrade
+as soon as possible.
+
+
+Do you really want to install these servers?
+", join(", ", @naughtyServers))), 1)) {
+ pkgs::unselectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_)) foreach @naughtyServers;
+ }
+}
+
sub addToBeDone(&$) {
my ($f, $step) = @_;