User talk:Ignatus/Stub-meta collection
Add topicThese codes are borrowed from specified wikis with some manual changes using script
use LWP::Simple;
use JSON;
$stubiwiki=<<DJD;# iwiki list from Ru:Template:Stub-meta
[[ar:قالب:صندوق رسالة بذرة]]
[[ba:Ҡалып:Stub-meta]]
[[be:Шаблон:Stub-meta]]
[[dsb:Pśedłoga:ZarodkowyTyp]]
[[en:Template:Asbox]]
[[fa:الگو:Asbox]]
[[hsb:Předłoha:Zarodk po předmjeće]]
[[hy:Կաղապար:MetaPicstub]]
[[ja:Template:Asbox]]
[[ka:თარგი:MetaPicstub]]
[[kbd:Template:Stub-meta]]
[[km:ទំព័រគំរូ:Asbox]]
[[krc:Шаблон:Тамамланмагъан статья]]
[[mhr:Кышкар:Stub-meta]]
[[mk:Шаблон:Asbox]]
[[ne:ढाँचा:Asbox]]
[[or:ଛାଞ୍ଚ:Asbox]]
[[pa:ਨਮੂਨਾ:Asbox]]
[[pt:Predefinição:Asbox]]
[[sah:Халыып:Stub-meta]]
[[si:සැකිල්ල:Asbox]]
[[simple:Template:Stub-template]]
[[sv:Mall:Stubbmall]]
[[uk:Шаблон:MetaPicstub]]
[[zh:Template:Asbox]]
DJD
open F,'>','D:\\WP\\stubs.html';
print F '<HTML><body>';
foreach(split "\n", $stubiwiki){
chomp $_;
/^\[\[(\w+):(.*)\]\]$/ or last;
print F "== $_ ==\n",(my $x=from_json(get("http://$1.wikipedia.org/w/api.php?
action=expandtemplates&text={{$2}}&format=json"))->{expandtemplates}{'*'}),"\n";
print $1, $x
};
close F;