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

Objectif: aider les utilisateurs du système de suivi (RT)

Principe: 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...