<?php
 // lc_CC.php
 // Glean information linking language codes and country codes
 // RJM Programming - May, 2015
 
    
 
 /*  Thanks to http://framework.zend.com
 <tr valign="middle"><td rowspan="4" align="left" valign="middle">Afar</td>
                    <td align="left">aa</td>
                    <td align="left">---</td>
                </tr><tr valign="middle"><td align="left">aa_DJ</td>
                    <td align="left">Djibouti</td>
                </tr><tr valign="middle"><td align="left">aa_ER</td>
                    <td align="left">Eritrea</td>
                </tr><tr valign="middle"><td align="left">aa_ET</td>
                    <td align="left">Ethiopia</td>
                </tr><tr valign="middle"><td rowspan="3" align="left" valign="middle">Afrikaans</td>
                    <td align="left">af</td>
                    <td align="left">---</td>
                </tr><tr valign="middle"><td align="left">af_NA</td>
                    <td align="left">Namibia</td>
                </tr><tr valign="middle"><td align="left">af_ZA</td>
                    <td align="left">South Africa</td>
                </tr><tr valign="middle"><td rowspan="2" align="left" valign="middle">Akan</td>
                    <td align="left">ak</td>
                    <td align="left">---</td>
                </tr><tr valign="middle"><td align="left">ak_GH</td>
                    <td align="left">Ghana</td>
*/
 
 $lastcountry='';
 $selstuff='<select id="lc_cc" title="Language code meets country code(s)"></select>';
 $additionalstuff='';
 $goodurlis="https://gcc.gnu.org/onlinedocs/libstdc++/manual/localization.html";
 $goodfile="thanks_to_framework_zend_com.txt";
 $splitat='class="programlisting"';
 $lookuphtml="select_lc_cc.html";
 
 if (!file_exists($lookuphtml)) {
  if (file_exists($goodfile)) {
   $stuff=@file_get_contents($goodfile);
   $stuffbits=explode("</td>", $stuff);
   if (sizeof($stuffbits) > 1) {
     for ($i=(sizeof($stuffbits) - 1); $i>=0; $i--) {
       if (substr($stuffbits[$i],-3,1) == "_") {
           $lastlot=explode(">", $stuffbits[$i]); 
           $additionalstuff.='<option value="' . $lastcountry . '">' . $lastlot[sizeof($lastlot) - 1] . '</option>';
           $selstuff=str_replace('</select>', '<option value="' . $lastcountry . '">' . $lastlot[sizeof($lastlot) - 1] . '</option></select>', $selstuff);
       } else if (substr($stuffbits[$i],-3,1) >= 'a' && substr($stuffbits[$i],-3,1) <= 'z') {
           $lastlot=explode(">", $stuffbits[$i]);
           $lastcountry=str_replace("'", "~", $lastlot[sizeof($lastlot) - 1]);
       }
     }
   }
   file_put_contents($lookuphtml, $selstuff);
  } else {
   $stuff=@file_get_contents($goodurlis);
   $stuffbits=explode($splitat, $stuff);
   if (sizeof($stuffbits) > 1) {
     $parsebits=explode(">", $stuffbits[1]);
     $recbits=explode("<", $parsebits[1]);
     $recs=explode("\n", $recbits[0]);
     for ($i=0; $i<sizeof($recs); $i++) {
       if (strpos($recs[$i], "_") !== false) {
         if (strpos($recs[$i], "@") === false) {
          if (strpos($recs[$i], ".") === false) {
           $additionalstuff.='<option value="' . str_replace(" ","",$recs[$i]) . '">' . str_replace(" ","",$recs[$i]) . '</option>';
           $selstuff=str_replace('</select>', '<option value="' . str_replace(" ","",$recs[$i]) . '">' . str_replace(" ","",$recs[$i]) . '</option></select>', $selstuff);
		  }
         }
       }
     }
     file_put_contents($lookuphtml, $selstuff);
   }
  }
 } else {
  $stuff=@file_get_contents($lookuphtml);
  $additionalstuff=str_replace(str_replace("</select>","",$selstuff),"",str_replace("</select>","",$stuff));
 }

?>
<!doctype html>
<html>
<head>
<script type='text/javascript'>
function maybesupervised() {
  var posel=parent.document.getElementById('sellccc');
  if (posel != null) {
    posel.innerHTML = '<?php echo $additionalstuff; ?>';
  }
}
</script>
</head>
<body onload='maybesupervised();'>
<iframe src='<?php echo $lookuphtml; ?>' title='Language code meets country code(s)'></iframe>
</body>
</html>

