function showQRWindow (qrcgi, mfile) {
  var i;
  var url = location.href;;
  var url_short = '';
  var url_enced = '';
  var url_dest = '';

  // cut (do s|[^/]+||)
  url_short = url
  while (url_short.charAt(url_short.length -1) != '/') {
      url_short = url_short.substr(0, url_short.length -1);
  }

  // encode
  for (i=0; i<url_short.length; i++) {
    var c = url_short.charAt(i);
    if (c == '/') {
      url_enced += '%2F';
    } else if (c == ':') {
      url_enced += '%3A';
    } else {
      url_enced += url.charAt(i);
    }
  }

  // add m-***.html
  url_dest = url_enced + mfile;

  // -> DEBUG
  // alert(url);
  // alert(url_short);
  // alert(url_enced);
  // alert(url_dest);

  window.open(qrcgi + "?d=" + url_dest, "", "width=220,height=220");
  return false;
}

function addRelatedTh (thno, thtitle) {
  document.cookie = "bbscook_addth_thno="    + escape(thno)    + ";path=/;";
  document.cookie = "bbscook_addth_thtitle=" + escape(thtitle) + ";path=/;";
  location.href = '../../addth.html';
}

function addRelatedThFromTop (thno, thtitle) {
  document.cookie = "bbscook_addth_thno="    + escape(thno)    + ";path=/;";
  document.cookie = "bbscook_addth_thtitle=" + escape(thtitle) + ";path=/;";
  location.href = './addth.html';
}

function printAddRelatedThMsg () {
  var thno    = getCookieBBS('bbscook_addth_thno');
  var thtitle = getCookieBBS('bbscook_addth_thtitle');

  if (thno != '' && thtitle != '') {
    document.f1.related_thno.value = thno;

    document.write('このスレッドは<b><font color="blue">' + thtitle + '(</font><font color="red">No.' + thno + '</font><font color="blue">)に関連付けされます。</font>');
  }
}

function setFormFromCook (f) {

  var bbscook_name = getCookieBBS('bbscook_name');
  var bbscook_email = getCookieBBS('bbscook_email');
  var bbscook_color = getCookieBBS('bbscook_color');
  var bbscook_color2 = getCookieBBS('bbscook_color2');
  var cookie_is_on = 0;

  if (bbscook_name != '') {
    if (f.name) {
      f.name.value = bbscook_name;
    }
    cookie_is_on = 1;
  }
  if (bbscook_email != '') {
    if (f.email) {
      f.email.value = bbscook_email;
    }
    cookie_is_on = 1;
  }
  if (bbscook_color != '') {
    if (f.color) {
      for (i=0; i < f.color.length; i++) {
        if (f.color[i].value == bbscook_color) {
            f.color[i].checked = true;
        }
      }
    }
    cookie_is_on = 1;
  }
  if (bbscook_color2 != '') {
    if (f.color2) {
      f.color2.value = bbscook_color2;
    }
    cookie_is_on = 1;
  }

  if (cookie_is_on == 1) {
    if (f.savecookie) {
      f.savecookie.checked = true;
    }
  }
}

function getCookieBBS(key) {
  var tmp1 = " " + document.cookie + ";";
  var xx1 = 0;
  var xx2 = 0;
  while (xx1 < tmp1.length) {
    xx2 = tmp1.indexOf(";", xx1);
    tmp2 = tmp1.substring(xx1 + 1, xx2);
    var xx3 = tmp2.indexOf("=");
    if (tmp2.substring(0, xx3) == key) {
      return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
    }
    xx1 = xx2 + 1;
  }
  return('');
}