var flg=0;
var url_prog_cal = './prog_cal/';
var yms= new Array();
var d = new Date();
var date = new Date();
var timestamp = date.getTime();
var nym = '' + d.getFullYear() + ((d.getMonth() + 1 < 10) ? '0' : '') + (d.getMonth() + 1) ;
dispCalendar(nym);

new Ajax.Request(
    url_prog_cal + 'data/calendarList.txt?' + timestamp,
    {
        method: 'get',
        asynchronous: false,
        onComplete: function(res) {
            var r = res.responseText.replace(/\n/g,'');
            if(!r.match(/ /)) {
                yms[0] = r;
            }
            else {
                yms = r.split(' ');
            }
            yms.sort();
        }
    });

$('nym').innerHTML = dispYM(nym);

function dispYM(ym) {
    ym.match(/(\d{2})$/);
    var m = RegExp.$1;
    var ptn =  new RegExp(m + '$') ;
    return ym.replace(ptn, '') + '年' + m.replace(/^0/,'') + '月';
}

setA();
flg++;

function setA () {
    $('nym').innerHTML = dispYM(nym);
    if(yms.indexOf(nym) != 0)  {
        $('c_prev').innerHTML = '';
        var ap = document.createElement('a');
        ap.innerHTML = '&lt;';
        ap.href='javascript:c_prev();'
        $('c_prev').appendChild(ap);
    }
    else {
        $('c_prev').innerHTML = '';
    }

    if(yms.indexOf(nym) != yms.length - 1) {
        $('c_next').innerHTML = '';
        var an = document.createElement('a');
        an.innerHTML = '&gt;';
        an.href='javascript:c_next();';
        $('c_next').appendChild(an);
    }
    else {
        $('c_next').innerHTML = '';
    }
}

function c_prev () {
    nym = yms[yms.indexOf(nym) - 1];
    dispCalendar(nym);
    setA();
}

function c_next () {
    nym = yms[yms.indexOf(nym) + 1];;
    dispCalendar(nym);
    setA();
}

function dispCalendar(ym) {
    new Ajax.Request(
        url_prog_cal + 'data/table' + ym + '.txt?' + timestamp,
        {
           method: 'get',
            asynchronous : false,
            onComplete: function (res) {
                var r = res.responseText;
                r = r.replace(/ *<tr id="year_month"><th colspan="7">.*<\/tr>\n/, '');
                $('w_cal').innerHTML = r;
            }
        });
}