- 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)

1 files changed, 0 insertions, 107 deletions

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index d05200581..0be5aa473 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -1072,111 +1072,4 @@ sub selected_leaves {
     [ map { $_->name } grep { ! exists $required_ids{$_->id} } @l ];    
 }
 
-sub naughtyServers_list {
-    my ($quiet) = @_;
-
-    my @_old_81 = qw(
-freeswan
-);
-    my @_old_82 = qw(
-vnc-server
-postgresql-server
-);
-
-    my @_old_92 = qw(
-postfix ypbind bind ibod
-);
-
-    my @_removed_92 = qw(
-mcserv
-samba
-lpr
-);
-
-    my @_moved_to_contrib_92 = qw(
-boa
-LPRng
-wu-ftpd
-am-utils
-);
-
-    my @new_80 = qw(
-jabber
-am-utils
-boa
-cups
-drakxtools-http
-finger-server
-imap
-leafnode
-ntp
-openssh-server
-pidentd
-proftpd
-rwall
-squid
-webmin
-wu-ftpd
-);
-
-    my @new_81 = qw(
-ftp-server-krb5
-telnet-server-krb5
-ypserv
-);
-
-    my @new_82 = qw(
-LPRng
-inn
-netatalk
-nfs-utils
-rusers-server
-samba-swat
-tftp-server
-ucd-snmp
-);
-
-    my @new_92 = qw(
-clusternfs
-gkrellm-server
-mon
-net-snmp
-openldap-servers
-samba-server
-saned
-vsftpd
-);
-
-    my @new_2006 = qw(
-apache-conf
-bpalogin
-cfengine-cfservd
-freeradius
-mDNSResponder
-openslp
-pxe
-routed
-sendmail
-spamassassin-spamd
-);
-
-    my @not_warned = qw(
-lisa
-nfs-utils-clients
-portmap
-howl
-); # X server
-
-    (@new_80, @new_81, @new_82, @new_92, @new_2006, if_(!$quiet, @not_warned));
-}
-
-sub naughtyServers {
-    my ($packages) = @_;
-
-    grep {
-	my $p = packageByName($packages, $_);
-	$p && $p->flag_selected;
-    } naughtyServers_list('quiet');
-}
-
 1;