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/pkgs.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e5e17923b..d17f74407 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1495,4 +1495,19 @@ sub selected_leaves {
     } grep { $l{$_} } keys %l ];
 }
 
+
+sub naughtyServers {
+    my ($packages) = @_;
+
+    my @naughtyServers = qw(FreeWnn MySQL am-utils boa cfengine cups
+finger-server freeswan imap jabber leafnode lpr mon ntp
+openssh-server pidentd postfix postgresql-server proftpd rwall rwho
+telnet-server webmin wu-ftpd ypbind); # portmap nfs-utils-clients
+
+    grep {
+	my $p = packageByName($packages, $_);
+	$p && packageFlagSelected($p);
+    } @naughtyServers;
+}
+
 1;
-- 
cgit v1.2.1