arch-wiki-docs-fr/index.pl

   1 #!/usr/bin/perl -w
   2
   3 use Encode;
   4 use JSON::XS;
   5
   6 $URL=$ARGV[0];
   7
   8 @ALLPAGES=();
   9
  10 my $pageid;
  11 my $pagetitle;
  12 my $from = "";
  13 my $ret;
  14 again:
  15 my $count = 0;
  16 #print STDERR "wget -q \"$URL/api.php?action=query&list=allpages&aplimit=500&format=json&apfilterredir=nonredirects&apfrom=$from\" -O -\n";
  17 $text=`wget -q \"$URL/api.php?action=query&list=allpages&aplimit=500&format=json&apfilterredir=nonredirects&apfrom=$from\" -O -`;
  18 $ret = JSON::XS->new->utf8->decode($text);
  19 $H = $ret->{query}->{allpages};
  20 foreach $i (@$H)
  21 {
  22     push @ALLPAGES, encode("UTF-8", "$i->{title}");
  23     printf("%08u %s", $i->{pageid}, encode("UTF-8", "$i->{title}\n"));
  24     $count++;
  25 }
  26
  27 if($count == 1)
  28 {
  29     exit 0;
  30 }
  31
  32 @ALLPAGES = sort @ALLPAGES;
  33 $from = $ALLPAGES[-1];
  34 goto again;