#!/usr/bin/perl
# obtenir la page contenant la liste des livres
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Terminé -O /tmp/liste1` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Valider -O /tmp/liste2` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Relire -O /tmp/liste3` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Formater -O /tmp/liste4` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Text_layer -O /tmp/liste5` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Compléter -O /tmp/liste6` ;
print "wget OK\n" ;
`cat /tmp/liste1 /tmp/liste2 /tmp/liste3 /tmp/liste4 /tmp/liste5 /tmp/liste6 > /tmp/liste` ;
open (LISTEDJVU, "/tmp/liste");
open (OUTPUT, '>/tmp/output.txt');
print OUTPUT "{| class=\"sortable\" border=\"1\"\n" ;
print OUTPUT "|-\n" ;
print OUTPUT "| livre || '''à travailler''' || <span class=\"quality0\">vide</span> || <span class=\"quality1\">à corriger</span> || <span class=\"quality3\">à valider</span> || <span class=\"quality2\">à problème</span> || '''<span class=\"quality4\">fini</span>''' \n" ;
# obtenir la liste des livres
while ($line = <LISTEDJVU>) {
while ($line =~ m/href="\/wiki\/Livre:(.*?)"/g ) {
$bookext = $1 ;
print "$bookext\n" ;
$bookwww = "http://fr.wikisource.org/wiki/Livre:$bookext" ;
`wget "$bookwww" -q -O /tmp/bookpage` ;
open (BOOKPAGE, "/tmp/bookpage");
$vide = 0 ;
$rouge = 0 ;
$bleu = 0 ;
$jaune = 0 ;
$vert = 0 ;
while ($line = <BOOKPAGE>) {
if ($line =~ m/padding-left/) {
# une des 5 lignes suivantes contient la liste des pages ??
if ($line !~ m/class=/) {
$line = <BOOKPAGE> ;
}
if ($line !~ m/class=/) {
$line = <BOOKPAGE> ;
}
if ($line !~ m/class=/) {
$line = <BOOKPAGE> ;
}
if ($line !~ m/class=/) {
$line = <BOOKPAGE> ;
}
# print "$line \n" ;
$vide += ($line =~ s/class="new"//g) ;
$rouge += ($line =~ s/class="quality1"//g) ;
$bleu += ($line =~ s/class="quality2"//g) ;
$jaune += ($line =~ s/class="quality3"//g) ;
$vert += ($line =~ s/class="quality4"//g) ;
}
}
$totaltodo = $vide + $rouge + $jaune + $bleu ;
print OUTPUT "|-\n" ;
print OUTPUT "| [[Livre:$bookext]] || $totaltodo || $vide || $rouge || $jaune || $bleu || $vert\n" ;
close (BOOKPAGE);
}
}
close (LISTEDJVU);
print OUTPUT "|}\n" ;
close (OUTPUT) ;