Summaries: # Task Weabit, https://en.wikinews.org/wiki/User:Gryllida/welcome_a_bit , notifies people when pages are updated. The task, http://savannah.nongnu.org/people/viewjob.php?group_id=11906&job_id=667 , is to: - add support for non-english wikinews - add localization to email texts # Starting Source
The script is under :pserver:anonymous@cvs.savannah.nongnu.org:/sources/weabit weabit . It's called weabv2.pl , and is a very simple daemon script with no error checking. # New Code to enumerate languages use LWP::Simple; use JSON; use Data::Dumper; # P424=language code; P6269=api url # P31=instance of Q20671729=wikinews language my $query = <<EOF; SELECT ?code ?url WHERE { [ wdt:P424 ?code; wdt:P6269 ?url ] wdt:P31 wd:Q20671729. } EOF $result_str = get "https://query.wikidata.org/sparql?format=json&query=${query}"; $result_list = decode_json($result_str)->{results}{bindings}; %code_urls = map { $_->{code}{value} => $_->{url}{value} } @$result_list; print Dumper \%code_urls;