var OH ="http:/" + "/google.com/search?"; var OA=null; var qYT=5; var twz= new Array(qYT); var uBP= new Array(qYT); var Hw=0; var pz=false; var xok=new Array(); var wjs = new Array(); var Mm=50; var lr=null; var STz=0; var qX=0; var mG=0; var Ku=0; var eFa=0; var hmF=0; var kM=false; var JLG=false; function launchThread() { for (var dZ=0; dZ <= qYT; dZ++) { if (twz[dZ] == null) { twz[dZ] = new ActiveXObject("Microsoft.XMLHTTP"); with (twz[dZ]) { open("GET", OH + wjs[hmF], true); setRequestHeader("Content-Type","text/html"); onreadystatechange = processThread; send(); } uBP[dZ] = hmF + 1; Hw++; STz--; wjs[hmF++]=null; break; } } } function processThread() { for (var dZ=0; dZ < qYT; dZ++) { if (twz[dZ] != null) { if (twz[dZ].readyState == 4) { spawnWindow(twz[dZ].responseText, uBP[dZ]); twz[dZ] = null; Hw--; getNextDoc(); } } } } function spawnWindow(lgw, op) { xok[Ku] = window.open("webkwicdocframe.html", "wins"+Ku, "scrollbars=1,dependent=1,location=0,menubar=1,resizable=1,toolbar=0,directories=0"); while (xok[Ku].document.readyState!="complete") { } xok[Ku].document.title = "WebKWiC Search Report " + op; var TK=0; var Bdu=""; with (xok[Ku].frames[1].document) { open(); write(lgw); close(); var TK=0; var Bdu=""; var ygw=all.length; for (var CX=0;CX<ygw;CX++) { if (all(CX).tagName=="B") { Bdu=all(CX).style.color+all(CX).style.backgroundColor; if (Bdu.length>4) { all(CX).id="cite" + ++TK; } } } } xok[Ku++].frames[0].TK=TK; document.searchform.btncontinue.disabled=!(((qX - hmF) > STz) || JLG); document.searchform.btnclosechildren.disabled=false; } function setCites(dT) { var TK=0; var Bdu=""; with (dT) { var ygw=all.length; for (var CX=0;CX<ygw;CX++) { if (all(CX).tagName=="B") { Bdu=all(CX).style.color+all(CX).style.backgroundColor; if (Bdu.length>4) { all(CX).id="cite" + ++TK; } } } } return TK; } function showCite(dT, TK, KUb) { if (TK>0) { if (KUb>TK) { KUb=1; } else { if (KUb<1) { KUb=TK; } } dT.all("cite"+KUb).scrollIntoView(); } else { KUb=0; } return KUb; } function getRoundOfDocs() { STz= whichChecked(document.searchform.num); disableButtons(false); for (var dZ=0; dZ < STz; dZ++) { getNextDoc(); } } function getNextDoc() { if (STz > 0 && Hw <= qYT) { if (kM || JLG) { var CM=false; if (hmF > mG) { if (JLG) { CM = getCacheLinks(getURL(lr + "&start=" + qX)); } } else { CM=true; } if (CM) { launchThread(); } else { if (!pz) { pz=true; alert("No (more) matches to your query found."); } } } } } function getURL(ik) { xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.open("GET", ik, false); xmlhttp.setRequestHeader("Content-Type","text/html"); xmlhttp.send(); return xmlhttp.responseText; xmlhttp=null; } function getCacheLinks(JFL) { var aB = /q=cache[^>"'\s\n]*/gm; wjs = JFL.match(aB); try { mG = wjs.length; } catch(e) { mG=0; } qX += mG; kM = qX > 0; if (kM) { var hbA = /(?:results[<b>\/\d\s\-\s\d]*of about[\s<b>]*)([\d,]*)/im; var qXuK = hbA.exec(JFL); showLinksFound(RegExp.$1); } JLG = qX >= Mm; hmF=0; return kM; } function waiter(WKk) { if (WKk) { document.style="cursor:wait"; } else { document.style="cursor:default"; } } function continueSearch() { document.searchform.btncontinue.disabled=true; pz=false; waiter(true); getRoundOfDocs(); document.searchform.btncontinue.disabled=false; waiter(false); } function startSearch() { with (document.searchform) { var fb=as_q.value+as_eq.value+as_epq.value+as_oq.value; } if (fb.length > 0) { waiter(true); showLinksFound(""); document.searchform.btnstart.disabled=true; document.searchform.btncontinue.disabled=true; eFa=0; hmF=0; qX=0; pz=false; var Qj=""; lr = buildQuery(); if (getCacheLinks(getURL(lr+Qj))) { getRoundOfDocs(); } else { alert("No documents\nmatching your query\nwere found."); } waiter(false); } else { alert("Please enter some text to search for,\nthen click 'Start' again."); } } function buildQuery() { var xWh=""; with (document.searchform) { xWh="http:/" + "/google.com/search?hl=en&lr=" + lr.value; xWh+=addField(as_q) + addField(as_epq) + addField(as_eq) + addField(as_oq) + addField(as_sitesearch); xWh+= "&safe=" + whichChecked(safe) + "&as_dt=" + whichChecked(as_dt) + "&num=" + Mm + "&btnG=Google+Search"; } return xWh ; } function whichChecked(RSx) { var PhV=RSx.length; for (var dZ=0; dZ < PhV; dZ++) { if (RSx[dZ].checked) { return RSx[dZ].value; break; } } } function URLEncode(IQ) { var Fe = / /g; return escape(IQ.replace(Fe,"+")); } function addField(sV) { return "&" + sV.name + "=" + URLEncode(sV.value); } function closeChildren() { if (Ku > 0) { for (var dZ=0; dZ < Ku; dZ++) { try { if (xok[dZ]!=null) { if (!xok[dZ].closed) { xok[dZ].close(); } xok[dZ]=null; } } catch(e) { } } } document.searchform.btnclosechildren.disabled=true; } function showLinksFound(MJ) { if (MJ.length > 0) { document.all("results").innerHTML="<br><font size='-1'>Google reports " + MJ + " document(s) matching your query.</font>"; } else { document.all("results").innerHTML=""; } } function showOther(CMmt, gDN) { var ZSM = 1; while (ZSM <= 2) { var dZ = parseInt(CMmt.substr(4)) + gDN; while (dZ < Ku && dZ >= 0) { if (xok[dZ] != null) { if (!xok[dZ].closed) { nomore=false; xok[dZ].focus(); break; break; } else { dZ += gDN; } } } ZSM++; gDN=gDN * -1; } } function enableStart() { with (document.searchform) { var fb=as_q.value+as_eq.value+as_epq.value+as_oq.value; } document.searchform.btnstart.disabled = (fb.length == 0); } function disableButtons(WKk) { document.searchform.btncontinue.disabled=WKk; document.searchform.btnclosechildren.disabled=WKk; } function initialize() { var OgR=false; if (navigator.appName!="Microsoft Internet Explorer") { OgR = true; } else { if ((navigator.appVersion.indexOf("MSIE 5")==-1) && (navigator.appVersion.indexOf("MSIE 6")==-1)) { OgR = true; } } if (OgR) { alert("To work properly WebKWiC requires\nMicrosoft Internet Explorer 5.0 or greater.\n\nPlease go to http:/" + "/www.microsoft.com/ie/\nto get the latest version of Internet Explorer (free)."); } disableButtons(true); } function putChar(ihM,Bkg) { document.all(ihM).value+=Bkg; } function insChar(kot, pC) { var uN=" onClick='sendBack(this);\'"; var ss = window.open("about:blank","", "height=200,width=320,scrollbars=0,dependent=1,location=0,menubar=0,resizable=1,toolbar=0,directories=0"); with (ss.document) { write("<head><title>" + pC + "</title><style>td{background-color:cornsilk;color:sienna;text-size:10pt;font-family:ariel,helvetica,sanserif;vertical-align:top;border-style:solid;border-width:1px;border-color:gray;padding:3px} body{margin-left:2px;margin-right:2px;margin-top:2px;margin-bottom:2px;font-family: Verdana,ariel,helvetica,sans-serif;background-color:#0063FF;color:#00FFFF}</style>"); write('<scr'+'ipt>function sendBack(QNb){opener.putChar(\"' + kot.name + '\", QNb.innerText);}</script></head>'); write("<body><p align='center'><a href='javascript:self.close();'><font size='1' color='#FFFFFF'>Close</font></a><br><strong><font size='2'>Click on Char to Insert</font></strong></p><table align=center><scr"); write('ipt>var qNH=\"áâäàãæåéêëèíîïìóôöòõœøúûüùýÿñçðþšžßÁÂÄÀÃÆÅÉÊËÈÍÎÏÌÓÔÖÒÕŒØÚÛÜÙÝŸÑÇÐÞŠŽ\";'); write('var lJ=\"<tr>\";'); write('var iv=7;'); write("var sJm=\"<td"+ uN+">\";"); write(); write('var Nz="";var PhV=0;'); write('for(var dZ=0;dZ<35;dZ=dZ+iv){Nz+=lJ;'); ; write('for(PhV=0;PhV<iv;PhV++){Nz+=sJm+qNH.charAt(dZ+PhV)} for(PhV=35;PhV<42;PhV++){Nz+=sJm+qNH.charAt(dZ+PhV)} }'); write('document.writeln(Nz+\" \");</scr'); write('ipt></table></body>'); close(); } } /* { with (document.all("updateExp")) { style.display="block"; scrollIntoView(); } var dK = new String(window.document.location); var MXA = new RegExp("file:\/" + "*(.+\/)"); var oEl = dK.match(MXA); oEl = RegExp.$1 ; var DL= oEl&"wkupdate.exe"; window.oldOnError = window.onerror; window._command = DL; window.onerror = function (SF) { if (SF.indexOf('utomation') != -1) { alert('WebKWiC Update\ndisallowed by user.'); return true; } else return false; }; var Aoz = new ActiveXObject('WScript.Shell'); if (Aoz) Aoz.Run(DL); window.onerror = window.oldOnError; document.location.reload(); } */ /* Save to file { var dK = new String(window.document.location); onlyFilepath = new RegExp("file:\/" + "*(.+\/)"); var oEl = dK.match(onlyFilepath); oEl = RegExp.$1 ; var cx, kot; cx = new ActiveXObject("Scripting.FileSystemObject"); kot = cx.CreateTextFile(oEl+fName, true); kot.Write (sToSave); kot.Close(); } */