Re: Pb commande

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

> Yatil un moyen d'empecher sympa de verifier le contenu des messages ?
> Car a priori les gens abonnes chez ce provider ne peuvent envoyer de
> messages sur aucune des listes.

La politique de recherche de commandes dans les messages est en effet un
peu extrémiste. 
Un compromis consiste à n'effectuer cette recherche que dans le sujet du 
message et dans la première ligne non-vide du corps. C'est la solution que 
nous avons adopté au CRU. 

Je joins le patch correspondant.

*** tools.pl.orig       Thu Oct 22 12:26:15 1998
--- tools.pl    Wed Aug 26 16:48:17 1998
***************
*** 45,51 ****
          'help',
          'ind(ex)?',
          'lists?',
!         
'(please\s+)?(add|unsub?(cribe)?|remove|del|sub(\s|scribe)?|sign?o?f?f?)',
          'rev(iew)?\s+\S+',
          'stats\s+\S+',
          'get\s+\S+\s+\S+',
--- 45,51 ----
          'help',
          'ind(ex)?',
          'lists?',
!         
'(please\s+)?(add|unsub?(scribe)?|remove|del|sub(\s|scribe)?|sign?o?f?f?)',
          'rev(iew)?\s+\S+',
          'stats\s+\S+',
          'get\s+\S+\s+\S+',
***************
*** 57,66 ****
          'ind(ex)?exp(ire)?\s+\S+',
          'mod(eration)?ind(ex)?\s+\S+',
          'ind(ex)?mod(eration)?\s+\S+',
!       'rev(iew)?\s+\S+',
!         'dis(tribute)?\s+\S+\s+\S+',
!         'rej(ect)?\s+\S+\s+\S+',
!         '(re)?con(firm)?\s+\S+'
  );
  @avoid_msg = (
          'help',
--- 57,66 ----
          'ind(ex)?exp(ire)?\s+\S+',
          'mod(eration)?ind(ex)?\s+\S+',
          'ind(ex)?mod(eration)?\s+\S+',
!       'review\s+\S+',
!         'distribute?\s+\S+\s+\S+',
!         'reject\s+\S+\s+\S+',
!         'reconfirm?\s+\S+'
  );
  @avoid_msg = (
          'help',
***************
*** 97,115 ****
     my $subject = $msg->get('Subject');
     if ($subject) {
        foreach $avoid (@avoid_hdr) {
!          if ($subject =~ /^\s*(quiet)?($avoid)(\s+|$)/im) {
              &rejectMessage($msg, $sender);
              return 1;
           }
        }
     }
     foreach $i (@{$msg->body}) {
!       foreach $avoid (@avoid_msg) {
!          if ($i =~ /^\s*(quiet)?($avoid)(\s+|$)/im) {  ## Suspicious line
!             &rejectMessage($msg, $sender);
!             return 1;
!          }
!       }
     }
     return 0;
  }
--- 97,117 ----
     my $subject = $msg->get('Subject');
     if ($subject) {
        foreach $avoid (@avoid_hdr) {
!          if ($subject =~ /^\s*($avoid)\s*$/im) {
              &rejectMessage($msg, $sender);
              return 1;
           }
        }
     }
     foreach $i (@{$msg->body}) {
!        foreach $avoid (@avoid_msg) {
!          if ($i =~ /^\s*($avoid)\s*$/im) {  ## Suspicious line
!              &rejectMessage($msg, $sender);
!              return 1;
!          }
!        }
!        ## On limite le controle à la première ligne non-vide
!        last unless $i =~ /^\s*$/;
     }
     return 0;
  }




--------------------------------------------------------------------------
Olivier SALAÜN      Comité Réseau des Universités      Tel: 02 99 84 71 27
                Campus de Beaulieu 35042 Rennes Cedex