// rozebere název souboru
function dejTyp(xid) {
	//var vybEl = event.srcElement
	ln = document.getElementById(xid).value
	lng = ln.length
	post = ln.lastIndexOf(".")
	posl = ln.lastIndexOf("\\")
	posl++
	fn = ln.substring(posl,post)
	post++
	td = ln.substring(post,lng)
	document.frm.wdoctyp.value = td
	document.frm.wfname.value = fn
}

// rozebere název souboru
function dejTypHT() {
	var vybEl = event.srcElement
	ln = vybEl.value
	lng = ln.length
	post = ln.lastIndexOf(".")
	posl = ln.lastIndexOf("\\")
	posl++
	fn = ln.substring(posl,post)
	post++
	td = ln.substring(post,lng)
	document.frm.wdoctypht.value = td
	document.frm.wfnameht.value = fn
}

// stažení teploty z webu luv-i.net
function dejATemp() {
  fh = fopen("http://luv-i.net/current_temp.txt", 0);
  alert("1");
  if (fh != -1) {
    length = flength(fh);
    str = fread(fh, length);
    fclose(fh);
    alert(str);
    document.getElementById("atemp").innerHTML = str + " °C";
  }
}