/* Constructor for Subsitution Array */
function substspec(urltype,oldstem,newstem)	{

	this.urltype = urltype;
	this.oldstem = oldstem;
	this.oldstemlen = oldstem.length;
	this.newstem = newstem;
	this.numtesturl =0;
	this.testurl = new Array(10);
	this.testurllen = new Array(10);

}	// End Constructor for substspec

/*	Substitute URL from Tables	*/
function substurl(oldurl)	{

	var cururl = oldurl;
	var inputlen = cururl.length;
	for(var m=0; m< numurllist; m++)	{
		var pointer = substurllist[m];
		var curtype = pointer.urltype;
		var num = pointer.numtesturl;
		for(var n=0; n < num; n++)	{
			var testsize = pointer.testurllen[n];
			if( testsize > inputlen )
				continue;
			var grabbit = cururl.substring(0,testsize);
			if( grabbit != pointer.testurl[n] )
				continue;
			if( pointer.urltype == 'not' )
				break;
			cururl = dosubsturl(cururl,pointer.oldstem,pointer.newstem);
			inputlen = cururl.length;
		}
		if( pointer.urltype == 'not' )	{
			cururl = dosubsturl(cururl,pointer.oldstem,pointer.newstem);
			inputlen = cururl.length;
		}
	}
	return cururl;

}	// End  substurl(oldurl)

function dosubsturl(cururl,oldstem,newstem)	{

	var extractlen = oldstem.length;
	var junk = cururl.substring(0,oldstem.length);
	if( junk != oldstem )
		return(cururl);
	return(newstem + cururl.substring(oldstem.length) );

}	// End dosubsturl(cururl,oldstem,newstem)

function addonurlsubst(callingframe,opt)	{

	if(opt==1)
		numurllist=0;
	var numforms = callingframe.document.forms.length;
	for( var m=0; m<numforms; m++ )	{
		formobject = callingframe.document.forms[m];
		var numelements = formobject.length;
		if( numelements <= 0 )
			continue;
		var oldstem ='';
		var newstem ='';
		var urltype ='';
		for( var n=0; n < numelements; n++)	{
			var elemobject = formobject.elements[n];
			if( elemobject.type == "radio")	{
				if( elemobject.name != "notmatch" )
					confirm("Illegal Radio Name " + elemobject.name);
				if( elemobject.checked )
					urltype = elemobject.value;
				continue;
			}
			if( elemobject.type == "button" )
				continue;
			if( elemobject.name == "oldstem" )	{
				oldstem = elemobject.value;
				continue;
			}
			if( elemobject.name == "newstem" )       {
				newstem = elemobject.value;
				continue;
			}
		}
		if( oldstem == '' )	{
			alert('Missing Oldstem');
			return;
		}
		if( newstem == '' )     {
			alert('Missing Newstem');
			return;
		}
		if( urltype == '' )	{
			alert('Missing urltype');
			return;
		}
		substurllist[numurllist] = new substspec(urltype,oldstem,newstem);
		pointer = substurllist[numurllist];
		++numurllist;
		var numurls=0;
		for( var n=0; n < numelements; n++)     {
			var elemobject = formobject.elements[n];
			if( elemobject.type != "text" )
				continue;
			if( elemobject.name == "oldstem" )
				continue;
			if( elemobject.name == "newstem" )
				continue;
			var tempstring = elemobject.value;
			if( tempstring.length <= 0 )
				continue;
			pointer.testurl[numurls] = tempstring;
			pointer.testurllen[numurls] = tempstring.length;
			++numurls;
		}
		pointer.numtesturl = numurls;
	}
	return;

}	// End addonurlsubst(opt)