45f056b829
Fix CVE-2008-1648 (denial of service) Several new translations (some of them disabled, because of missing locale support on NetBSD-3). Introduction of HTTP session in order to replace a lot of cookies, for better usability and security. This also allows some new features, from listing active session in admin page to crawler detection. per list custom user attributes (defined by the list owner) per list custom list parameters for use in authorization scenarios and mail templates LDAP alias manager can now be LDAPS XSS protection Session hijacking protection The performances mainly regarding the web interface have been significantly improved. new SOAP features allow remote list creation, ADD and DEL of list members Automatic list creation when a message is sent for the list. each operations that changes the status of messages/subscriptions/list config is now logged in a structured DB entry. Generalization of UTF-8 and more ... See http://www.sympa.org/ for complete list.
75 lines
2.2 KiB
Text
75 lines
2.2 KiB
Text
$NetBSD: patch-ab,v 1.4 2008/04/27 17:06:40 bouyer Exp $
|
|
|
|
--- check_perl_modules.pl.orig 2008-03-27 17:41:49.000000000 +0100
|
|
+++ check_perl_modules.pl 2008-04-27 14:20:25.000000000 +0200
|
|
@@ -180,69 +180,7 @@
|
|
# Install a CPAN module
|
|
##----------------------
|
|
sub install_module {
|
|
- my ($module, $options) = @_;
|
|
-
|
|
- my $default = $options->{'default'};
|
|
-
|
|
- unless ($ENV{'FTP_PASSIVE'} eq 1) {
|
|
- $ENV{'FTP_PASSIVE'} = 1;
|
|
- print "Setting FTP Passive mode\n";
|
|
- }
|
|
-
|
|
- ## This is required on RedHat 9 for DBD::mysql installation
|
|
- my $lang = $ENV{'LANG'};
|
|
- $ENV{'LANG'} = 'C' if ($ENV{'LANG'} =~ /UTF\-8/);
|
|
-
|
|
- unless ($> == 0) {
|
|
- print "\#\# You need root privileges to install $module module. \#\#\n";
|
|
- print "\#\# Press the Enter key to continue checking modules. \#\#\n";
|
|
- my $t = <STDIN>;
|
|
- return undef;
|
|
- }
|
|
-
|
|
- unless ($options->{'force'}) {
|
|
- printf "Description: %s\n", $opt_features{$module};
|
|
- print "Install module $module ? [$default]";
|
|
- my $answer = <STDIN>; chomp $answer;
|
|
- $answer ||= $default;
|
|
- return unless ($answer =~ /^y$/i);
|
|
- }
|
|
-
|
|
- $CPAN::Config->{'inactivity_timeout'} = 4;
|
|
- $CPAN::Config->{'colorize_output'} = 1;
|
|
-
|
|
- #CPAN::Shell->clean($module) if ($options->{'force'});
|
|
-
|
|
- CPAN::Shell->make($module);
|
|
-
|
|
- if ($options->{'force'}) {
|
|
- CPAN::Shell->force('test', $module);
|
|
- }else {
|
|
- CPAN::Shell->test($module);
|
|
- }
|
|
-
|
|
-
|
|
- CPAN::Shell->install($module); ## Could use CPAN::Shell->force('install') if make test failed
|
|
-
|
|
- ## Check if module has been successfuly installed
|
|
- unless (&test_module($module) == 1) {
|
|
-
|
|
- ## Prevent recusive calls if already in force mode
|
|
- if ($options->{'force'}) {
|
|
- print "Installation of $module still FAILED. You should download the tar.gz from http://search.cpan.org and install it manually.";
|
|
- my $answer = <STDIN>;
|
|
- }else {
|
|
- print "Installation of $module FAILED. Do you want to force the installation of this module? (y/N) ";
|
|
- my $answer = <STDIN>; chomp $answer;
|
|
- if ($answer =~ /^y/i) {
|
|
- &install_module($module, {'force' => 1});
|
|
- }
|
|
- }
|
|
- }
|
|
-
|
|
- ## Restore lang
|
|
- $ENV{'LANG'} = $lang if (defined $lang);
|
|
-
|
|
+ 1;
|
|
}
|
|
|
|
###--------------------------
|