Accéder au contenu.
Menu Sympa

fr - Re: [sympa-fr] domaines multiples

Objet : Pour les administrateurs de serveurs de listes utilisant le logiciel Sympa

Archives de la liste

Chronologique Discussions  
  • From: Sylvain Costard <adresse@cachée>
  • To: Frédéric Perrin <adresse@cachée>
  • Cc: adresse@cachée
  • Subject: Re: [sympa-fr] domaines multiples
  • Date: Fri, 15 May 2009 15:24:53 +0200

Frédéric Perrin a écrit :
Bonjour,

Le Jeudi 14 à 9:49, Sylvain Costard a écrit :
  
Actuellement à l'université nous sommes en "migration" du domaine
uhb.fr vers le domaine univ-rennes2.fr. Certaines personnes utilisent
leur adresse en univ-rennes2 et d'autre celle en uhb. Y a t'il un
moyen de dire à sympa que l'abonné adresse@cachée est le même que
l'abonné adresse@cachée ?
    
Lorsque j'avais eu ce problème, il m'avait été répondu d'inscrire en
double tous les cmoptes, en en passant la moitié en nomail. Des versions
plus récentes de Sympa devraient avoir les "Custom Conditions"
permettant d'éviter cela (si adresse@cachée n'est pas inscrit mais que
adresse@cachée l'est, ou vice-versa, alors accepter le message).

Discussion :
https://listes.cru.fr/sympa/arc/sympa-fr/2008-03/msg00064.html

  
Bon après quelques heures de bricolage j'ai réussi a faire à peu prêt ce que je voulais. Je vous transmet donc la réponse au cas ou quelqu'un en ait besoin

Merci pour votre aide


# cat send.private

title.gettext restricted to subscribers multidomain
title.fr Limité aux abonnés

CustomCondition::is_subscriber([listname],[sender])     smtp,smime,md5    -> do_it
CustomCondition::is_editor([listname],[sender])                 smtp,smime,md5    -> do_it
CustomCondition::is_owner([listname],[sender])                  smtp,smime,md5    -> do_it
true()                                         smtp,md5,smime  -> reject(reason='send_subscriber')


# cat ../custom_conditions/is_subscriber.pm
#!/usr/bin/perl

package CustomCondition::is_subscriber;

use strict;
use List;
use Log; # optional : we log parameters

sub verify {
    my @args = @_;
    foreach my $arg (@args) {
        do_log ('debug3', 'arg: ', $arg);
    }
    my ($list_name,$sender) = @args;

    $sender =~ s/univ-rennes2\.fr/uhb\.fr/i;

    my ($list);
    $list = new List ($args[0]);
   
    if ($list->is_user($args[1])) {
            return 1;
    }

    if ($list->is_user($sender)) {
            return 1;
    } else {
        return -1;
    } 
}

## Packages must return true.
1;



-- 
------------------------------------------------
 Sylvain Costard
 Université Rennes 2 Haute Bretagne
 Cellule CRI/Infra/Unix
 Tel: 02.99.14.13.47 - Fax: 02.99.14.13.50
------------------------------------------------



Archives gérées par MHonArc 2.6.19+.

Haut de le page