diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-27 14:12:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-27 14:12:58 +0000 |
| commit | f7d01273f208726f899eef4fa323cf7d99653fe0 (patch) | |
| tree | 0632c260ef3e64dc07515871d23df88a1fd03e72 /perl-install/install_any.pm | |
| parent | 7b373f93136b9ec685413cd220385815b41d9d4e (diff) | |
| download | drakx-backup-do-not-use-f7d01273f208726f899eef4fa323cf7d99653fe0.tar drakx-backup-do-not-use-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.gz drakx-backup-do-not-use-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.bz2 drakx-backup-do-not-use-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.xz drakx-backup-do-not-use-f7d01273f208726f899eef4fa323cf7d99653fe0.zip | |
warnAboutNaughtyServers
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 18 |
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) = @_; |