From 59f37fb43fa5490eebf56f2bb46d66df5c6441d7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 30 Aug 2001 20:43:56 +0000 Subject: (naughtyServers): update for 8.1 --- perl-install/pkgs.pm | 50 ++++++++++++++++++++++++++++++++++++++++++++++---- 1 file changed, 46 insertions(+), 4 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 95c61c589..756ca1800 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1561,10 +1561,52 @@ sub selected_leaves { sub naughtyServers { my ($packages) = @_; - my @naughtyServers = qw(FreeWnn MySQL am-utils boa cfengine cups -finger-server freeswan imap jabber leafnode lpr mon ntp apache -openssh-server pidentd postfix postgresql-server proftpd rwall rwho -telnet-server webmin wu-ftpd ypbind drakxtools-http); # portmap nfs-utils-clients + my @old = qw( +freeswan +jabber +); + # boa ?? + my @sure = qw( +FreeWnn +MySQL +am-utils +apache +boa +cfengine +cups +drakxtools-http +finger-server +imap +leafnode +lpr +mon +ntp +openssh-server +pidentd +postfix +postgresql-server +proftpd +rwall +rwho +squid +webmin +wu-ftpd +ypbind +); # nfs-utils-clients portmap + # /usr/bin/kdm, X server, xdm + + my @new = qw( +apache-mod_perl +ftp-server-krb5 +mcserv +mysql +samba +telnet-server-krb5 +vnc-server +ypserv +); + + my @naughtyServers = (@new, @sure); grep { my $p = packageByName($packages, $_); -- cgit v1.2.1