Modifications entre les versions 2 et 7 (s'étendant sur 5 versions)

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

CentraleDAchats/SystèmeDeSuivi/Correspondants (dernière édition le 2008-06-11 11:27:14 par ThomasNoël)

-  ⇤ ← Version 2 à la date du 2008-06-11 10:23:06 → 
  Taille: 1170
  Éditeur: ThomasNoël
  Commentaire:
+   ← Version 7 à la date du 2008-06-11 11:27:14 → ⇥
  Taille: 2206
  Éditeur: ThomasNoël
  Commentaire:
-Texte supprimé.
+Texte ajouté.
 Ligne 1:
-Ceci est un test...
+ ||<#c0f070> '''Ceci est un test, faites comme si cette page n'existait pas...''' ||
 Ligne 3:
-Correspondants de la centrale d'achat, par implantation.
+Liste des correspondants de la centrale d'achat informatique de l'AUF, par implantation.
 Ligne 5:
-## format :
##  CODE1::CODE2::CODE3:: prenom.nom, adresse.electo$nique.org
## NB :
##   * sur une seule ligne
##   * toujours commençant par un espace
##   * le "$" sera remplacé par un "@"
##   * @auf.org sera ajouté aux adresses sans domaine
+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
-Ligne 14:
+Ligne 16:
-Ligne 15:
+Ligne 18:
- 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
+ Saint-Louis::SN2:: *BAO, zoser.biziki stefano.amekoudi
 Conakry::Guinee::GN::GN1:: *BAO zoser.biziki, mamadou-bobo.diallo
-Ligne 27:
+Ligne 29:
-my $implantation = 'Dakar';
+my $wiki;
my $corresp = "thomas.noel, **bao *gn, totonono\@gmail.com fred\@nullepart *sn2, *gn1,";
-Ligne 29:
+Ligne 32:
-my $content = get 'http://wiki.auf.org/wikiteki/CentraleDAchats/SystèmeDeSuivi/Correspondants?action=raw';
+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 ) { };
-Ligne 31:
+Ligne 45:
-$content =~ /(\n\s+|::)${implantation}::\S*\s+([^\n]*)/s; 
my $corresp = $2;
$corresp =~ s/\$/@/g;
-Ligne 37:
+Ligne 48:
- my $addr = lc $addrobj->address;
 unless ($addr =~ /@/) { $addr .= "\@auf.org"; }
 print $addr . "\n";
+        my $addr = lc $addrobj->address;
        if ($addr !~ /@/) { $addr .= "\@auf.org"; }
        print $addr . "\n";
-Ligne 42:
+Ligne 53:
+problèmes potentiels :
 * surgeprotection de moinmoin à surveiller
 * moinmoin en panne ou inaccessible par RT au moment de l'ajout...

WikiTeki / Modifications de « CentraleDAchats/SystèmeDeSuivi/Correspondants »

Afrique de l'Ouest