Re: Pb avec commande WHICH

[Olivier Salaun - CRU <adresse@cachée>]

Stephane Igounet wrote:
> La commande WHICH (dans subject) me fait planter sympa.
> 
> Quand je relance en mode debug (/sympa/bin/sympa.pl -d) j'ai le message
> suivant :
> [...]
> Parsing: WHICH
> Can't locate DBI.pm in @INC (@INC contains: /sympa/bin /sympa/bin
> /usr/lib/perl5/5.005/i386-linux /usr/lib/perl5/5.005
> /usr/local/lib/site_perl/i386-linux /usr/local/lib/site_perl /usr/lib/perl5
> .) at /sympa/bin/List.pm line 204, <IN> chunk 24.
> [...]
> Faut-il obligatoirement installer le module DBI ?

En théorie non, mais WHICH cherche à se connecter à une base.
Je joins un patch qui corrige le problème.

> P.S. : Il me semble qu'il y a une erreur de syntaxe à la page 51 de la doc.
> 
> Match([sender], /univ-rennes1\.fr\$/) smtp -> do_it
>                                 ***
> Dans le cadre de la mise en place d'un send.intranet j'ai enlever le '\'
> pour que ca marche.

Vu


Olivier Salaün
Comité Réseaux des Universités
*** List.pm.orig        Thu Mar 23 15:51:01 2000
--- List.pm     Thu Mar 23 15:51:42 2000
***************
*** 3735,3741 ****
      my $db_which = {};
  
      if (($function eq 'member') and (defined $Conf{'db_type'})) {
!       if (&probe_db()) {
            $db_which = &get_which_db($email);
        }
      }
--- 3735,3741 ----
      my $db_which = {};
  
      if (($function eq 'member') and (defined $Conf{'db_type'})) {
!       if ($List::use_db) {
            $db_which = &get_which_db($email);
        }
      }