From a32f0e2dad283f2c1a7457c6284cc12a3b648f9e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Mar 2002 15:46:04 +0000
Subject: adapt naughtyServers for 8.2

---
 perl-install/pkgs.pm | 34 +++++++++++++++++++++++++---------
 1 file changed, 25 insertions(+), 9 deletions(-)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4877dc390..74cd0b78f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1656,12 +1656,17 @@ sub selected_leaves {
 sub naughtyServers {
     my ($packages) = @_;
 
-    my @old = qw(
+    my @old_81 = qw(
 freeswan
-jabber
+);
+    my @old_82 = qw(
+vnc-server
+postgresql-server
+mon
 );
     # boa ??
-    my @sure = qw(
+    my @new_80 = qw(
+jabber
 FreeWnn
 MySQL
 am-utils
@@ -1674,12 +1679,10 @@ finger-server
 imap
 leafnode
 lpr
-mon
 ntp
 openssh-server
 pidentd
 postfix
-postgresql-server
 proftpd
 rwall
 rwho
@@ -1690,18 +1693,31 @@ ypbind
 ); # nfs-utils-clients portmap
    # X server
 
-  my @new = qw(
+    my @new_81 = qw(
 apache-mod_perl
 ftp-server-krb5
 mcserv
-mysql
 samba
 telnet-server-krb5
-vnc-server
 ypserv
 );
 
-    my @naughtyServers = (@new, @sure);
+    my @new_82 = qw(
+LPRng
+bind
+fam
+httpd-naat
+ibod
+inn
+netatalk
+nfs-utils
+rusers-server
+samba-swat
+tftp-server
+ucd-snmp
+);
+
+    my @naughtyServers = (@new_80, @new_81, @new_82);
 
     grep {
 	my $p = packageByName($packages, $_);
-- 
cgit v1.2.1