//#######################################################
//#######################################################
//####
//#### Generic system routines
//####
//#######################################################
//#######################################################

var objcount=0;
var sending=0;

function emailCheck (emailStr) 
	{
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|uk)$/;

/* The following pattern is used to check if the entered e-mail address
fits the user@domain format.  It also is used to separate the username
from the domain. */

	var emailPat=/^(.+)@(.+)$/;

/* The following string represents the pattern for matching all special
characters.  We don't want to allow special characters in the address. 
These characters include ( ) < > @ , ; : \ " . [ ] */

	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";

/* The following string represents the range of characters allowed in a 
username or domainname.  It really states which chars aren't allowed.*/

	var validChars="\[^\\s" + specialChars + "\]";

/* The following pattern applies if the "user" is a quoted string (in
which case, there are no rules about which characters are allowed
and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
is a legal e-mail address. */

	var quotedUser="(\"[^\"]*\")";

/* The following pattern applies for domains that are IP addresses,
rather than symbolic names.  E.g. joe@[123.124.233.4] is a legal
e-mail address. NOTE: The square brackets are required. */

	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;

/* The following string represents an atom (basically a series of non-special characters.) */

	var atom=validChars + '+';

/* The following string represents one word in the typical username.
For example, in john.doe@somewhere.com, john and doe are words.
Basically, a word is either an atom or quoted string. */

	var word="(" + atom + "|" + quotedUser + ")";

// The following pattern describes the structure of the user

	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");

/* The following pattern describes the structure of a normal symbolic
domain, as opposed to ipDomainPat, shown above. */

	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");

/* Finally, let's start trying to figure out if the supplied address is valid. */

/* Begin with the coarse pattern to simply break up user@domain into
different pieces that are easy to analyze. */

	var matchArray=emailStr.match(emailPat);

	if (matchArray==null) 
		{

/* Too many/few @'s or something; basically, this address doesn't
even fit the general mould of a valid e-mail address. */

		return false;
		}

	var user=matchArray[1];
	var domain=matchArray[2];

// Start by checking that only basic ASCII characters are in the strings (0-127).

	for (i=0; i<user.length; i++) 
		{
		if (user.charCodeAt(i)>127) 
			{
			return false;
   			}
		}

	for (i=0; i<domain.length; i++) 
		{
		if (domain.charCodeAt(i)>127) 
			{
			return false;
   			}
		}

// See if "user" is valid 

	if (user.match(userPat)==null) 
		{

// user is not valid

		return false;
		}

/* if the e-mail address is at an IP address (as opposed to a symbolic
host name) make sure the IP address is valid. */

	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null) 
		{

// this is an IP address

		for (var i=1;i<=4;i++) 
			{
			if (IPArray[i]>255) 
				{
				return false;
   				}
			}

		return true;
		}

// Domain is symbolic name.  Check if it's valid.
 
	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;

	for (i=0;i<len;i++)
		{
		if (domArr[i].search(atomPat)==-1) 
			{
			return false;
	   		}
		}

/* domain name seems valid, but now make sure that it ends in a
known top-level domain (like com, edu, gov) or a two-letter word,
representing country (uk, nl), and that there's a hostname preceding 
the domain or country. */

	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1)
		{
		return false;
		}

// Make sure there's a host name preceding the domain.

	if (len<2) 
		{
		return false;
		}

// If we've gotten this far, everything's valid!

	return true;
	}

//*******************************************************
//DROP A COOKIE
//
//Enter:
//PARAM 1: Cookie Name
//PARAM 2: Cookie Value
//PARAM 3: Cookie Expiry (in days)
//*******************************************************

function setCookie(c_name,value,exdays)
	{
	var exdate=new Date();		
	exdate.setDate(exdate.getDate() + exdays);

	var c_value=escape(value) + ((exdays==null) ? "" : "; expires="+exdate.toUTCString()+"; path=/");
	document.cookie=c_name + "=" + c_value;
	}

//*******************************************************
//RETRIEVE A COOKIE
//
//Enter:
//PARAM 1: Cookie Name
//*******************************************************

function getCookie(c_name)
{
var i,x,y,ARRcookies=document.cookie.split(";");
for (i=0;i<ARRcookies.length;i++)
	{
  	x=ARRcookies[i].substr(0,ARRcookies[i].indexOf("="));
  	y=ARRcookies[i].substr(ARRcookies[i].indexOf("=")+1);
  	x=x.replace(/^\s+|\s+$/g,"");
  	if (x==c_name)
    	{
    	return unescape(y);
    	}
  	}
return('');
}	
	
//*******************************************************
//GENERIC AJAX INVOKING ROUTINE
//
//Enter:
//PARAM 1: Routine to Run
//PARAM 2: String to Pass in
//PARAM 3: Routine to Execute on Return
//*******************************************************

function primeAjax(PARAM1,PARAM2,PARAM3)
	{
	var objname="xmlhttp"+objcount;
	objcount++;
	
	if (window.XMLHttpRequest)
		{
		// code for IE7+, Firefix, Chrome, Opera, Safari
		eval(objname+"=new XMLHttpRequest()");
		}
	else if (window.ActiveXObject)
		{
		// code for IE6, IE5
		eval(objname+"=new ActiveXObject('Microsoft.XMLHTTP')");
		}
	else
		{
		}
		
	eval(objname).onreadystatechange=function()
		{
		if (eval(objname).readyState==4)
			{
			eval("PARAM3("+objname+".responseText)");
			}
		}	
		
//Start AJAX transaction
	
	eval(objname+".open('post',PARAM1,true)");
	eval(objname+".send(PARAM2)");				
	}

//#######################################################
//#######################################################
//####
//#### Individual Page Routines
//####
//#######################################################
//#######################################################

function buyIt(str)
	{
	if (sending==0)
		{
		scrollTo(0,0);
		document.getElementById('hereiis').style.visibility='visible';
		at=setTimeout("killArrow()",2000);
		sending=1
		var tmp=getCookie('BASKET')+"^"+str+"^ADD";
		primeAjax("http://www.theseafarer.co.uk/cgi-bin/tobasket.cgi",tmp,gotBasket);
		}
	}
	
function gotBasket(str)
	{
	sending=0;
	Temp=str.split("^");
	setCookie('BASKET',Temp[0],30)
	setCookie('ITEMTOT',Temp[1],30)
	document.getElementById('carttot').innerHTML=Temp[1];

	if (Temp[2] != "")
		{
		str=Temp[2];
		Temp2=str.split("~");
		document.getElementById(Temp2[0]).innerHTML=Temp2[1];
		}
	}
	
function setDisplay()
	{
	document.getElementById('carttot').innerHTML=getCookie('ITEMTOT');

	if (getCookie('SEARCH')=="") {document.CFORM.SEARCH.value="Search Store";}
	else {document.CFORM.SEARCH.value=getCookie('SEARCH');}
	}
	
function setDisplayStock()
	{
	if (document.CFORM.NOENTRIES.value!="") {document.getElementById('emptymess').style.visibility='visible';}
	setDisplay();
	}
	
function getInv(str)
	{
	setDisplay();
	var tmp=getCookie('BASKET')+"^"+str+"^SHOW";
	primeAjax("http://www.theseafarer.co.uk/cgi-bin/tobasket.cgi",tmp,gotBasket);
	}
	
function drop(str)
	{
	var tmp=getCookie('BASKET')+"^"+str+"^DEL";
	primeAjax("http://www.theseafarer.co.uk/cgi-bin/tobasket.cgi",tmp,gotBasket);
	}
	
function updateCart(rout)
	{
	var build="";
	
	for (lp=0;lp<document.CFORM.LINENUM.value;lp++)
		{
		var tmp="ID"+lp;var tmp2="QTY"+lp;
		build+="<"+document.CFORM[tmp].value+">"+document.CFORM[tmp2].value;
		}
	
	build=escape(build);

	var tmp=getCookie('BASKET')+"^"+build+"^UPDATE";
	primeAjax("http://www.theseafarer.co.uk/cgi-bin/tobasket.cgi",tmp,rout);
	}

function checkOut()
	{		
	updateCart(checkOutGo);
	}
	
function checkOutGo(str)
	{
	gotBasket(str);
	
	if (document.CFORM.LINENUM.value>0)
		{
		if (confirm("To complete your payment you will now be re-directed to PayPal to enter your Debit/Credit card details - You DO NOT require a PayPal account to use this service - do you wish to continue?"))
			{
			document.CFORM.action ="https://www.paypal.com/cgi-bin/webscr";
			document.CFORM.submit();
			}
		}
	}
	
function clearBasket()
	{
	setCookie('BASKET','',0);
	setCookie('ITEMTOT','',30);	
	setDisplay();
	}
	
function searchbar()
	{
	setCookie('SEARCH',document.CFORM.SEARCH.value,30);	
	
	if (document.CFORM.SEARCH.value.length>=3) {var vl=escape(document.CFORM.SEARCH.value);window.location="http://www.theseafarer.co.uk/cgi-bin/items.cgi?PARAM=SE_"+vl;}
	else {alert("ERROR: SEARCHES MUST CONTAIN AT LEAST 3 CHARACTERS");}
	}
	
function killArrow()
	{
	document.getElementById('hereiis').style.visibility='hidden';
	}