• 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
  
  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...