||<#c0f070> '''Ceci est un test, faites comme si cette page n'existait pas...''' ||

Liste des correspondants de la centrale d'achat informatique de l'AUF, par implantation.

Il s'agit d'aider les utilisateurs du système de suivi (RT). Si un mail envoyé au système de suivi contient une commande `+obs:*CODE` on ajoute au ticket tous les correspondants pour l'implantation CODE.

Format d'une ligne : '''`CODE1::CODE2::CODE3:: prenom.nom, adresse$electronique.org`'''
 * chaque implantation est présentée sur une seule ligne, elle peut être représentée sous plusieurs codes
 * la ligne doit commencer par un espace
 * les ''CODE'' sont sans espace, séparés par `::`
 * après le dernier `::` on ajoute un espace
 * dans les adresses, les "$" seront remplacés par des "@"
 * @auf.org sera ajouté aux adresses sans nom de domaine

= Afrique de l'Ouest =

 Dakar::SN::SN1::BAO:: michel.guerrero, yerbanga$gmail.com
 Saint-Louis::SN2:: *BAO, zoser.biziki stefano.amekoudi
 Conakry::Guinee::GN::GN1:: *BAO zoser.biziki, mamadou-bobo.diallo

Exemple de script d'extraction :
  {{{
#!/usr/bin/perl
#!/usr/bin/perl

use LWP::Simple;
use Mail::Address;

my $wiki;
my $corresp = "thomas.noel, **bao *gn, totonono\@gmail.com fred\@nullepart *sn2, *gn1,";

my $antiboucle = 50;
while ( ( $corresp =~ /\*+([a-z0-9-]+)/i ) && (--$antiboucle) ) {
        my $implantation = $1;
        $wiki = get 'http://wiki.auf.org/wikiteki/CentraleDAchats/SystèmeDeSuivi/Correspondants?action=raw' unless ($wiki);
        if ( $wiki =~ /(\n\s+|::)${implantation}::\S*\s+([^\n]*)/si ) {
                my $addcorresp = $2;
                $addcorresp =~ s/\$/@/g;
                $corresp =~ s/\*+[a-z0-9]+/$addcorresp/i;
        }
}
# en cas de boucle, on supprime les "*..."
while ( $corresp =~ s/\*+[a-z0-9-]+//i ) { };

my @addr = Mail::Address->parse($corresp);

foreach my $addrobj (@addr) {
        my $addr = lc $addrobj->address;
        if ($addr !~ /@/) { $addr .= "\@auf.org"; }
        print $addr . "\n";
}
}}}

problèmes potentiels :
 * surgeprotection de moinmoin à surveiller
 * moinmoin en panne ou inaccessible par RT au moment de l'ajout...