crd = 1;
crm = 1;
cry = 2000;

function sync () {
	var tmpdate = new Date();
	crd = tmpdate.getDate();
	crm = tmpdate.getMonth()+1;
	cry = tmpdate.getYear();
	cry = (cry<200)?1900+cry:cry;
	}

function nextmonth () {
	crm = (crm+1>12)?1:crm+1;
	cry = (crm == 1)?cry+1:cry;
	gethistory();
	return(0);
	}
	
function prevmonth () {
	crm = (crm-1<1)?12:crm-1;
	cry = (crm == 12)?cry-1:cry;
	gethistory();
	return(0);
	}

function monthname (mm) {
	var months = new Array ("January","February","March","April","May","June","July","August","September","October","November","December");
	return(months[mm-1]);
	}
	
function monthday (mm,yy) {
	var days = new Array (31,28+!(yy%4),31,30,31,30,31,31,30,31,30,31);
	return(days[mm-1]);
	}
	
function weekday (dd,mm,yy) {
	var tmpm = 1;
	var tmpy = 2000;
	var ret = 5;
	ret += dd-1;
	while (tmpm<mm)
	ret += monthday(tmpm++,yy);
	while (tmpy<yy)
	ret += (tmpy++%4)?365:366;
	return((ret%7)+1);
	}
	
function gethistory () {
	xmlhttp = myxmlobj();
	if (!xmlhttp) {
			document.getElementById("comments"+articleid).innerHTML = "Warning! AJAX compatible browser needed!";
		}
	var url = "history.php?crm="+crm+"&cry="+cry;
	xmlhttp.onreadystatechange = drawhistory;
	xmlhttp.open("GET",url,true);
	xmlhttp.send(null);
	}

function drawhistory () {
	if (xmlhttp.readyState == 4 || xmlhttp.readyState == "complete")
		calendar('cal',crd,crm,cry,xmlhttp.responseText);
	}

function calendar (contID,cd,cm,cy,str) {
	var i;
	var obj = document.getElementById(contID);
	var tmpt = document.createElement('table');
	var tmpp = document.createElement('input');
	var tmpn = document.createElement('input');
	var tmpd = str.split(',');
	var tmpc = 0;

	if (obj.childNodes)
		for (i = 0; i<obj.childNodes.length; i++)
			obj.removeChild(obj.childNodes[i]);
	if (obj.children)
		for (i = 0; i<obj.children.length; i++)
			obj.removeChild(obj.children[i]);

	var tobj = obj.appendChild(tmpt);
	tmpn.type='button';
	tmpn.value = '>';	
	tmpn.onclick=nextmonth;
	tmpp.type='button';
	tmpp.onclick=prevmonth;
	tmpp.value = '<';

	var robj = tobj.insertRow(-1);
	var cobj = robj.insertCell(-1);
	cobj.appendChild(tmpp);
	cobj = robj.insertCell(-1);
	cobj.innerHTML = "<a href=\"?month="+cm+"&year="+cy+"\" style=\"white-space: nowrap; display: block; width: 132px; text-align: center;\">"+monthname(cm)+" "+cy+"</a>";
	cobj.colSpan = 5;
	cobj.style.fontWeight = 700;
	cobj = robj.insertCell(-1);
	cobj.appendChild(tmpn);
	var wday = weekday(1,cm,cy);
	var mday = monthday(cm,cy);
	var cday = 1;
	var crow = 1;
	while (cday<mday) {
		robj = tobj.insertRow(-1);
		for (j = 1; j<8; j++) {
			cobj = robj.insertCell(-1);
			if ((j<wday && crow==1) || cday>mday)
				cobj.innerHTML = "&nbsp;";
			else {
				while (tmpd[tmpc]<cday) { tmpc++ };
				if (tmpd[tmpc] == cday) {
					cobj.className = "haspost";
					cobj.innerHTML = "<a href=\"?day="+cday+"&month="+cm+"&year="+cy+"\">"+cday+"</a>";
					}
				else {
					if (j == 7)
						cobj.className = "sunday";
					cobj.innerHTML = cday;
					}
				if (cday == cd)
					cobj.className = "today";
				cday++;
				}
			}
		crow++;
		}
	}