[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Mails de notification pour pages web outdated



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


Reply to: