summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-27 14:12:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-27 14:12:58 +0000
commitf7d01273f208726f899eef4fa323cf7d99653fe0 (patch)
tree0632c260ef3e64dc07515871d23df88a1fd03e72 /perl-install/pkgs.pm
parent7b373f93136b9ec685413cd220385815b41d9d4e (diff)
downloaddrakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.gz
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.bz2
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.tar.xz
drakx-f7d01273f208726f899eef4fa323cf7d99653fe0.zip
warnAboutNaughtyServers
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm15
1 files changed, 15 insertions, 0 deletions
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;