• 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

michel.guerrero yerbanga$gmail.com, zoser.biziki, stefano.amekoudi

Conakry::Guinee::GN::GN1

michel.guerrero, yerbanga$gmail.com, zoser.biziki, mamadou-bobo.diallo

Exemple de script d'extraction :

• #!/usr/bin/perl
  
  use LWP::Simple;
  use Mail::Address;
  
  my $implantation = 'Dakar';
  
  my $content = get 'http://wiki.auf.org/wikiteki/CentraleDAchats/SystèmeDeSuivi/Correspondants?action=raw';
  
  $content =~ /(\n\s+|::)${implantation}::\S*\s+([^\n]*)/s;
  my $corresp = $2;
  $corresp =~ s/\$/@/g;
  my @addr = Mail::Address->parse($corresp);
  
  foreach my $addrobj (@addr) {
          my $addr = lc $addrobj->address;
          unless ($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...