summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-30 09:58:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-30 09:58:41 +0000
commit031e219d4c39a12371e76b223a43b17c1817e442 (patch)
tree8caaf41e8bd4667bb947f17a5bb77071e40fe23a /perl-install/install/any.pm
parenta3e8a4b9f854543d0962d7731f85505f0bdd47a5 (diff)
downloaddrakx-031e219d4c39a12371e76b223a43b17c1817e442.tar
drakx-031e219d4c39a12371e76b223a43b17c1817e442.tar.gz
drakx-031e219d4c39a12371e76b223a43b17c1817e442.tar.bz2
drakx-031e219d4c39a12371e76b223a43b17c1817e442.tar.xz
drakx-031e219d4c39a12371e76b223a43b17c1817e442.zip
- do not warn about "servers which open ports on outside by default"
(the list of servers is not maintained, and the policy for those servers has changed)
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm23
1 files changed, 0 insertions, 23 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index a183312e6..8edef5c9c 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -575,29 +575,6 @@ sub unselectMostPackages {
select_default_packages($o);
}
-sub warnAboutNaughtyServers {
- my ($o) = @_;
- my @naughtyServers = install::pkgs::naughtyServers($o->{packages}) or return 1;
- my $r = $o->ask_from_list_('',
-formatAlaTeX(
- #-PO: keep the double empty lines between sections, this is formatted a la LaTeX
- N("You have selected the following server(s): %s
-
-
-These servers are activated by default. They do not have any known security
-issues, but some new ones 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))), [ N_("Yes"), N_("No") ], 'Yes') or return;
- if ($r ne 'Yes') {
- log::l("unselecting naughty servers: " . join(' ', @naughtyServers));
- install::pkgs::unselectPackage($o->{packages}, install::pkgs::packageByName($o->{packages}, $_)) foreach @naughtyServers;
- }
- 1;
-}
-
sub warnAboutRemovedPackages {
my ($o, $packages) = @_;
my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return;