Developers of Sympa

["Thibault Verollet" <address@concealed>]

Bonjour a tous

 

Creation d'un nouveau champ dans la configuration de la liste : send_to

s'il prend la valeur 'perso' alors les personnes qui recevront un mail de la mailing list auront l'impression qu'il sont les seuls destinataires du mail.

 

Les modif on eut lieu dans List.pm et smtp.pm de sympa 2.7.2, mais il ne devrait pas avoir de problemes avec la 2.7.3

 

Bonne journee a tous

 

Tibo

smtp.pm

-       *SMTP = &smtpto($from, $rcpt);
        do_log('debug2', 'message => %s',$msg);
        $msg->print(\*SMTP);
        close(SMTP);
        return 1;
        
+    my($listname, $host) = split(/[@\s]+/, $from);
    ($listname,$host) = split(/-owner/,$listname); #en esperant qu'il 
n'ecrive jamais autre chose en plus
    my $list = new List ($listname);
    return undef unless $list;
    my $admin = $list->{'admin'};
    return undef unless $admin;
    do_log('debug', 'listname =>%s     list param => 
%s',$listname,$admin->{'send_to'});
    if( $admin->{'send_to'} eq 'perso') 
    {
        
        my $nbr_rcpt=@$rcpt;
        #do_log('debug', 'nbr destinataire => %d',$nbr_rcpt);
        my $tibo=0;
        for ($tibo=0;$tibo<$nbr_rcpt;$tibo++)
        {
                do_log('debug', 'le destinataire %d => 
%s',$tibo,@$rcpt[$tibo]);
                my @rcpt_indi=@$rcpt[$tibo];
                my $rrcpt_indi=\@rcpt_indi;
                #do_log('debug', 'la ref du destinataire %d => 
%s',$tibo,$rrcpt_indi);
                if (!$tibo)
                {
                        *SMTP = &smtpto($from, $rrcpt_indi);
                }
                else
                {
                        *SMTP = &smtpto("", $rrcpt_indi);
                }
                $msg->head->delete("To");
                $msg->head->add('To', "@$rcpt[$tibo]") ;
                $msg->print(\*SMTP);
                close(SMTP);
        }
        
        return 1;
    }
    else
    {
        *SMTP = &smtpto($from, $rcpt);
        do_log('debug2', 'message => %s',$msg);
        $msg->print(\*SMTP);
        close(SMTP);
        return 1;
    }
    
    
List.pm

-       if 
(/^\s*(forced_reply-to|forced_reply_to|forced_replyto)\s+(sender|list|.*)\s*$/o)
 {
            $admin->{'forced_reply_to'} = $2;
            next;
        }
        
+       if 
(/^\s*(forced_reply-to|forced_reply_to|forced_replyto)\s+(sender|list|.*)\s*$/o)
 {
            $admin->{'forced_reply_to'} = $2;
            next;
        }
        if (/^\s*(send-to|send_to|sendto)\s+(sender|list|.*)\s*$/o) {
            $admin->{'send_to'} = $2;
            #do_log('debug2', 'List::send_to(%s)', $admin->{'send_to'});
            next;
        }

Attachment: List.pm
Description: Binary data

Attachment: smtp.pm
Description: Binary data