Re: [sympa-fr] Problème avec le scenario public_nobcc

[Isabelle Gastal <adresse@cachée>]

Bonjour,

Je viens d'appliquer ta modification sur mon fichier Scenario.pm et çà 
marche

Merci !!!

--
--------------------------------------------------------
Isabelle Lavarenne-Gastal
Responsable pôle infrastructures
Centre de Ressources Informatiques (CRI)
Université d'Orléans
Bâtiment 3IA - 2e étage
4-6 rue Léonard de Vinci
BP 6102 45061 ORLEANS Cedex 2
Tel : 02.38.41.71.42  -  Fax : 02.38.41.73.53
Email : adresse@cachée
--------------------------------------------------------



Pascal Maes a écrit :
> 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;