Re: add, del, bug ?

[Olivier LACROIX <adresse@cachée>]

Dans son message, Mathieu Arnold ecrivait :
----------------------------------------------
*> 
*> 
*> Mathieu Arnold wrote:
*> > 
*> > Bonjour,
*> > 
*> > J'ai un leger problème, j'ai une liste avec comme config
*> > del auth
*> > 
*> > et quand je fait un :
*> > quiet del pouet adresse@cachée
*> > 
*> > il me renvoie un message avec comme ligne d'authentification :
*> > auth 99a76dcb del pouet adresse@cachée
*> > 
*> > or, cela devrait être :
*> > auth 99a76dcb quiet del pouet adresse@cachée
*> > 
*> > non ?
*> 
*> voir même :
*> quiet auth 99a76dcb del pouet adresse@cachée
*> 
*> -- 
*> Mathieu Arnold
*> 

Bonjour.

Effectivement la commande QUIET passe à la trappe dès lors qu'il y a demande 
d'authentification.

Si vous êtes pressé d'avoir la fonctionnalité, vous trouverez ci-dessous un 
petit patch pour List.pm qui corrige l'oubli. Sinon, je pense qu'une modif 
sera intégré dans 2.7.4 (oui ?)

Pour Olivier (Salaün, je ne me m'écris pas à moi-même ;-) : plutôt que de 
rajouter un paramètre à la fonction request_auth, j'ai utilisé le fait que la 
variable $quiet était globale (ça simplifie énormément la modif).



*** List.pm.orig	Tue Aug  1 13:59:18 2000
--- List.pm	Thu Aug  3 16:59:40 2000
***************
*** 4338,4346 ****
      my $keyauth;
      my ($body, $command);
  
      if ($cmd eq 'signoff'){
  	$keyauth = compute_auth ($email, $cmd, $listname);
! 	$command = "auth $keyauth $cmd $listname $email";
          my $url = "mailto:$Conf{'sympa'}?subject=$command";
          $url =~ s/\s/%20/g;
          $body = sprintf Msg(6, 261, $msg::signoff_need_auth ),
--- 4338,4351 ----
      my $keyauth;
      my ($body, $command);
  
+     my $quietcmd = "";
+     if ($Commands::quiet) {
+       $quietcmd = "quiet";
+     }
+ 
      if ($cmd eq 'signoff'){
  	$keyauth = compute_auth ($email, $cmd, $listname);
! 	$command = "$quietcmd auth $keyauth $cmd $listname $email";
          my $url = "mailto:$Conf{'sympa'}?subject=$command";
          $url =~ s/\s/%20/g;
          $body = sprintf Msg(6, 261, $msg::signoff_need_auth ),
***************
*** 4348,4354 ****
   
      }elsif ($cmd eq 'sub'){
          $keyauth = compute_auth ($email, $cmd, $listname);
! 	$command = "auth $keyauth $cmd $listname $param[0]";
          my $url = "mailto:$Conf{'sympa'}?subject=$command";
          $url =~ s/\s/%20/g;
          $body = sprintf Msg(6, 260, $msg::subscription_need_auth)
--- 4353,4359 ----
   
      }elsif ($cmd eq 'sub'){
          $keyauth = compute_auth ($email, $cmd, $listname);
! 	$command = "$quietcmd auth $keyauth $cmd $listname $param[0]";
          my $url = "mailto:$Conf{'sympa'}?subject=$command";
          $url =~ s/\s/%20/g;
          $body = sprintf Msg(6, 260, $msg::subscription_need_auth)
***************
*** 4355,4366 ****
  	    ,$listname,  $Conf{'sympa'}, $command, $url ;
      }elsif ($cmd eq 'add'){
          $keyauth = compute_auth ($param[0],$cmd,$listname);
! 	$command = "auth $keyauth $cmd $listname $param[0] $param[1]";
          $body = sprintf Msg(6, 39, $msg::adddel_need_auth),$listname
  	    , $Conf{'sympa'}, $command;
      }elsif ($cmd eq 'del'){
          my $keyauth = compute_auth($param[0],$cmd,$listname);
! 	$command = "auth $keyauth $cmd $listname $param[0]";
          $body = sprintf Msg(6, 39, $msg::adddel_need_auth),$listname
  	    , $Conf{'sympa'}, $command;
      }elsif ($cmd eq 'remind'){
--- 4360,4371 ----
  	    ,$listname,  $Conf{'sympa'}, $command, $url ;
      }elsif ($cmd eq 'add'){
          $keyauth = compute_auth ($param[0],$cmd,$listname);
! 	$command = "$quietcmd auth $keyauth $cmd $listname $param[0] $param[1]";
          $body = sprintf Msg(6, 39, $msg::adddel_need_auth),$listname
  	    , $Conf{'sympa'}, $command;
      }elsif ($cmd eq 'del'){
          my $keyauth = compute_auth($param[0],$cmd,$listname);
! 	$command = "$quietcmd auth $keyauth $cmd $listname $param[0]";
          $body = sprintf Msg(6, 39, $msg::adddel_need_auth),$listname
  	    , $Conf{'sympa'}, $command;
      }elsif ($cmd eq 'remind'){

 Olivier LACROIX

 C.I.R.I.L.
 Cellule Réseau StanNet
 Chateau du Montet      |  Tel   : +33 3.83.44.74.29
 Rue du Doyen Roubault  |  Fax   : +33 3.83.44.02.62
 F - 54500 VANDOEUVRE   |  email : adresse@cachée