From f7d01273f208726f899eef4fa323cf7d99653fe0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 27 Mar 2001 14:12:58 +0000
Subject: warnAboutNaughtyServers

---
 perl-install/install_any.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'perl-install/install_any.pm')

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) = @_;
 
-- 
cgit v1.2.1