/*
  Referring URL probe.  Author Joe McCormack.  Copyright 2003.  All Rights Reserved.
  http://www.geocities.com/code_stratos/
*/
var ppx, ppy, cwidth, zerodown, mymsg, mylink, mybcolor, myfcolor, myfonttype, bx, by, postwin = "active";
var prewin = new String(), verify = new String(), pframe = new String();
var pma, pmb, pmc, pmd, pme, pmf, pmg, pmh, pmi, pmj, pmk, pml, pmm;
function urlprobe(freeze, imgnum, imgwidth, width, height, ftype, size, colorb, colorf, button, message, verify, link) {
pma = freeze; pmb = imgnum; pmc = imgwidth; pmd = width; pme = height; pmf = ftype; pmg = size;
pmh = colorb; pmi = colorf; pmj = button; pmk = message; pml = verify; pmm = link;
try { prewin = opener.location; }
catch(onerror) { postwin = "null"; }
try { pframe = opener.name; }
catch(onerror) { postwin = "stacked"; }
intermediate(pma,pmb,pmc,pmd,pme,pmf,pmg,pmh,pmi,pmj,pmk,pml,pmm);
}
function intermediate (freeze, imgnum, imgwidth, width, height, ftype, size, colorb, colorf, button, message, verify, link) {
var presults = -1;
if(postwin == "active") {
var tmask = prewin.toString(); var mmask = verify.toString();
tmask = tmask.toLowerCase(); mmask = mmask.toLowerCase();
presults = tmask.search(mmask);
}
if (presults == -1 && postwin == "null") {
var tfl = pframe.toString(); var tfc = verify.toString();
tfl = tfl.toLowerCase(); tfc = tfc.toLowerCase();
presults = tfl.search(tfc);
}
if (presults == -1) {
bx = document.body.clientWidth; by = document.body.clientHeight;
mymsg = button; mylink = link; mybcolor = colorb; myfcolor = colorf; myfonttype = ftype;
ppx = (bx / 2) - (width / 2); ppy = (by / 2) - (height / 2); cwidth = width - imgwidth - 5;

/*document.getElementById("pprobe").style.left = ppx;*/ document.getElementById("pprobe").style.top = 50; document.getElementById("pprobe").style.visibility = "visible";
zerodown = setTimeout('probefinal()',freeze);
}
}
function probefinal() {
clearTimeout(zerodown); document.getElementById("pprobe").style.visibility = "hidden"; linkback.style.left = 0; linkback.style.top = 5;

}