/**
* One can call only one function in a single web page.
* After a function is called, a lock prevents other functions to be executed
*/	
	var bi_lock 	= false
	var bi_conf;
	var bi_id		= 276;
	var bi_serveur	= "track.trafiz.net";
	var bi_roi		= 1;

//------------------------------------------+
function add_tag_trafic() {
	
	
	
	if(!bi_lock) {
		/*if(bi_refer.length) {*/
			_url_reg = '('+bi_url+'|'+bi_url1+'|'+bi_url2+'|'+bi_url3+')';
			_randInt = Math.round(Math.random()*10000);
			_link0	 = '<LINK id="bi_link" rel="stylesheet" type="text/css" href="';
			_link0 	+= 'https://'+bi_serveur+'/css.php';
			_link0  += '?id='+bi_id;
			_link0	+= '&thereferer='+escape(bi_refer);
			_link0	+= '&page='+escape(bi_loct);
			_link0  += '&random='+_randInt;
			_link0  += '&roi='+bi_roi;
			_link0	+= '">';
			
			
			
			reg_exp  = /bi_tracked/;
			ok2      = reg_exp.exec(bi_loct);
			reg_exp  = new RegExp(_url_reg,'i');
			ok	 = reg_exp.exec(bi_refer);
			
			if ((!ok)&&(!ok2)) { document.write(_link0); }
		/*}*/
		bi_conf = "trafic";
		bi_lock = true;
	}
}

//--------------------------------------+
function add_tag_roi(bi_demande) {
	if(!bi_lock) {
		if(bi_loct.toString().substring(0,5) == "https") _lkh = "https";
		else _lkh = "http";
		_tag = '<LINK id="bi_link" REL=STYLESHEET TYPE="text/css" HREF="'+_lkh+'://roi.trafiz.net/roi.php';
		_tag+= '?id='+bi_id;
		_tag+= '&reference='+escape(bi_ref);
		_tag+= '&comment='+escape(bi_comment);
		_tag+= '&price='+escape(bi_price);
		_tag+= '&page='+escape(bi_loct);
		if(bi_demande != null){
			_tag+= '&iddemande='+escape(bi_demande);
		}
		_tag+= '">';
		document.write(_tag);
		bi_conf = "roi";
		bi_lock = true;
	}
}



function add_tag_roiSQLI(bi_demande) {
	if(!bi_lock) {
		if(bi_loct.toString().substring(0,5) == "https") _lkh = "https";
		else _lkh = "http";
		_tag = '<LINK id="bi_link" REL=STYLESHEET TYPE="text/css" HREF="'+_lkh+'://roi.trafiz.net/roi.php';
		_tag+= '?id='+bi_id;
		_tag+= '&reference='+escape(bi_ref);
		_tag+= '&comment='+escape(bi_comment);
		_tag+= '&price='+escape(bi_price);
		_tag+= '&page='+escape(bi_loct);
		if(bi_demande != null){
			_tag+= '&iddemande='+escape(bi_demande);
		}
		_tag+= '">';
		
		if(document.all){
			if(bi_loct.toString().substring(0,5) == "https") _lkh = "https";
			else _lkh = "http";
	
			var l = document.createElement("link");
			l.id = "bi_link";
			l.rel = "stylesheet";
			l.type = "text/css"	;
			l.href = _lkh+'://roi.trafiz.net/roi.php';
			l.href+= '?id='+bi_id;
			l.href+= '&reference='+escape(bi_ref);
			l.href+= '&comment='+escape(bi_comment);
			l.href+= '&price='+escape(bi_price);
			l.href+= '&page='+escape(bi_loct);
			if(bi_demande != null)
				l.href+= '&iddemande='+escape(bi_demande);
		
			document.getElementById("forTrafiz").appendChild(l);
		}
		else
			document.getElementById("forTrafiz").innerHTML = _tag;
		bi_conf = "roi";
		bi_lock = true;
	}
	
}

//--------------------------------------+
// Test tags installation               |
//--------------------------------------+
function bi_test_conf() {
	_er  = "";
	//----------------------------------+
	// Test bi_id                       |
	//----------------------------------+
	if(bi_id)  {
		_isEntier = bi_test_int(bi_id);
		if(_isEntier) _er = 'bi_id : '+_isEntier;
	}
	//----------------------------------+
	// Test trafiz vars                 |
	//----------------------------------+
	if(bi_conf == "trafic") {
		if(bi_url) {
			_bi_urls = bi_url.split("|")
			for(i=0; i< _bi_urls.length; i++) {
				_isOueb = bi_test_web(_bi_urls[i]);
				if(_isOueb) _er = 'bi_url : '+_bi_urls[i]+"\n"+_isOueb+'\n';
			}
		}
	 }
	if (_er) alert(_er);
	//----------------------------------+
	// Test tag exists                  |
	//----------------------------------+
	a = document.getElementsByName("bi_link");
	if(a.length) {
		_str = "";
		for(i=0; i < a.length; i++) _str+=a[i].href+"\n\n";
		alert(_str)
	} else alert("Trafiz : Aucun tag inséré")
}
//--------------------------------------+
// Test if value is an integer          |
//--------------------------------------+
function bi_test_int(entier) {
	var v = parseFloat(entier);
	if (isNaN(v) || v.length!=entier.length)  {
		_er = "Trafiz : cette variable doit être un entier (2)";
		return _er;
   }
   else return false
 }
//--------------------------------------+
// Test if value is a web site          |
//--------------------------------------+
function bi_test_web(site) {
 	pattern =   "\^\(http\|https\|ftp\)\\\:\/\/\(\[a-zA-Z0-9\\\.\\-\]\+\(\\\:\[a-zA-Z0-9\\\.&%\\\$\\-\]\+\)\*@\)\?\(\(25\[0-5\]\|2\[0-4\]\[0-9\]\|\[0-1\]\{1\}\[0-9\]\{2\}\|\[1-9\]\{1\}\[0-9\]\{1\}\|\[1-9\]\)\\\.\(25\[0-5\]\|2\[0-4\]\[0-9\]\|\[0-1\]\{1\}\[0-9\]\{2\}\|\[1-9\]\{1\}\[0-9\]\{1\}\|\[1-9\]\|0\)\\\.\(25\[0-5\]\|2\[0-4\]\[0-9\]\|\[0-1\]\{1\}\[0-9\]\{2\}\|\[1-9\]\{1\}\[0-9\]\{1\}\|\[1-9\]\|0\)\\\.\(25\[0-5\]\|2\[0-4\]\[0-9\]\|\[0-1\]\{1\}\[0-9\]\{2\}\|\[1-9\]\{1\}\[0-9\]\{1\}\|\[0-9\]\)\|\(\[a-zA-Z0-9\\-\]\+\\\.\)\*\[a-zA-Z0-9\\-\]\+\\\.\[a-zA-Z\]\{2,4\}\)\(\\\:\[0-9\]\+\)\?\(\/\[\^\/\]\[a-zA-Z0-9\\\.\\,\\\?\\\\'\\\\\/\\\+&%\\\$#\\\=~_\\-\]\*\)\*\$"; //'
	re		= new RegExp(pattern, "gi");
	tranches	= re.exec(site);
	if (tranches == null) {
		_er = "Trafiz : cette variable doit être un site internet (http:\/\/www.monsite.com/) ";
		return _er;
   }
   else return false
 }