<?php
// wikiautocompletion.php
// Work with wikiautocompletion.htm
// RJM Programming
// November, 2020

 $fg="";
 $tablebit="";
 $scriptbit="";
 if (file_exists("wikiautocompletion.htm")) {
   $fg=file_get_contents("wikiautocompletion.htm");
   $tbs=explode("</table>", $fg);
   if (sizeof($tbs) > 1) {
     $tablebit="<table" . explode("<table", $tbs[0])[1] . "</table>";
   }
   $sts=explode("</style>", $fg);
   if (sizeof($sts) > 1) {
     $scriptbit=explode("</head>", $sts[1])[0];
   }
 }
 $newtablebit=explode("<tr", $tablebit)[0] . "<TR></TR><tr></tr>" . "</table>";
  
 if (isset($_GET['topics'])) {
   $divapp='';
   $arr=explode(",", str_replace("+"," ",urldecode($_GET['topics'])));
   $bigbasis="<script type='text/javascript' src='wikiautocompletion.js?just=one' defer></script>\n";
   for ($iarr=0; $iarr<sizeof($arr); $iarr++) {
   $basis="";
   $newtablebit=str_replace("</TR>", "<th>" . $arr[$iarr] . "</th></TR>", $newtablebit);
   $newtablebit=str_replace("</tr>", "<td></td></tr>", $newtablebit);
   $wpage=file_get_contents("http://en.wikipedia.org/wiki/List_of_" . strtolower(str_replace(" ","_",$arr[$iarr])));
   $alists=explode('<a href="/wiki/', $wpage);
   $jw=0; 
   for ($iw=1; $iw<sizeof($alists); $iw++) {
     if (strpos(explode('"', $alists[$iw])[0], ":") === false) {
     if ($jw == 0) {
       if (isset($_GET['viap'])) {
         $divapp=trim(str_replace('_',' ',trim(explode('"', $alists[$iw])[0])));
       }
       $basis.="<!--script type='text/javascript' src='wikiautocompletion.js?ddlist=/wiki/" . explode('"', $alists[$iw])[0] . "' defer></script-->\n";
     } else {
       if (isset($_GET['viap'])) {
         $divapp.='`' . trim(str_replace('_',' ',trim(explode('"', $alists[$iw])[0])));
       }
       $basis=str_replace("' defer", ",/wiki/" . explode('"', $alists[$iw])[0] . "' defer", $basis);
     }
     $jw++;
     }
   }
   $bigbasis.=$basis; 
   }
   if (isset($_GET['viap'])) {
   echo "<html><body onload=\" parent.document.getElementById('viapcontent').innerHTML='" . $divapp . "'; \"></body></html>";
   } else {
   echo str_replace("</title>", " </title>", str_replace($tablebit, $newtablebit, str_replace($scriptbit, $bigbasis, $fg)));
   }
   exit;
 } else if ($fg != "") {
   echo $fg;
   exit;
 }
?>
