Pour les administrateurs de serveurs de listes utilisant le logiciel Sympa

[Pascal Maes <address@concealed>]

Bonjour,

Toutes vos discussions me font penser que j'ai le même genre de  
problème avec le bcc.
Dans mon cas, les messages devaient chaque fois être confirmés même  
quand il n'étaient pas envoyés en Bcc


Pour éviter cela, j'ai dû modifier le fichier Scenario.pm et vous  
trouverez le "diff -c" ci-dessous.
C'est celui de la 6.0b2 mais j'applique la même modification depuis la  
version 5.??.??



*** Scenario.pm.dist    Sat Jun 20 08:42:13 2009
--- Scenario.pm Thu Aug 20 15:48:03 2009
***************
*** 540,555 ****

      $context->{'execution_date'} = time unless ( defined ($context- 
>{'execution_date'}) );

!     if (defined ($context->{'msg'})) {
!       my $header = $context->{'msg'}->head;
!       unless (($header->get('to') && ($header->get('to') =~ / 
$context->{'listname'}/i)) ||
!               ($header->get('cc') && ($header->get('cc') =~ / 
$context->{'listname'}/i))) {
!           $context->{'is_bcc'} = 1;
!       }else{
!           $context->{'is_bcc'} = 0;
!       }
!
!     }
      my $list;
      if ($context->{'listname'} && ! defined $context- 
>{'list_object'}) {
          unless ( $context->{'list_object'} = new List ($context- 
>{'listname'}, $robot) ){
--- 540,558 ----

      $context->{'execution_date'} = time unless ( defined ($context- 
>{'execution_date'}) );

! #
! # Modification pmaes
! #
! #    if (defined ($context->{'msg'})) {
! #     my $header = $context->{'msg'}->head;
! #     unless (($header->get('to') && ($header->get('to') =~ / 
$context->{'listname'}/i)) ||
! #             ($header->get('cc') && ($header->get('cc') =~ / 
$context->{'listname'}/i))) {
! #         $context->{'is_bcc'} = 1;
! #     }else{
! #         $context->{'is_bcc'} = 0;
! #     }
! #
! #    }
      my $list;
      if ($context->{'listname'} && ! defined $context- 
>{'list_object'}) {
          unless ( $context->{'list_object'} = new List ($context- 
>{'listname'}, $robot) ){
***************
*** 565,570 ****
--- 568,585 ----
        $context->{'host'} = $list->{'admin'}{'host'};
      }

+     if (defined ($context->{'msg'})) {
+       my $header = $context->{'msg'}->head;
+       unless (($header->get('to') && ($header->get('to') =~ / 
$context->{'listname'}/i)) ||
+               ($header->get('cc') && ($header->get('cc') =~ / 
$context->{'listname'}/i))) {
+           $context->{'is_bcc'} = 1;
+       }else{
+           $context->{'is_bcc'} = 0;
+       }
+     }
+ #
+ # Fin modifications pmaes
+ #
      unless ($condition =~ /(\!)?\s*(true|is_listmaster| 
verify_netmask|is_editor|is_owner|is_subscriber|less_than|match|equal| 
message|older|newer|all|search|customcondition\:\:\w+)\s*\(\s*(.*)\s*\) 
\s*/i) {
        &do_log('err', "error rule syntaxe: unknown condition  
$condition");
        return undef;

--
Pascal