<?php 

 if (isset($_GET['gmc']) && isset($_GET['viac'])) {
   $contw=file_get_contents(str_replace('https:','http:',urldecode($_GET['viac'])));
   if (strpos($contw, ">Coordinates</a>:") !== false) {
     $bits=explode(">Coordinates</a>:", $contw);
     if (strpos($bits[1], "params=") !== false) {
       $postbits=explode("params=", $bits[1]);
       $nextbits=explode("_", $postbits[1]); 
       $latis=$nextbits[0];
       // 16_10_N_107_50_E_
       if ($nextbits[2] == "N" || $nextbits[2] == "S") {
       $latis+=($nextbits[1] / 60.0);
       if ($nextbits[2] == "S") $latis=-$latis;
       $longis=$nextbits[3];
       if ($nextbits[5] == "E" || $nextbits[5] == "W") {
       $longis+=($nextbits[4] / 60.0);
       if ($nextbits[5] == "W") $longis=-$longis;
       } else {
       if ($nextbits[4] == "W") $longis=-$longis;
       }
       } else {
       if ($nextbits[1] == "S") $latis=-$latis;
       $longis=$nextbits[2];
       if ($nextbits[3] == "W") $longis=-$longis;
       }
       // 27.417_N_90.435_E_
       $urlis=urldecode($_GET['gmc']);
       if (strpos($urlis, ',,') !== false) {
       $urlis=str_replace(",,", urlencode($latis . "," . $longis . ","), $urlis);
       } else {
       $urlis=str_replace(urlencode(",,"), urlencode($latis . "," . $longis . ","), $urlis);
       }
if (isset($_SERVER['HTTPS'])) {
    if ($_SERVER['HTTPS'] == "on") {
       header("Location: https:" . $urlis);
    } else {
       header("Location: http:" . $urlis);
    }
} else {
       header("Location: http:" . $urlis);
}
       exit;
     }
   }
   exit;
 }
?>
<!doctype html>
<html>
<head>
<meta charset="UTF-8">
<link href="https://afeld.github.io/emoji-css/emoji.css" rel="stylesheet">
<title>Emoji Searches - RJM Programming - February, 2018</title>
<script type='text/javascript'>

var emojicont='';
var okaytoask=0;
var eans='', ueans='';
var peans='', pueans='';
var emojicontent='';
var lastdiv='';
var ob=false;
var inans='';
var outans='';
var mto='mailto:?subject=&body=' + encodeURIComponent(document.URL);
<?php 

 if (isset($_POST['caller'])) {
   echo "\n mto='mailto:?subject=&body=" . urlencode($_POST['caller']) . "'; \n";
 } else if (isset($_POST['inans']) && !isset($_GET['inans'])) {
   echo "\n mto='mailto:?subject=&body=" . urlencode($_SERVER['HTTP_REFERER']) . "'; \n";
 }
 if (isset($_GET['heading'])) {
   echo "\n var mto='mailto:?subject=" . str_replace(" ","%20",$_GET['heading']) . "&body=' + encodeURIComponent(document.URL); \n";
 } else if (isset($_POST['heading'])) {
 if (isset($_POST['caller'])) {
   echo "\n mto='mailto:?subject=" . str_replace(" ","%20",$_POST['heading']) . "&body=" . urlencode($_POST['caller']) . "'; \n";
 } else if (isset($_POST['inans']) && !isset($_GET['inans'])) {
   echo "\n mto='mailto:?subject=" . str_replace(" ","%20",$_POST['heading']) . "&body=" . urlencode($_SERVER['HTTP_REFERER']) . "'; \n";
 } else {
   echo "\n var mto='mailto:?subject=" . str_replace(" ","%20",$_POST['heading']) . "&body=' + encodeURIComponent(document.URL); \n";
 }
 } else {
   echo "\n var mto='mailto:?subject=&body=' + encodeURIComponent(document.URL); \n";
 }
?>

function checkio(iois) {
  if (iois != null) {
  //alert(1);
    var aconto = (iois.contentWindow || iois.contentDocument);
  //alert(12);
    if (aconto != null) {
  //alert(13);
   try {
     //if (aconto.document) { aconto = aconto.document; }
  //alert(15);
     emojicont=decodeURIComponent("<?php echo urlencode(file_get_contents('http://afeld.github.io/emoji-css/')); ?>").replace(/\+/g,' '); //aconto.document.body.innerHTML;
  //alert(16);
     if (emojicont.length > 0) okaytoask=1;
  //alert(17);
   } catch(eee) { }
  //alert(117);

   }
  }
}


function checkioo(iois) {
  if (iois != null) {
  //alert(1);
    var acontoo = (iois.contentWindow || iois.contentDocument);
  //alert(12);
    if (acontoo != null) {
  //alert(13);
   try {
     if (acontoo.document) { acontoo = aconto.document; }
  //alert(15);
     emojicontent=acontoo.document.body.innerHTML;
     //alert(emojicontent);
  //alert(16);
  //alert(17);
   } catch(eeee) { }
  //alert(117);

   }
  }
}

function aoc() {
   document.getElementById('gmci').style.width='450px';
   document.getElementById('gmci').style.height='450px';
   document.getElementById('gmci').style.display='inline-block';
}

function sue(incis) {
   if (outans != "") {
       //alert(incis + ' ... ' + ueans);
       var outsare=pueans.split(',');
       var insare=ueans.split(',');
       for (var jinsare=0; jinsare<insare.length; jinsare++) {
         if (insare[jinsare].toLowerCase() == incis.toLowerCase()) {
          return encodeURIComponent(outsare[jinsare]);
         }
       }
   }
   return encodeURIComponent(incis);
}

function ue(incis) {
   if (outans != "") {
       //alert(incis + ' ... ' + ueans);
       var outsare=pueans.split(',');
       var insare=ueans.split(',');
       for (var jinsare=0; jinsare<insare.length; jinsare++) {
         if (insare[jinsare].toLowerCase() == incis.toLowerCase()) {
          return " " + outsare[jinsare];
         }
       }
       return "";
   }
   var ihuh=(" " + ueans.toLowerCase().replace(/, /g,' ').replace(/,/g,' ') + " ").indexOf(" " + incis + " ");
   if (ihuh != -1) {
     return (" " + ueans.replace(/, /g,' ').replace(/,/g,' ') + " ").substring(ihuh, eval(1 + incis.length + ihuh));
   } else {
     return incis;
   }
}

function yehbut(purl, psuff) {
   var chuh=document.getElementById('ifn').value;
   <?php
   if (isset($_GET['inans'])) {
     echo "\n chuh=\"" . urldecode($_GET['inans']) . "\"; \n";
   } else if (isset($_POST['inans'])) {
     echo "\n chuh=\"" . urldecode($_POST['inans']) . "\"; \n";
   }
   ?>
   if ((' ' + chuh.replace(/, /g,' ').replace(/,/g,' ') + ' ').toLowerCase().indexOf(' ' + psuff.toLowerCase() + ' ') == -1) {
    return '//emojiterra.com/' + psuff.toLowerCase();
   }
   return purl;
}

function lc(cone, ctwo) {
  if (ctwo == '') return '';
  <?php
  echo "\n var templ=\"//www.rjmprogramming.com.au/PHP/Map/map.php?title=\" + encodeURIComponent(ctwo.trim()) + \"&onclick=y&options=%2czoomLevel%3a6&label=['Lat',&value='Lon','Name']&data=,[,,~\" + encodeURIComponent(ctwo) + \"~]\"; \n";
  //echo "\n var templ=\"//www.rjmprogramming.com.au/PHP/Map/map.php?title=\" + encodeURIComponent(ctwo.trim()) + \"&onclick=y&label=['Lat',&value='Lon','Name']&data=,[,,~\" + encodeURIComponent(ctwo) + \"~]\"; \n";
  if (isset($_GET['coordinate'])) {
    echo "\n cone='<a onclick=aoc(); target=gmci title=GoogleMapChart href=\"//www.rjmprogramming.com.au/PHP/emoticon_keyboard_shortcuts.php?gmc=' + encodeURIComponent(templ) + '&viac=' + encodeURIComponent(\"" . urldecode($_GET['urlprefix']) . "\") + '' + encodeURIComponent(ctwo.trim().replace(/\ /g,\"_\")) + '\">' + cone.replace(';',';</a>'); \n";
  } else if (isset($_POST['coordinate'])) {
    echo "\n cone='<a onclick=aoc(); target=gmci title=GoogleMapChart href=\"//www.rjmprogramming.com.au/PHP/emoticon_keyboard_shortcuts.php?gmc=' + encodeURIComponent(templ) + '&viac=' + encodeURIComponent(\"" . urldecode($_POST['urlprefix']) . "\") + '' + encodeURIComponent(ctwo.trim().replace(/\ /g,\"_\")) + '\">' + cone.replace(';',';</a>'); \n";
  }
  ?>
  return cone;
}

function lookfor() {
   if (eans != "") {
   var psparestr='', sparestr='', notfound=true;
   var ki=0;
   var iea=0, candidates, iprefix='';
   var dofirst=true, ik, turls='', turl='';
   var pearrns=peans.replace(/, /g,' ').replace(/,/g,' ').split(' ');
   var earrns=eans.replace(/, /g,' ').replace(/,/g,' ').split(' ');
   if (eans.indexOf(',') != -1) earrns=eans.replace(/\+/g,'_').replace(/\ /g,'_').split(',');
   if (peans.indexOf(',') != -1) pearrns=peans.replace(/\+/g,'_').replace(/\ /g,'_').split(',');
   uearrns=ueans.replace(/, /g,' ').replace(/,/g,' ').split(' ');
   puearrns=pueans.replace(/, /g,' ').replace(/,/g,' ').split(' ');
   if (ueans.indexOf(',') != -1) uearrns=ueans.replace(/\+/g,'_').replace(/\ /g,'_').split(',');
   if (pueans.indexOf(',') != -1) puearrns=pueans.replace(/\+/g,'_').replace(/\ /g,'_').split(',');
   for (iea=0; iea<earrns.length; iea++) {
     if (!dofirst && earrns[iea] == "scorpio" && emojicont.split(earrns[iea]).length <= 4) {
        <?php 
        if (isset($_GET['urlprefix'])) {
        if (strpos(urldecode($_GET['urlprefix']), "~") !== false) { 
        echo " turls=sue('scorpio'); turl=yehbut('" . urldecode($_GET['urlprefix']) . "',turls).replace('~',turls);   document.getElementById('mydiv').innerHTML+=iprefix + '&#9807; <a em-<a target=_blank title=\"Information via ' + turl + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + turl + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue('Scorpio') + '</a> '; ";
        } else {
        echo " document.getElementById('mydiv').innerHTML+=iprefix + '&#9807; <a em-<a target=_blank title=\"Information via " . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_GET['urlprefix']) . "/@!@"))) . "' + 'Scorpio' + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '" . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_GET['urlprefix']) . "/@!@"))) . "' + 'Scorpio' + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue('Scorpio') + '</a> '; ";
        }
        } else if (isset($_POST['urlprefix'])) {
        if (strpos(urldecode($_POST['urlprefix']), "~") !== false) { 
        echo " turls=sue('scorpio'); turl=yehbut('" . urldecode($_POST['urlprefix']) . "',turls).replace('~',turls);   document.getElementById('mydiv').innerHTML+=iprefix + '&#9807; <a em-<a target=_blank title=\"Information via ' + turl + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + turl + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue('Scorpio') + '</a> '; ";
        } else {
        echo " document.getElementById('mydiv').innerHTML+=iprefix + '&#9807; <a em-<a target=_blank title=\"Information via " . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_POST['urlprefix']) . "/@!@"))) . "' + 'Scorpio' + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '" . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_POST['urlprefix']) . "/@!@"))) . "' + 'Scorpio' + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue('Scorpio') + '</a> '; ";
        }
        } else {
        echo " document.getElementById('mydiv').innerHTML+=iprefix + '&9807; <a em-<a target=_blank title=\"HTML Entity information via //emojiterra.com/' + 'scorpio' + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '//emojiterra.com/' + 'scorpio' + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + 'scorpio' + '</a> '; ";
        }
        ?>
     }
   if (emojicont.indexOf(earrns[iea]) != -1) {
     if (emojicont.substring(emojicont.indexOf(earrns[iea])).indexOf('<i ') != -1 && emojicont.substring(emojicont.indexOf(earrns[iea])).indexOf('</i>') != -1) {
      if (1 == 2) document.getElementById('mydiv').innerHTML='';
      //data-clipboard-text="&lt;i class=&quot;em em-apple&quot;&gt;&lt;/i&gt;">
      candidates=emojicont.split(earrns[iea]);
      sparestr='';
      psparestr='';
      ki=0;
      for (ik=1; ik<candidates.length; ik++) {
       if (eval(candidates[ik].indexOf('>')) > eval(candidates[ik].indexOf('gt;')) && candidates[ik].indexOf('gt;') != -1) {
        sparestr=earrns[iea] + candidates[ik];
        if (pearrns.length > iea) {
        psparestr=pearrns[iea] + candidates[ik];
        } else {
        psparestr=sparestr;
        }
        ki=ik;
        while (sparestr.indexOf('<i ') == -1 || sparestr.indexOf('</i>') == -1) {
          ki++;
          sparestr+=earrns[iea] + candidates[ki];
        if (pearrns.length > iea) {
        psparestr+=pearrns[iea] + candidates[ki];
        } else {
        psparestr=sparestr;
        }
        }
        notfound=false;
        //alert(sparestr + ' === ' + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i>');
        if (dofirst) document.getElementById('mydiv').innerHTML='';
        dofirst=false;
        if (sparestr.indexOf('<i class="em em-') != -1) { 
        <?php 
        if (isset($_GET['urlprefix'])) {
        if (strpos(urldecode($_GET['urlprefix']), "~") !== false) { 
        echo " turls=sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0].replace(/\_/g,'%20')); turl=yehbut('" . urldecode($_GET['urlprefix']) . "',turls).replace('~',turls);   document.getElementById('mydiv').innerHTML+=iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i> <a em-<a target=_blank title=\"Information via ' + turl + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + turl + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]) + '</a> '; ";
        } else {
        echo " document.getElementById('mydiv').innerHTML+=lc(iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i> <a em-<a target=_blank title=\"Information via " . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_GET['urlprefix']) . "/@!@"))) . "' + sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]).replace(/\_/g,'+') + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '" . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_GET['urlprefix']) . "/@!@"))) . "' + sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]).replace(/\_/g,'+') + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]) + '</a> ',ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0])); ";
        }
        } else if (isset($_POST['urlprefix'])) {
        if (strpos(urldecode($_POST['urlprefix']), "~") !== false) { 
        echo " turls=sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0].replace(/\_/g,'%20')); turl=yehbut('" . urldecode($_POST['urlprefix']) . "',turls).replace('~',turls);   document.getElementById('mydiv').innerHTML+=iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i> <a em-<a target=_blank title=\"Information via ' + turl + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + turl + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]) + '</a> '; ";
        } else {
        echo " document.getElementById('mydiv').innerHTML+=lc(iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i> <a em-<a target=_blank title=\"Information via " . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_POST['urlprefix']) . "/@!@"))) . "' + sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]).replace(/\_/g,'+') + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '" . str_replace("@!@","",str_replace("//@!@","/",(urldecode($_POST['urlprefix']) . "/@!@"))) . "' + sue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]).replace(/\_/g,'+') + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0]) + '</a> ',ue(sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0])); ";
        }
        } else {
        echo " document.getElementById('mydiv').innerHTML+=iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i> <a em-<a target=_blank title=\"HTML Entity information via //emojiterra.com/' + sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0].replace(/\_/g,'+') + '\" style=\"cursor:pointer;text-decoration:underline;\" onclick=\"window.open(' + \"'\" + '//emojiterra.com/' + sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0].replace(/\_/g,'+') + \"','\" + \"_blank','top=100,left=300,width=600,height=800');\" + '\"' + \">\" + sparestr.split('<i class=\"em em-')[1].split('\"')[0].split(\"'\")[0] + '</a> '; ";
        }
        ?>
        } else {
        document.getElementById('mydiv').innerHTML+=iprefix + '<i ' + sparestr.substring(sparestr.indexOf(earrns[iea])).split('<i ')[1].split('</i>')[0] + '</i>';
        }
        if (document.getElementById('mydiv').innerHTML != "") lastdiv=document.getElementById('mydiv').innerHTML;
        iprefix=' ';
       } //else {
        //alert('no for ' + ik + ' ' + candidates[ik].slice(-250) + ' ... ' + ' ' + candidates[eval(-1 + ik)].slice(-250)); 
       //}
      }
     }
     //alert('Found for ' + emojicont.substring(emojicont.indexOf(earrns[iea]),eval(1234 + emojicont.indexOf(earrns[iea]))));
   } else if (iea == eval(-1 + earrns.length) && notfound) {
     alert('Not found for ' + eans);
   }
   }
   eans="";
   }
   okaytoask = 1;
}

function ask() {
   if (okaytoask == 0) {
     setTimeout(ask,5000);
   } else if (okaytoask == 1) {
     okaytoask=2;
     document.getElementById('mydiv').innerHTML=lastdiv;
     if (document.URL.indexOf('prompt=') != -1) {
     eans=prompt("Find emoji word", "");
     if (eans == null) eans="";
     weans=eans;
     } else if (ob) {
     ob=false;
     if (document.getElementById('ifo').value != '') {
     pueans=document.getElementById('ifo').value;
     peans=document.getElementById('ifo').value.toLowerCase();
     ueans=document.getElementById('ifn').value;
     eans=document.getElementById('ifn').value.toLowerCase();
     document.getElementById('ifo').value='';
     } else {
     ueans=document.getElementById('ifn').value;
     eans=document.getElementById('ifn').value.toLowerCase();
     }
     document.getElementById('ifn').value="";
     } else if (1 == 2) {
     eans="";
     }
     if (eans == null) eans="";
     setTimeout(ask,5000);
     setTimeout(lookfor,200);
   } else {
     setTimeout(ask,5000);
   }     
}


function maybepost1(f1) {
  var cuml=f1.action.length + 1;
  cuml+=('?inans=').length;
  cuml+=encodeURIComponent(document.getElementById('inans1').value).length;
  cuml+=('&outans=').length;
  cuml+=encodeURIComponent(document.getElementById('outans1').value).length;
  cuml+=('&heading=').length;
  cuml+=encodeURIComponent(document.getElementById('heading1').value).length;
  cuml+=('&subheading=').length;
  cuml+=encodeURIComponent(document.getElementById('subheading1').value).length;
  cuml+=('&urlprefix=').length;
  cuml+=encodeURIComponent(document.getElementById('urlprefix1').value).length;
  if (eval('' + cuml) > 950) f1.method='POST';
  return true;
}

function maybepost2(f2) {
  var cuml=f2.action.length + 1;
  cuml+=('?inans=').length;
  cuml+=encodeURIComponent(document.getElementById('inans2').value).length;
  cuml+=('&outans=').length;
  cuml+=encodeURIComponent(document.getElementById('outans2').value).length;
  cuml+=('&heading=').length;
  cuml+=encodeURIComponent(document.getElementById('heading2').value).length;
  cuml+=('&subheading=').length;
  cuml+=encodeURIComponent(document.getElementById('subheading2').value).length;
  cuml+=('&urlprefix=').length;
  cuml+=encodeURIComponent(document.getElementById('urlprefix2').value).length;
  if (eval('' + cuml) > 950) f2.method='POST';
  return true;
}
</script>
</head>

<?php 
$tyo="<br><details style='background-color:magenta;'><summary>Tailor Your Own Emoji Display Web Application</summary>
<form onsubmit='return maybepost1(this);' id='myform1' action='./emoticon_keyboard_shortcuts.php' method='GET'><br>
Emoji List (can be comma and/or space separated word list): <input style='width:280px;border-radius:50px;border:1px solid lightblue;padding:8px 8px 8px 8px;' placeholder='Your Emoji Display Web Application Instant Search' title='Emoji Search Match Word List' name=inans id=inans1 value='Aries,Taurus,Gemini,Cancer,Leo,Virgo,Libra,Scorpio,Sagittarius,Capricorn,Aquarius,Pisces' type=text></input>  <input style='display:inline-block;width:280px;border-radius:50px;border:1px solid lightblue;padding:8px 8px 8px 8px;' placeholder='But Show (optionally)' title='But Show' name=outans id=outans1 value=''></input><br>
Your Tailored Web Application Heading: <input title='Heading' name=heading id=heading1 value='Astrology' type=text></input><br>
Web Application SubHeading: <input title='SubHeading' name=subheading id=subheading1 value='Horoscope' type=text></input><br>
Web Application URL Prefix for Links (that a suffix of lowercase Emoji List word works for, or substitution of ~ works for): <input style='width:280px;' title='URL Prefix' name=urlprefix id=urlprefix1 value='https://cafeastrology.com/~dailyhoroscope.html' type=url></input><br><br>
<input type=hidden name=rand id=rand1 value='" . rand() . "'></input>
<input type='submit' id='mysubmit1' value='Run' style='background-color:yellow;border:5px solid red;'></input><br><br>
</form>
<br> ... or change it for yourself ... or posted examples like <a target=_top href='//www.rjmprogramming.com.au/HTMLCSS/world_flags.html' title='World Flags'>World Flags</a> ... or ...<br><form onsubmit='return maybepost2(this);' id='myform2' action='./emoticon_keyboard_shortcuts.php' method='GET'><br>
Emoji List (can be comma and/or space separated word list): <input style='width:280px;border-radius:50px;border:1px solid lightblue;padding:8px 8px 8px 8px;' placeholder='Your Emoji Display Web Application Instant Search' title='Emoji Search Match Word List' name=inans id=inans2 value='Cucumber,Banana,Apple,Avocado,Pineapple,Grape,Melon,Watermelon,Tangerine,Lemon,Pear,Peach,Cherries,Strawberry,Kiwi Fruit,Tomato,Eggplant,Potato,Carrot,Mushroom,Peanuts,Chestnut,Kiwi Fruit,Red Apple,Green Apple' type=text></input>  <input style='display:inline-block;width:280px;border-radius:50px;border:1px solid lightblue;padding:8px 8px 8px 8px;' placeholder='But Show (optionally)' title='But Show' name=outans id=outans2 value=''></input><br>
Your Tailored Web Application Heading: <input title='Heading' name=heading id=heading2 value='Fruit and Vegetables' type=text></input><br>
Web Application SubHeading: <input title='SubHeading' name=subheading id=subheading2 value='Wikipedia ... thanks' type=text></input><br>
Web Application URL Prefix for Links (that a suffix of lowercase Emoji List word works for, or substitution of ~ works for): <input style='width:280px;' title='URL Prefix' name=urlprefix id=urlprefix2 value='https://en.wikipedia.org/wiki/' type=url></input><br><br>
<input type=hidden name=rand id=rand2 value='" . rand() . "'></input>
<input type='submit' id='mysubmit2' value='Run' style='background-color:yellow;border:5px solid red;'></input><br><br>
</form>
</details>";
$mb="";
if (isset($_GET['inans'])) {
 if (isset($_GET['outans'])) $mb.=" outans=decodeURIComponent('" . $_GET['outans'] . "').replace(/\+/g,' '); ";
 $mb.=" inans=decodeURIComponent('" . $_GET['inans'] . "').replace(/\+/g,' '); ";
 echo "<body onload=\" if (document.getElementById('amailto')) { document.getElementById('amailto').href=mto; }   document.getElementById('ifn').focus(); " . $mb . " if (inans != '') { document.getElementById('ifn').value=inans; document.getElementById('ifo').value=outans;   inans=''; ob=true; okaytoask=1; } setTimeout(ask,5000);\">";
} else if (isset($_POST['inans'])) {
 if (isset($_POST['outans'])) $mb.=" outans=decodeURIComponent('" . $_POST['outans'] . "').replace(/\+/g,' '); ";
 $mb.=" inans=decodeURIComponent('" . $_POST['inans'] . "').replace(/\+/g,' '); ";
 echo "<body onload=\" if (document.getElementById('amailto')) { document.getElementById('amailto').href=mto; }   document.getElementById('ifn').focus(); " . $mb . "   if (inans != '') { document.getElementById('ifn').value=inans;  document.getElementById('ifo').value=outans;  inans=''; ob=true; okaytoask=1; } setTimeout(ask,5000);\">";
} else {
 echo "<body onload=\" if (document.getElementById('amailto')) { document.getElementById('amailto').href=mto; }   document.getElementById('ifn').focus();  if (inans != '') { document.getElementById('ifn').value=inans;  document.getElementById('ifo').value=outans;  inans=''; ob=true; okaytoask=1; } setTimeout(ask,5000);\">";
}
if (isset($_GET['urlprefix']) || isset($_POST['urlprefix'])) {
 if (isset($_GET['heading'])) {
 echo "<h1>" . urldecode($_GET['heading']) . "<a target=_self href='./emoticon_keyboard_shortcuts.php' title='Home'>.</a></h1>";
 if (isset($_GET['subheading'])) echo "<h3>" . urldecode($_GET['subheading']) . "</h3>";
 echo "<h4><a id=amailto title='Share via Email' href=''><i class='em em-email'></i> Email</a>&nbsp;<iframe name=gmci id=gmci src='' style='display:none;'></iframe></h4>";
 } else if (isset($_POST['heading'])) {
 echo "<h1>" . urldecode($_POST['heading']) . "<a target=_self href='./emoticon_keyboard_shortcuts.php' title='Home'>.</a></h1>";
 if (isset($_POST['subheading'])) echo "<h3>" . urldecode($_POST['subheading']) . "</h3>";
 echo "<h4><a id=amailto title='Share via Email' href=''><i class='em em-email'></i> Email</a>&nbsp;<iframe name=gmci id=gmci src='' style='display:none;'></iframe></h4>";
 } else {
 echo "<h1>Emoji Links<a target=_self href='./emoticon_keyboard_shortcuts.php' title='Home'>.</a></h1>";
 echo "<h4><a id=amailto title='Share via Email' href=''><i class='em em-email'></i> Email</a>&nbsp;<iframe name=gmci id=gmci src='' style='display:none;'></iframe></h4>";
 }
 echo "<div id=mydiv style='width:95%;'></div><br>" . $tyo . "<br><details style='background-color:cyan;'><summary>Next Search</summary><h1>Emoji Searches<a target=_self href='./emoticon_keyboard_shortcuts.php' title='Home'>.</a></h1><h3>RJM Programming - February, 2018</h3><h3>Thanks to <a target=_blank href='https://afeld.github.io/emoji-css/'>Emoji CSS</a> and <a target=_blank href='https://emojiterra.com/'>Emoji Terra</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input onblur=\"if (this.value.length > 0) { ob=true; }\" placeholder=\"Our HTML Entities Instant Search\" type=\"text\" id=\"ifn\" style=\"position:absolute:top:120px;left:300px;width:280px;border-radius:50px;border:1px solid blue;padding:8px 8px 8px 8px;z-index:21;\"></input></h3>";
} else {
 echo "<h1>Emoji Searches<a target=_self href='./emoticon_keyboard_shortcuts.php' title='Home'>.</a></h1><h3>RJM Programming - February, 2018</h3><h3>Thanks to <a target=_blank href='https://afeld.github.io/emoji-css/'>Emoji CSS</a> and <a target=_blank href='https://emojiterra.com/'>Emoji Terra</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input onblur=\"if (this.value.length > 0) { ob=true; }\" placeholder=\"Our HTML Entities Instant Search\" type=\"text\" id=\"ifn\" style=\"position:absolute:top:120px;left:300px;width:280px;border-radius:50px;border:1px solid blue;padding:8px 8px 8px 8px;z-index:21;\"></input></h3><div id=mydiv style='width:95%;'></div><br>" . $tyo;
}
?>
<input id='ifo' value='' type=hidden></input>
<iframe style="display:none;width:100%;height:400px;" name="ifoo" id="ifoo" onload="checkioo(this);" src='//emojiterra.com/pineapple/'></iframe>
<iframe id="ifo" onload="checkio(this);" src='//afeld.github.io/emoji-css/' style="position:absolute:top:0px;left:0px;width:100%;height:90vh;"></iframe>
<?php 
if (isset($_GET['urlprefix']) || isset($_POST['urlprefix'])) {
 echo "</details>";
} 
?>
</body>
</html>

