wikitonary_interwikis.php

<?php
header('Content-type: text/plain; charset=utf-8');

$word=$_GET["query"];

//$languages=array("fr", "en", "lt", "tr", "zh", "ru", "vi", "io", "pl", "fi", "pt", "hu", "no", "el", "ta", "it", "de", "sv", "ko", "nl", "lo", "kn", "ja", "ku", "ar", "es", "ro", "et", "ml", "id", "te", "gl", "bg", "uk", "ca", "vo", "li", "is", "fa", "sr", "af", "cs", "scn", "th", "sw", "fy", "simple", "br", "oc", "he", "sl", "hy", "hr", "sq", "tt", "la", "zh-min-nan", "da", "ast", "tk", "wa", "ur", "hsb", "kk", "ky", "wo", "eo", "ang", "hi", "ga", "gn", "az", "ia", "co", "sk", "ka", "ne", "csb", "st", "ms", "tl", "mr", "nds", "kl", "lv", "eu", "sd", "ug", "ti", "cy", "mk", "ps", "an", "sh", "my", "bn", "gu", "km", "mg", "ts", "qu", "bs", "fo", "am", "rw", "chr", "su", "om", "mn", "nah", "ie", "yi", "iu", "be", "gd", "tg", "si", "nn", "zu", "ss", "kw", "pa", "dv", "gv", "mt", "tpi", "sg", "roa-rup", "mi", "jv", "uz", "ik", "so", "ha", "sa", "ay", "na", "jbo", "tn", "sm", "as", "lb", "ks", "fj", "ln", "za", "mo", "pi", "ba", "xh", "mh", "bh", "sn", "or", "ak", "yo", "bi", "rn", "av", "bm", "ab", "to", "aa", "dz", "tw", "als", "bo", "rm", "sc", "ch", "cr", "tokipona");

//quicker
$languages=array("fr", "en", "lt", "tr", "zh", "ru", "vi", "io", "pl", "fi", "pt", "hu", "no", "el", "ta", "it");

foreach($languages as $language)
{
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_URL, "http://$language.wiktionary.org/w/api.php?format=json&action=query&prop=langlinks&titles=$word");
    curl_setopt($ch, CURLOPT_RETURNTRANSFER , TRUE);
    curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; rv:1.7.3) Gecko/20041001 Firefox/0.10.1" );
    $curl=curl_exec($ch);
    curl_close($ch);
    $json=json_decode($curl);

    foreach ($json->query->pages as $page);
    {
        if (!isset($page->missing))
        {
            if (isset($page->langlinks))
                foreach($page->langlinks as $results)
                    print "[[".$results->lang.":$word]]\n";
            else
                print "[[".$language.":$word]]\n"; // if no interwikis exist, but the current wt has 'em
            break(1); //stop looking for more interwikis.
        }
    }
}