Advertisement
eiland_asbl

wikitonary_interwikis.php

Feb 18th, 2013
202
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <?php
  2. header('Content-type: text/plain; charset=utf-8');
  3.  
  4. $word=$_GET["query"];
  5.  
  6. //$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");
  7.  
  8. //quicker
  9. $languages=array("fr", "en", "lt", "tr", "zh", "ru", "vi", "io", "pl", "fi", "pt", "hu", "no", "el", "ta", "it");
  10.  
  11. foreach($languages as $language)
  12. {
  13.     $ch = curl_init();
  14.     curl_setopt($ch, CURLOPT_URL, "http://$language.wiktionary.org/w/api.php?format=json&action=query&prop=langlinks&titles=$word");
  15.     curl_setopt($ch, CURLOPT_RETURNTRANSFER , TRUE);
  16.     curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; rv:1.7.3) Gecko/20041001 Firefox/0.10.1" );
  17.     $curl=curl_exec($ch);
  18.     curl_close($ch);
  19.     $json=json_decode($curl);
  20.  
  21.     foreach ($json->query->pages as $page);
  22.     {
  23.         if (!isset($page->missing))
  24.         {
  25.             if (isset($page->langlinks))
  26.                 foreach($page->langlinks as $results)
  27.                     print "[[".$results->lang.":$word]]\n";
  28.             else
  29.                 print "[[".$language.":$word]]\n"; // if no interwikis exist, but the current wt has 'em
  30.             break(1); //stop looking for more interwikis.
  31.         }
  32.     }
  33. }
Advertisement
RAW Paste Data Copied
Advertisement