Re: commande DELETE

[Christophe Wolfhugel <adresse@cachée>]

Olivier LACROIX :
> Dans sympa 0.006, si la commande ADD permet bien de rajouter une personne, 
> la 
> commande DELETE fonctionne de travers.

C'est de l'étourderie. Le patch suivant devrait corriger tout cela (et faire
ce que del doit faire et que je n'avais pas encore codé).

-- 
Christophe Wolfhugel  -+- SIS, Institut Pasteur, Paris
Boulot : adresse@cachée,  $HOME : adresse@cachée

*** 1.1 1997/09/15 16:26:54
--- Commands.pm 1997/10/01 15:53:06
***************
*** 527,544 ****
  
     ## Check if we know this email on the list and remove it. Otherwise
     ## just reject the message.
!    unless ($list->is_user($sender)) {
!       print Msg(6, 30, "Your email address has not been found on the list. 
You did perhaps\nsubscribe using a different address?\n");
        do_log('info', Msg(7, 23, 'DEL %s %s by %s rejected because not on 
list'), $which, $who, $sender);
        return;
     }
     ## Really delete and rewrite to disk.
!    $list->delete_user($sender);
     $list->save();
  
     ## Send a notice to the removed user, unless the owner indicated
     ## quiet del.
     if (!$quiet) {
     }
     print $msg::user_removed_from_list;
     do_log('info', Msg(7, 24, "DEL %s %s by %s"), $which, $who, $sender);
--- 527,546 ----
  
     ## Check if we know this email on the list and remove it. Otherwise
     ## just reject the message.
!    unless ($list->is_user($who)) {
!       printf Msg(6, 33, "Email address %s has not been found on the 
list.\n", $who);
        do_log('info', Msg(7, 23, 'DEL %s %s by %s rejected because not on 
list'), $which, $who, $sender);
        return;
     }
     ## Really delete and rewrite to disk.
!    $list->delete_user($who);
     $list->save();
  
     ## Send a notice to the removed user, unless the owner indicated
     ## quiet del.
     if (!$quiet) {
+       my $k = sprintf(Msg(6,34, "You have been removed from list %s"), 
$which);
+       mail::mailback(\$k, sprintf(Msg(6, 35, "You have been removed from 
list %s\nby %s\n"), $which, $sender), $who);
     }
     print $msg::user_removed_from_list;
     do_log('info', Msg(7, 24, "DEL %s %s by %s"), $which, $who, $sender);