// aboriginal_language_regions.js
// Javascript to accompany aboriginal_language_regions.html
// RJM Programming
// June, 2015

window.onload = doonload;

var coords=new Array("979","176","1169","589","786","329","519","62","622","296","616","425","531","485","553","381","559","417","120","728","746","790","949","1065","906","900","880","886","888","858","977","814","1025","826","1045","766","1087","786","1103","756","1025","724","1093","700");
var places=new Array("Cooktown","Cooktown","Brisbane","Brisbane","Mount Isa","Mount Isa","Darwin","Darwin","Tennent Creek","Tennent Creek","Alice Springs","Alice Springs","Uluru","Uluru","Yuendemu","Yuendemu","Papunya","Papunya","Perth","Perth","Adelaide","Adelaide","Hobart","Hobart","Melbourne","Melbourne","Ballarat","Ballarat","Bendigo","Bendigo","Wagga Wagga","Wagga Wagga","Canberra","Canberra","Bathurst","Bathurst","Sydney","Sydney","Newcastle","Newcastle","Dubbo","Dubbo","Tamworth","Tamworth");
var geolls=new Array("145.2833","-15.4667","153.0333","-27.4667","139.5","-20.7333","130.8333","-12.45","134.2","-19.65","133.87","-23.7","131.0361","-25.345","131.7833","-22.25","131.9","-23.2167","115.8589","-31.9522","138.601","-34.929","147.325","-42.8806","144.9631","-37.8136","143.85","-37.55","144.2667","-36.75","147.3689","-35.1189","149.1244","-35.3075","149.5778","-33.42","151.2094","-33.865","151.75","-33.9167","148.6011","-32.2569","150.9167","-31.0833");

var cbmv=false;
var url = "http://www.rjmprogramming.com.au/PHP/Map/map.php?title=Dublin&label=['Lat',&value='Lon','Name']&data=,[53.3478,-6.2597,~Dublin~]";

var zhr = false;
var xP, yP;
var aurl;
var myid;
var myouru="";
var myu="";
var myusuffix="";
var globaltimer;
var mapurl="";
var swin=null;
var mytitle="";
var mytext="";
var mylatlong="";
var mylasttext="";
var popx=0, popy=0;
var omode=0;

function myInit() {
//alert('navigator.userAgent.toLowerCase()');
//alert(navigator.userAgent.toLowerCase());
var allOpts;
      if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) {
 allOpts = document.getElementsByTagName('select');
 myid = document.getElementById('tuts');
 //myid.size = "1";
} else {
 allOpts= document.getElementsByClassName('opts');
}
for (var j=0; j < allOpts.length; j++) {
      if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1) && 1 == 2) {
//alert('here1');
//alert('here2');
  allOpts[j].onmouseover = preshowIt;
  allOpts[j].onmouseout = prehideIt;
      } else {
  allOpts[j].onmouseover = showIt;
  allOpts[j].onmouseout = hideIt;
      }
}
}

function showIt(evt) {
//if (mapurl != '') alert(mapurl);
if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) {
   myu = mapurl;
} else {
   try {
     myid = this; //evt.srcElement;
     myu = mapurl;
   } catch (eee) {
     myu = "";
   }
}
//if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) alert(myid.value);
   getIt(evt);
   return false;
}


function hideIt(evt) {
   var pwis=document.getElementById("pWin");
   if (pwis != null) {
   document.getElementById("pWin").style.visibility = "hidden";
   //document.title='hidden';
if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) {
   var ps = document.getElementById('ppos');
   ps.innerHTML = " ";
}
}
}

function getXMLHttpRequest() 
{
    if (window.XMLHttpRequest) {
        return new window.XMLHttpRequest;
    }
    else {
  try {
    return new ActiveXObject("Msxml2.XMLHTTP");
  } catch (othermicrosoft) {
    try {
      return new ActiveXObject("Microsoft.XMLHTTP");
    } catch (failed) {
      return false;
    }
  }
    }
}

function preshowIt(ev) {
  //alert('here');
  globaltimer=setTimeout(function(){showIt(ev)}, 1000);
}

function posthideIt() {
  hideIt();
  clearTimeout(globaltimer);
}


function getIt(evt) {


   if (myu.length > 0) {
     var myurl = myu;
     myu = "";
   } else if (evt) {
     var myurl = mapurl; //"http://www.rjmprogramming.com.au/wordpress/?p=" + evt.id;
   } else {
     evt = window.event;
     var myurl = mapurl; //"http://www.rjmprogramming.com.au/wordpress/?p=" + myid.id;
   }
   myu = "";
   aurl = myurl;
      if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) {
   xP = window.event.clientX;
   yP = window.event.clientY;
   popx = eval(xP.toString().replace("px",""));
   popy = eval(yP.toString().replace("px",""));
   popx += 250;
   //document.title=popx;
	} else {
   xP = evt.clientX;
   yP = evt.clientY;
   popx = eval(xP.toString().replace("px",""));
   popy = eval(yP.toString().replace("px",""));
   popx += 250;
   //document.title=popx;
}
   
   zhr = getXMLHttpRequest();

   if (zhr != null) {
    zhr = zhr;
   } else {
  try {
    zhr = new ActiveXObject("Msxml2.XMLHTTP");
  } catch (othermicrosoft) {
    try {
      zhr = new ActiveXObject("Microsoft.XMLHTTP");
    } catch (failed) {
      zhr = false;
    }
  }
   }
   //if (window.XMLHttpRequest) {
   //  zhr = new XMLHttpRequest();
   //} else {
   //  if (window.ActiveXObject) {
   //    try {
   //      zhr = new ActiveXObject("Microsoft.XMLHTTP");
   //    } catch (ee) { }
   //  }
   //}


   if (zhr) {
     myouru = myurl;
     zhr.open("GET", myurl, true);
     zhr.onreadystatechange = showMore;
     zhr.send(null);
   } else {
     alert("Sorry ... no XMLHttpRequest possible");
   }

}

function showMore() {
  var pWin = document.getElementById('pWin');
  if (pWin == null) {
    document.body.innerHTML += pWinIs();
    pWin = document.getElementById('pWin');
  }
  if (pWin != null) {
    var cbmoa=document.getElementById('cbma');
    var cbmav=cbmoa.checked; 
  if (zhr.readyState == 4) {
    if (zhr.status == 200 && mytext != "" && mytitle != "") {
      //document.title=zhr.responseText.substring(0,10);
      pWin.innerHTML = "<p><br><br>" + mytitle + "<br>" + mylatlong + "</p>"; //zhr.responseText;
      mytext=zhr.responseText;
      if (cbmav) setTimeout(swinit,3000);
    } else if (mytext != "" && mytitle != "") {
      pWin.innerHTML = "Problem " + aurl;
    } else if (zhr.status == 200) {
      mytext=zhr.responseText;
      if (cbmav) setTimeout(swinit,3000);
    }
  }
 if (navigator.userAgent.toLowerCase().indexOf("ie") != (0 - 1)) {
   pWin.style.top = parseInt(yP) + "px";
   pWin.style.height = parseInt(xP) + "px";
 } else {
   pWin.style.top = parseInt(yP) + "px";
 }
 pWin.style.left = parseInt(xP) + "px";
  //document.title='on';
  if (pWin.innerHTML != "") pWin.style.visibility = "visible";
  //document.title='on2';
  pWin.onmouseout = hideIt;
  //document.title=aurl;
  }
}

function doit() {
    var cbmoa=document.getElementById('cbma');
    var cbmav=cbmoa.checked;
  if (cbmav) {
  if (mytext.indexOf("html") != -1 && mytext != mylasttext) {
   if (swin != null) {
    swin.close();
    swin=null;
   }
    if (document.URL.indexOf("localhost:8888") != -1 && 1 == 2) {
      swin=window.open("", mytitle, "top=" + popy + ",left=" + popx + ",height=450,width=410");
      swin.document.write(mytext);
    } else {
      swin=window.open(myouru, mytitle, "top=" + popy + ",left=" + popx + ",height=450,width=410");
    }
      //document.title="top=" + popy + ",left=" + popx;
      mylasttext=mytext;
      mytext="";
      mytitle="";
  }
  }
}

function swinit() {
  var pWin = document.getElementById('pWin');
  if (pWin == null) {
    document.body.innerHTML += pWinIs();
    pWin = document.getElementById('pWin');
  }
  if (pWin != null) {
   if (pWin.style.visibility != 'hidden') {
    if (pWin.innerHTML.indexOf(mytitle) != -1) {
     doit();
    } else if (mytitle != "" && mytext != "") {
    pWin.innerHTML = "<p>" + mytitle + "<br>" + mylatlong + "</p>";
    pWin.style.visibility = "visible";
     doit();
    }
   } else if (mytitle != "" && mytext != "") {
    pWin.innerHTML = "<p>" + mytitle + "<br>" + mylatlong + "</p>";
    pWin.style.visibility = "visible";
     doit();
   } //else {
      //alert(mytitle + " 99 " + mytext);
   //}
  }
}

function doonload() {
  var was=document.body.innerHTML;
  var ah, ahspare, j;
  var is="";
  if (was.indexOf("<" + "table") == -1) {
    var bits=was.split("<area ");
    
    is = "<div id='mydiv'><h1>Indigenous Australia</h1><table><tr><td><select id='mysel' onchange='selchange(this);'><option value=''>Google Web Search</option><option value='People'>People</option><option value='Welcome to Country'>Welcome to Country</option><option value='Land'>Land</option><option value='Dreamtime Stories and Paintings'>Dreamtime Stories and Paintings</option><option value='Tradition'>Tradition</option><option value='Sacred Sites'>Sacred Sites</option><option value='Arts and Culture'>Arts and Culture</option><option value='Language'>Language</option><option value='Sport'>Sport</option></select>&nbsp;&nbsp;<input onchange=\"selchange(document.getElementById('mysel'));\" id='cbi' type='checkbox' value='Images'>Images</input>&nbsp;&nbsp;<input onchange=\"selchange(document.getElementById('mysel'));\" id='cbv' type='checkbox' value='Videos'>Videos</input>&nbsp;&nbsp;<input id='cbm' type='checkbox' value='Map'>Map (onclick)</input>&nbsp;&nbsp;<input id='cbma' type='checkbox' value='AjaxMap'>Map (onhover)</input>&nbsp;&nbsp;<iframe id='myi' style='display:none;height:400px;width:400px;' src='javascript:none;'></iframe></td></tr><tr><td>" + bits[0];
    for (var i=1; i<bits.length; i++) {
      ah = bits[i].split("/>");
      //alert(ah[0]);
      if (ah[0].indexOf(">") != -1) {
        ahspare = ah[0].split(">");
        is += "<area " + ahspare[0] + ' onmouseover="ajaxoc(event, ' + "'" + ahspare[0].replace(/=/g,"_").replace(/"/g,"~") + "'" + ');"' + ' onmouseout="hideIt();" onclick="oc(' + "'" + ahspare[0].replace(/=/g,"_").replace(/"/g,"~") + "'" + ');"';
        for (j=1; j<ahspare.length; j++) {
          is += '>' + ahspare[j];
        }
        if (ah.length > 1) is += ah[1];
      } else {
        is += "<area " + ah[0] + ' onclick="oc(' + "'" + ah[0].replace(/=/g,"_").replace(/"/g,"~") + "'" + ');" />' + ah[1];
      }
    }
    is += "</td></tr></table></div>";
    document.body.innerHTML = is;
    myInit(); // Ajax functionality
  }
}

function iframeurl(atitle, inx, iny, mode) {
    var ii=0, jj, vsdist=-1.0, thisdist=0.0, closestis=-1, nextis=-1, closestc="", nextc="";
    var closestx, closesty, closestlong, closestlat;
    var nextx, nexty, nextlong, nextlat;
    
    for (ii=0; ii<eval(coords.length / 2); ii++) {
      thisdist = eval((eval(inx) - eval(coords[eval(ii * 2)])) * (eval(inx) - eval(coords[eval(ii * 2)])) + (eval(iny) - eval(coords[eval((ii * 2) + 1)])) * (eval(iny) - eval(coords[eval((ii * 2) + 1)])));
      if (vsdist < 0 || thisdist < vsdist) {
        closestis=eval(ii * 2);
        closestc=places[eval(ii * 2)];
        closestx=coords[eval(ii * 2)];
        closesty=coords[eval((ii * 2) + 1)];
        closestlong=geolls[eval(ii * 2)];
        closestlat=geolls[eval((ii * 2) + 1)];
        vsdist = thisdist;
        //alert(coords.length + " " + closestc);
      }
    }
    vsdist=-1.0;
    for (ii=0; ii<eval(coords.length / 2); ii++) {
      if (eval(ii * 2) != closestis) {
       thisdist = eval((eval(inx) - eval(coords[eval(ii * 2)])) * (eval(inx) - eval(coords[eval(ii * 2)])) + (eval(iny) - eval(coords[eval((ii * 2) + 1)])) * (eval(iny) - eval(coords[eval((ii * 2) + 1)])));
       if (vsdist < 0 || thisdist < vsdist) {
        nextis=eval(ii * 2);
        nextc=places[eval(ii * 2)];
        nextx=coords[eval(ii * 2)];
        nexty=coords[eval((ii * 2) + 1)];
        nextlong=geolls[eval(ii * 2)];
        nextlat=geolls[eval((ii * 2) + 1)];
        vsdist = thisdist;
       }
      }
    }
    //alert(closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);
    //alert("eval(eval(" + closestlong + ") + (((eval(" + inx + ") - eval(" + closestx + ")) / ((eval(" + nextx + ") - eval(" + closestx + "))) * (eval(" + nextlong + ") - eval(" + closestlong + ")))))");
    var ourlong = eval(eval(closestlong) + (((eval(inx) - eval(closestx)) / ((eval(nextx) - eval(closestx))) * (eval(nextlong) - eval(closestlong)))));
    //alert(ourlong + " " + closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);
    //alert("eval(eval(" + closestlat + ") + (((eval(" + iny + ") - eval(" + closesty + ")) / ((eval(" + nexty + ") - eval(" + closesty + "))) * (eval(" + nextlat + ") - eval(" + closestlat + ")))))");
    var ourlat = eval(eval(closestlat) + (((eval(iny) - eval(closesty)) / ((eval(nexty) - eval(closesty))) * (eval(nextlat) - eval(closestlat)))));
    //alert(ourlong + "," + ourlat + " " + closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);
    if (mode == 1) {
      return ourlat + "," + ourlong;
    } else {
      var cbmo=document.getElementById('cbm');
      cbmv=cbmo.checked;
      if (cbmv && omode == 0) window.open("http://www.rjmprogramming.com.au/PHP/Map/map.php?title=" + atitle.replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + ourlat + "," + ourlong + ",~" + atitle.replace(/ /g, "%20") + "~]", atitle, "top=150,left=150,width=440,height=400");
    }
    return ""; //"http://www.rjmprogramming.com.au/PHP/Map/map.php?title=" + atitle.replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + ourlat + "," + ourlong + ",~" + atitle.replace(/ /g, "%20") + "~]";
}

function ajaxoc(evt, coordsare) {
 omode=1;
 var myinfo=oc(coordsare);
 omode=0;
 var prelat="", prelong="";
 //alert(myinfo);
 if (myinfo.indexOf(";") != -1) {
   var atitle=myinfo.split(";");
   if (atitle.length > 1) {
    mytitle=atitle[1];
    var geog=atitle[0].split(",");
    //alert(geog);
    var geos=iframeurl(atitle[1], geog[0], geog[1], 1);
    //alert(geos);
    var geol=geos.split(",");
    if (eval(geol[0]) >= 0.0) prelat = "+";
    if (eval(geol[1]) >= 0.0) preling = "+";
    mapurl="http://maps.google.com/maps?z=15&t=m&q=loc:" + prelat + geol[0] + prelong + geol[1];
    if (document.URL.indexOf("localhost:8888") != -1) {
      mapurl="http://localhost:8888/PHP/Map/map.php?title=" + atitle[1].replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + geol[0] + "," + geol[1] + ",~" + atitle[1].replace(/ /g, "%20") + "~]";
    } else {
      mapurl="http://www.rjmprogramming.com.au/PHP/Map/map.php?title=" + atitle[1].replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + geol[0] + "," + geol[1] + ",~" + atitle[1].replace(/ /g, "%20") + "~]";
    }
    mylatlong="Latitude: " + eval(geol[0]).toFixed(4) + "&deg;<br>" + " Longitude: " + eval(geol[1]).toFixed(4) + "&deg;";
    //mylatlong="Latitude: " + eval(geol[0]) + "&deg;" + " Longitude: " + eval(geol[1]) + "&deg;";
    //var cbmoa=document.getElementById('cbma');
    //var cbmav=cbmo.checked;
    //if (cbmav) {
     showIt(evt);
    //}
   }
 }
}


function oc(coordsare) {
  var ii=0, jj=3, kk=2;
  if (1 == 2) alert(coordsare);
  var words=coordsare.split(" "), avx=0.0, avy=0.0;
  for (ii=0; ii<words.length; ii++) {
    if (words[ii].indexOf("coords_~") != -1) jj=ii;
  }
  if (words.length >= 4) {
    var cbmo=document.getElementById('cbm');
    cbmv=cbmo.checked;
    var care=words[jj].replace(/ /g,"").replace("coords_~", "").replace("~ ", ",").replace("~", ",").split(",");
    var title=words[1].replace("title_~", "").replace("alt_~", "").replace(/~/g, ' ');
    //alert(words[1]);
    while (words[kk].indexOf("_~") == -1 && kk < words.length && kk > 0) {
      title+=(" " + words[kk].replace(/~/g, ' '));
      kk++;
      if (kk >= words.length) kk = 0;
    }
    if (cbmv && 1 == 2) alert(words[jj].replace("coords_~", "").replace("~ ", ",").replace("~", ",") + " " + care[0] + "," + care[1]);
    for (ii=0; ii<eval(care.length / 2); ii++) {
      if (cbmv && 1 == 2) alert(ii + " vs " + eval(care.length / 2) + " vs " + care.length);
      //alert(avy + " vs " + care[eval(ii * 2) + 1]);
      if (care[eval(ii * 2)] != "" && care[eval(ii * 2)].indexOf("undefined") == -1) {
       avx=eval((eval(care[eval(ii * 2)]) + eval(avx * ii)) / (eval(ii + 1)));
       //alert(avy + " " + care[eval(ii * 2) + 1]);
       if (cbmv && 1 == 2) alert(ii + " Vs " + eval(care.length / 2) + " vs " + care.length);
       if (care[eval(eval(ii * 2) + 1)] != "" && care[eval(ii * 2) + 1].indexOf("undefined") == -1) avy=eval((eval(care[eval(eval(ii * 2) + 1)]) + eval(avy * ii)) / (eval(ii + 1)));
       if (cbmv && 1 == 2) alert(ii + " VS " + eval(care.length / 2) + " vs " + care.length);
      }
    }
    if (cbmv) {
       var ifurl = iframeurl(title, avx, avy, 0);
       if (ifurl != "" && omode == 0) {
         document.getElementById('myi').src = ifurl;
         document.getElementById('myi').style.display = "inline";
       }
    } 
    return avx + "," + avy + ";" + title;
  }
  return "";
}

function pWinIs() {
 var retval="<div id='pWin' style=' background-color: #FF8000; width: 200px; height: 160px; position: absolute; font: .9em arial, helvetica, sans-serif; padding: 7px; visibility: hidden; top: 55px; left: 25px; border: 2px #CC1000 dashed; clip: auto; overflow: hidden; z-index:8; opacity:0.8;'></div>";
 return retval;
}

function selchange(osel) {
  var ov=osel.value;
  var oi=osel.id;
  var cbio=document.getElementById('cbi');
  var cbiv=cbio.checked;
  var cbvo=document.getElementById('cbv');
  var cbvv=cbvo.checked;
  var cbmao=document.getElementById('cbma');
  var cbmav=cbmao.checked;
  var cbmo=document.getElementById('cbm');
  cbmv=cbmo.checked;
  var was=document.body.innerHTML;
  if (cbiv) {
    if (was.indexOf("tbm=isch") == -1) was = was.replace(/q=/g, "source=lnms&tbm=isch&sa=X&ei=&q=");
  } else if (cbvv) {
    if (was.indexOf("tbm=vid") == -1) was = was.replace(/q=/g, "source=lnms&tbm=vid&sa=X&ei=&q=");
  } else {
    if (was.indexOf("tbm=isch") != -1) was = was.replace(/source=lnms&tbm=isch&sa=X&ei=&q=/g, "q=");
    if (was.indexOf("tbm=vid") != -1) was = was.replace(/source=lnms&tbm=vid&sa=X&ei=&q=/g, "q=");
    if (was.indexOf("tbm=isch") != -1) was = was.replace(/source=lnms&tbm=isch&sa=X&ei=/g, "");
    if (was.indexOf("tbm=vid") != -1) was = was.replace(/source=lnms&tbm=vid&sa=X&ei=/g, "");
    if (was.indexOf("tbm=isch") != -1) was = was.replace(/tbm=isch/g, "tbm=");
    if (was.indexOf("tbm=vid") != -1) was = was.replace(/tbm=vid/g, "tbm=");
  }  
  if (ov != "") {
    document.body.innerHTML = was.replace(/" target="_blank"/g, "+'" + ov.replace(/ /g, "%20") + "'" + '" target="_blank"') + pWinIs();
  } else {
    document.body.innerHTML = was + pWinIs();
  }
  document.getElementById(oi).value = ov;
  document.getElementById('cbi').checked = cbiv;
  document.getElementById('cbv').checked = cbvv;
  document.getElementById('cbm').checked = cbmv;
  document.getElementById('cbma').checked = cbmav;

}