Listes des pages orphelines: Le script est fait
Bon, avec l'idée de Denis d'utiliser check_trans.pl pour obtenir la liste
des pages, ca allait vite à faire. Le résultat suit. Le script est en
attachement. Denis, tu peux l'ajouter à la liste des scripts qui bombardent
la liste, stp ? Par exemple, une fois par mois, c'est pas mal.
-----------[ Ce que le script affiche ]
Voici la liste des pages qui restent à traduire en francais.
Cette liste correspond à l'état actuel du CVS, et ne prend pas en
compte les travaux en cours. Pensez donc à verifier que personne
n'a commencé à traduire une page avant de vous mettre au travail.
Pour cela, le plus simple est d'envoyer un message ITT (Intend To
Translate) à la liste, expliquant ce que vous avez l'intention de
faire, puis d'attendre un jour ou deux pour laisser aux autres le
temps de réagir. Ce n'est qu'après cette étape que vous pouvez
commencer votre travail de traduction sans risque de doublon...
Voici la liste. Les NHD disposent d'un traitement de faveur à la
fin du courriel. Au lieu de compter les fichiers disponibles par
répertoire, on compte les numéros des NHD par année.
Bonne traduction.
Pages normales
MailingLists (3 fichiers)
News/1998 (47 fichiers)
News/2001 (12 fichiers)
News/press (5 fichiers)
News/weekly (1 fichiers)
News/weekly/1999 (2 fichiers)
News/weekly/2000 (2 fichiers)
banners (1 fichiers)
banners/2.1 (1 fichiers)
chinese (1 fichiers)
consultants (59 fichiers)
devel (3 fichiers)
devel/debian-jr (4 fichiers)
devel/debian-jr/News (1 fichiers)
devel/debian-jr/News/2000 (3 fichiers)
devel/debian-jr/News/2001 (2 fichiers)
devel/join (9 fichiers)
devel/misc (1 fichiers)
devel/website (1 fichiers)
devel/wnpp (3 fichiers)
distrib (2 fichiers)
events (6 fichiers)
events/1998 (4 fichiers)
events/1999 (17 fichiers)
events/2000 (11 fichiers)
events/2001 (28 fichiers)
international (6 fichiers)
international/Croatian (1 fichiers)
international/Danish (1 fichiers)
international/German (2 fichiers)
international/Polish (1 fichiers)
international/Swedish (4 fichiers)
intro (3 fichiers)
logos (1 fichiers)
misc (3 fichiers)
partners (4 fichiers)
ports (1 fichiers)
ports/alpha (7 fichiers)
ports/alpha/faq (39 fichiers)
ports/alpha/faq/otherformats (1 fichiers)
ports/arm (5 fichiers)
ports/beowulf (1 fichiers)
ports/hurd (8 fichiers)
ports/hurd/reference-manual (20 fichiers)
ports/i386 (1 fichiers)
ports/ia64 (2 fichiers)
ports/laptops (1 fichiers)
ports/m68k (2 fichiers)
ports/mips (4 fichiers)
ports/powerpc (6 fichiers)
ports/powerpc/inst (8 fichiers)
ports/s390 (2 fichiers)
ports/sparc (4 fichiers)
ports/sparc64 (1 fichiers)
releases/hamm (2 fichiers)
releases/potato/installguide (1 fichiers)
security/1997 (18 fichiers)
security/1998 (44 fichiers)
security/1999 (39 fichiers)
security/2000 (67 fichiers)
security/2001 (69 fichiers)
security/undated (19 fichiers)
sitemap (1 fichiers)
vote (2 fichiers)
vote/1999 (14 fichiers)
vote/2000 (7 fichiers)
vote/2000/leadership_debate (7 fichiers)
vote/2001 (2 fichiers)
DWN
DWN 1999 (32 numéros)
DWN 2000 (36 numéros)
DWN 2001 (13 numéros)
---------------[ fin du script ]
Bye, Mt.
--
Un clavier azerty en vaut deux.
#! /usr/bin/perl -w
format =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<
$name, $nb
.
scalar eval `./check_trans.pl -t perl french`;
my %files;
my %dwn;
foreach my $key (keys %$translations) {
if ($translations->{$key}->{status} == 1) {
my $name = $key;
$name =~ s/\/[^\/]*$//;
if ($name =~ m,^News/weekly/([^/]*)/[^/]*,) { # on est dans un numéro des dwn
my $year = $1;
$dwn{$year} ++ if $key =~ m,index,;
} else {
$files{$name} ++;
}
}
}
print "Voici la liste des pages qui restent à traduire en francais.\n";
print "Cette liste correspond à l'état actuel du CVS, et ne prend pas en\n";
print "compte les travaux en cours. Pensez donc à verifier que personne\n";
print "n'a commencé à traduire une page avant de vous mettre au travail.\n";
print "Pour cela, le plus simple est d'envoyer un message ITT (Intend To\n";
print "Translate) à la liste, expliquant ce que vous avez l'intention de\n";
print "faire, puis d'attendre un jour ou deux pour laisser aux autres le\n";
print "temps de réagir. Ce n'est qu'après cette étape que vous pouvez\n";
print "commencer votre travail de traduction sans risque de doublon...\n";
print "\n";
print "Voici la liste. Les NHD disposent d'un traitement de faveur à la\n";
print "fin du courriel. Au lieu de compter les fichiers disponibles par\n";
print "répertoire, on compte les numéros des NHD par année.\n";
print "\n";
print "Bonne traduction.\n";
print " Pages normales\n\n";
foreach my $dir (sort keys %files) {
$name = $dir;
$nb = "(".$files{$dir}." fichiers)";
write;
}
print "\n DWN\n\n";
foreach my $year (sort keys %dwn) {
$name="DWN $year";
$nb="(".$dwn{$year}." numéros)";
write;
}
Reply to: