Bonsoir à vous, On Mon, Jan 19, 2009 at 06:50:02PM +0100, Nicolas François wrote: > Salut Pierre, > > Bonne année. > > Il me semble que tu as un script pour notifier les traducteurs d'une page > du site Web Debian quand leur traduction doit être mise à jour. > > Est-ce que ça te dit quelque chose ? > Est-ce que tu l'as encore ? > Est-ce que tu sais qui lance ce script et si personne, est-ce qu'on peut > l'installer sur i18n.debian.net ? > > > Est-ce qu'on ne devrait pas aussi faire quelque chose pour les mails de > commit sur le CVS de webwml ? > (Il me semble que c'est encore toi qui le lance sur ta machine) Tout d'abord meilleurs voeux à tous, c'est encore la période. Je dois bien avouer que cela fait de longs mois maintenant que je n'ai pas dépilé mes emails @debian... :-( Alors pour ce qui est du script, le voici en attachement c'était un truc tout simple dont je ne suis pas l'auteur. Soit c'est Denis Barbier ou bien Martin Quinson, voire même les deux. À l'époque, il fallait s'inscrire sur la liste des envois CVS. Donc pour faire fonctionner le script, un bout de .procmailrc qui va bien : # DEBUT du tri des mails :0 * ^Subject: Debian WWW CVS commit by * ^From: Debian WWW CVS \<webmaster@debian\.org\> { :0 B c * ^ french | $HOME/bin/forward-dlf } Et le script :) et voila. Si vous avez d'autres questions n'hésitez pas. Je tâcherais de vous répondre. Si jamais il y a des points bloquants n'hésitez pas non plus. À très bientôt, -- Pierre Machard <pmachard@debian.org> http://debian.org GPG: 1024D/23706F87 : B906 A53F 84E0 49B6 6CF7 82C2 B3A0 2D66 2370 6F87
#! /usr/bin/perl # Construction $/ = undef; $message = <> || die "Exit"; ($subject) = ($message =~ m/\nSubject: ([^\n]*)/s); ($body) = ($message =~ m/\r?\n\r?\n(.*)$/s); $body =~ s/\s*--\s+To UNSUBSCRIBE, email to debian-www-cvs-request.*$/\n\n/is; $subject =~ s/commit by french:/commit by mquinson:/; $body =~ s/(\nChanges by:\t)french\b/$1mquinson/s; #open (MAIL, ">> /home/barbier/Mail/mmm"); #open (MAIL, "| /usr/bin/mail -s \"$subject\" barbier\@imacs.polytechnique.fr"); open (MAIL, "| /usr/bin/mail -s \"$subject\" debian-l10n-french\@lists.debian.org"); print MAIL $body; close (MAIL); open (MAIL, "| /usr/bin/mail -s \"$subject\" l10n-fr-coord-commit\@lists.alioth.debian.org"); print MAIL $body; close (MAIL); 1;
Attachment:
signature.asc
Description: Digital signature