var url='http://www.netsoc.tcd.ie/who/who.cgi?';
var divtarget='whotarget';
function query(type, arg, cb){
  var req = false;
  // For Safari, Firefox, and other non-MS browsers
  if (window.XMLHttpRequest) {
    try {
      req = new XMLHttpRequest();
    } catch (e) {
      req = false;
    }
  } else if (window.ActiveXObject) {
    // For Internet Explorer on Windows
    try {
      req = new ActiveXObject("Msxml2.XMLHTTP");
    } catch (e) {
      try {
        req = new ActiveXObject("Microsoft.XMLHTTP");
      } catch (e) {
        req = false;
      }
    }
  }
  req.open("GET", url + type +"=" + arg, true);
  req.onreadystatechange = function(){
    if (req.readyState != 4){return;}
    if (req.status == 200){
      cb(req.responseText);
    }else{
      cb("");
    }
  } 
  req.send("");
}

var qtype = "userlist";

function keep_updating(){
    function update(s){
        var target = document.getElementById(divtarget);
	if (target){
            if (s == "")target.innerHTML="<b>Error: couldn't contact server</b>";
            else target.innerHTML = s;
	}
        qtype = "userwait";
	setTimeout(keep_updating, 200);
    }
    query(qtype, "y", update);
}
keep_updating();