
var dbug=0; 
function d_a(ary) {var beg=next_entry(ary) - 1; for (var i=beg ; i > -1; i--) {ary[i]=null;}} 

function init_array() {if (dbug) alert('init_cookie');  var ary=new Array(null); return ary;} 

function CereziKaydet(name,value,expires,path, domain, isSecure) {
	if (dbug) alert('CereziKaydet');
	if (!expires) expires=new Date();
	//document.cookie=name + '=' + escape(value) + '; expires=' + expires.toGMTString() + '; path=/'
	document.cookie=escape( name ) + "=" + escape( value ) +
		( expires ? ";expires=" + ( new Date( ( new Date() ).getTime() + ( 1000 * expires ) ) ).toGMTString() : "" ) +
		( path ? ";path=" + path : "") + ( domain ? ";domain=" + domain : "") + 
		( isSecure ? ";secure" : "");
} 

function CereziOku(name) {if (dbug) alert('CereziOku'); var dcookie=document.cookie; var cname=name + "="; var clen=dcookie.length; var cbegin=0; while (cbegin < clen) {var vbegin=cbegin + cname.length;
if (dcookie.substring(cbegin, vbegin) == cname) {var vend=dcookie.indexOf (";", vbegin); if (vend == -1) vend=clen; return unescape(dcookie.substring(vbegin, vend));} cbegin=dcookie.indexOf(" ", cbegin) + 1; if (cbegin == 0) break;} return null;} 

	function CereziKaldir(name){
		if (dbug) alert('del_cookie');
		CereziKaydet(name,'',1)
	//	document.cookie=name + '=' + '; expires=Thu, 01-Jan-70 00:00:01 GMT; path=/';
	}

function CerezDizisiAl(name, ary) {if (dbug) alert('CerezDizisiAl'); d_a(ary); var ent=CereziOku(name); if (ent) {i=1; while (ent.indexOf('^') != '-1') {ary[i]=ent.substring(0,ent.indexOf('^')); i++;
ent=ent.substring(ent.indexOf('^')+1, ent.length);}}}

function CerezDizisiKaydet(name, ary, expires) {if (dbug) alert('CerezDizisiKaydet'); var value=''; for (var i=1; ary[i]; i++) {value += ary[i] + '^';
CereziKaydet(name, value, expires);}}

function del_entry(name, ary, pos, expires) {if (dbug) alert('del_entry');
var value=''; CerezDizisiAl(name, ary); for (var i=1; i < pos; i++) {value += ary[i] + '^';} for (var j=pos + 1; ary[j]; j++) {value += ary[j] + '^';} CereziKaydet(name, value, expires);}

	function next_entry(ary) {if (dbug) alert('next_entry'); var j=0; for (var i=1; ary[i]; i++) {j=i} return j + 1;}

	function debug_on() {dbug=1;} 
	function debug_off() {dbug=0;} 
	function dump_cookies() {
		if (document.cookie == '') {
			document.write('No Cookies Found');
		}else{
			thisCookie=document.cookie.split('; '); 
			for (i=0; i<thisCookie.length; i++) {
				document.write(thisCookie[i] + '<br \/>');
			}
		}
	}
