/*
  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;
pprobe.innerHTML = "<table border=\"1\" bordercolor=\"" + colorf + "\" cellpadding=\"5\" cellspacing=\"0\" width=\"" + width + "\" bgcolor=\""+colorb+"\"><tr><td width=\"100%\" valign=\"center\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"5\" width=\"" + width + "\"><tr><td width=\"" + cwidth + "\" valign=\"center\"><font face=\"" + ftype + "\" size=\"" + size + "\" color=\"" + colorf + "\"><b>" + message + "</font></td><td width=\"" + imgwidth + "\" valign=\"center\"><img src=\"" + document.images[imgnum].src + "\" border=\"0\" alt=\"There's More\" /></td></tr></table></td></tr></table>";
pprobe.style.left = ppx; pprobe.style.top = ppy; pprobe.style.visibility = "visible";
zerodown = setTimeout('probefinal()',freeze);
}
}
function probefinal() {
clearTimeout(zerodown); pprobe.style.visibility = "hidden"; linkback.style.right = 0; linkback.style.top = 38;
linkback.innerHTML = "<table border=\"1\" bordercolor=\"" + myfcolor + "\" cellpadding=\"2\" cellspacing=\"0\" bgcolor=\"" + mybcolor + "\"><tr><td width=\"100%\" valign=\"top\"><font face=\"" + myfonttype + "\" color=\"" + myfcolor + "\" size=\"1\" style=\"font-Weight:bold;writing-mode:tb-rl;filter:flipH() flipV();\"><a href=\"" + mylink + "\" target=\"top\" style=\"text-decoration:none;\" class=\"nav\">" + mymsg + "</a></font></td></tr></table>";
linkback.style.visibility = "visible";
}
