Re: La commande INFO

[Olivier LACROIX <adresse@cachée>]

Dans son message, Thierry Pretet ecrivait :
----------------------------------------------

*> 
*> Bonjour,
*> 
*> Avec sympa-008, la commande "INFO list" ne fonctionne pas très bien :
*> 
*> En fonctionnement normal, sympa envoie au demandeur deux fois le fichier
*> d'information de la liste puis se plante.
*> 
*> En mode debug, sympa envoie deux fois le fichier, affiche au passage "Open
*> : 2" mais ne se plante pas.
*> 
*> Etant un débutant en Perl, j'ai un peu de mal à aller plus loin.
*> 
*> --------------------- adresse@cachée --------------------
*>        Centre de Ressource Informatique - Universite de la Reunion
*>     Tel : 0262938303   Fax : 0262938260     From abroad : +262 938303
*> 
*> 

Bonjour.

L'envoi des 2 messages vient d'un double appel de la commande "$list->
send_file('welcome', $sender)" dans la fonction info du fichier Command.pm. 
Ci-dessous le patch, qui corrige cela.

Pour le plantage, je ne vois pas, car l'erreur ne devrait pas avoir 
d'influence sur sympa. Il faut chercher ailleurs.

*** Commands.pm.orig	Mon Nov 17 11:33:03 1997
--- Commands.pm	Thu Nov 27 14:46:52 1997
***************
*** 415,421 ****
  
     my $list = new List ($which);
  
!    unless ($list && $list->send_file('welcome', $sender)){
        printf Msg(6, 5, "List %s not found.\n"), $which;
        return;
     }
--- 415,421 ----
  
     my $list = new List ($which);
  
!    unless ($list){
        printf Msg(6, 5, "List %s not found.\n"), $which;
        return;
     }

 Olivier LACROIX

 C.I.R.I.L.
 Chateau du Montet      |  Tel   : +33 (0) 3-83-44-74-29
 Rue du Doyen Roubault  |  Fax   : +33 (0) 3-83-44-02-62
 F - 54500 VANDOEUVRE   |  email : adresse@cachée