Re: [ot][spam][crazy] coding therapy: maybe a bugfix?

[Undescribed Horrific Abuse, One Victim & Survivor of Many]

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

>From https://savannah.nongnu.org/projects/weabit/ .

The script is under
:pserver:anonym...@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;