--- googlecode.com/svn/trunk/public_html/meteor.js	2007/04/30 18:38:55	14
+++ trunk/public_html/meteor.js	2009/03/28 01:42:07	67
@@ -1,295 +1,348 @@
-// Set domain at highest level
-var domainparts = document.domain.split(".");
-document.domain = domainparts[domainparts.length-2]+"."+domainparts[domainparts.length-1];
-
-Function.prototype.bind = function(obj) {
-	var method = this,
-	temp = function() {
-		return method.apply(obj, arguments);
-	};
-	return temp;
-}
-Function.prototype.andThen=function(g) {
-	var f=this;
-	var a=this.arguments
-	return function(args) {
-		f(a);g(args);
-	}
-};
-
-function Meteor(instID) {
-
-	this.lastmsgreceived = -1;
-	this.transferDoc = false;
-	this.pingtimer = false;
-	this.updatepollfreqtimer = false;
-	this.lastrequest = 0;
-	this.recvtimes = new Array();
-	this.MHostId = false;
-	this.callback_process = function() {};
-	this.callback_reset = function() {};
-	this.callback_eof = function() {};
-	this.callback_changemode = function() {};
-	this.callback_statuschanged = function() {};
-	this.persist = true;
-	this.frameloadtimer = false;
-	this.frameurl = false;
-	this.debugmode = false;
-
-	// Documented public properties
-	this.channel = false;
-	this.subdomain = "data";
-	this.dynamicpageaddress = "push";
-	this.backtrack = 0;
-	this.smartpoll = true;
-	this.pollfreq = 2000;
-	this.minpollfreq = 2000;
-	this.mode = "poll";
-	this.polltimeout=30000;
-	this.maxmessages=0;
-	this.pingtimeout = 10000;
-	this.status = 0;
-
-	/* Statuses:	0 = Uninitialised,
-					1 = Loading stream,
-					2 = Loading controller frame,
-					3 = Controller frame timeout, retrying.
-					4 = Controller frame loaded and ready
-					5 = Receiving data
-	*/
-
-	this.instID = (typeof(instID) != "undefined") ? instID : 0;
-	this.MHostId = Math.floor(Math.random()*100000000)+""+this.instID;
-}
-
-Meteor.instances = new Array();
-
-Meteor.create = function(instID) {
-	if (!instID) instID = Meteor.instances.length;
-	Meteor.instances[instID] = new Meteor(instID);
-	return Meteor.instances[instID];
-}
-
-Meteor.register = function(ifr) {
-	instid = new String(ifr.window.frameElement.id);
-	instid = instid.replace(/.*_([0-9]*)$/, "$1");
-	ifr.p = this.instances[instid].process.bind(this.instances[instid]);
-	ifr.r = this.instances[instid].reset.bind(this.instances[instid]);
-	ifr.eof = this.instances[instid].eof.bind(this.instances[instid]);
-	ifr.get = this.instances[instid].get.bind(this.instances[instid]);
-	ifr.increasepolldelay = this.instances[instid].increasepolldelay.bind(this.instances[instid]);
-	clearTimeout(this.instances[instid].frameloadtimer);
-	this.instances[instid].setstatus(4);
-	if (this.debugmode) console.log("Frame registered");
-}
-
-Meteor.prototype.start = function() {
-	this.persist = (this.maxmessages)?1:0;
-	this.smartpoll = (this.smartpoll)?1:0;
-	this.mode = (this.mode=="stream")?"stream":"poll";
-	if (!this.subdomain || !this.channel) throw "Channel or Meteor subdomain host not specified";
-	this.stop();
-	var now = new Date();
-	var t = now.getTime();
-	this.setstatus(1);
-	if (this.mode=="stream") {
-		var surl = "http://"+this.subdomain+"."+location.hostname+"/"+this.dynamicpageaddress+"?channel="+this.channel+"&id="+this.MHostId;
-		if (this.lastmsgreceived >= 0) {
-			surl += "&restartfrom="+this.lastmsgreceived;
-		} else if (this.backtrack > 0) {
-			surl += "&backtrack="+this.backtrack;
-		} else if (this.backtrack < 0 || isNaN(this.backtrack)) {
-			surl += "&restartfrom=";
-		}
-		this.createIframe(surl);
-		var f = this.pollmode.bind(this);
-		clearTimeout(this.pingtimer);
-		this.pingtimer = setTimeout(f, this.pingtimeout);
-
-	} else {
-		this.createIframe("http://"+this.subdomain+"."+location.hostname+"/poll.html");
-		this.recvtimes[0] = t;
-		if (this.updatepollfreqtimer) clearTimeout(this.updatepollfreqtimer);
-		this.updatepollfreqtimer = setInterval(this.updatepollfreq.bind(this), 2500);
-	}
-	this.lastrequest = t;
-}
-
-Meteor.prototype.createIframe = function(url) {
-	if (document.all) {
-		this.transferDoc = new ActiveXObject("htmlfile");
-		this.transferDoc.open();
-		this.transferDoc.write("<html>");
-		this.transferDoc.write("<script>document.domain=\""+(document.domain)+"\";</"+"script>");
-		this.transferDoc.write("</html>");
-		var selfref = this;
-		this.transferDoc.parentWindow.Meteor = Meteor;
-		this.transferDoc.close();
-		var ifrDiv = this.transferDoc.createElement("div");
-		this.transferDoc.appendChild(ifrDiv);
-		ifrDiv.innerHTML = "<iframe id=\"meteorframe_"+this.instID+"\" src=\""+url+"\" style=\"display: none;\"></iframe>";
-	} else {
-		var ifr = document.createElement("IFRAME");
-		ifr.style.width = "10px";
-		ifr.style.height = "10px";
-		ifr.style.border = "none";
-		ifr.style.position = "absolute";
-		ifr.style.top = "-10px";
-		ifr.style.marginTop = "-10px";
-		ifr.style.zIndex = "-20";
-		ifr.setAttribute("id", "meteorframe_"+this.instID);
-		ifr.Meteor = Meteor;
-		var innerifr = document.createElement("IFRAME");
-		innerifr.setAttribute("src", url);
-		innerifr.setAttribute("id", "meteorinnerframe_"+this.instID);
-		ifr.appendChild(innerifr);
-		document.body.appendChild(ifr);
-	}
-	if (this.debugmode) console.log("Loading URL '"+url+"' into frame...");
-	var f = this.frameloadtimeout.bind(this);
-	this.frameloadtimer = setTimeout(f, 5000);
-}
-
-Meteor.prototype.stop = function() {
-	if (typeof(this.transferDoc)=="object") {
-		this.transferDoc = false;
-	}
-	if (document.getElementById("meteorframe_"+this.instID)) {
-		document.getElementById("meteorframe_"+this.instID).src="about:blank";
-		document.body.removeChild(document.getElementById("meteorframe_"+this.instID));
-	}
-	if (!isNaN(this.pingtimer)) clearTimeout(this.pingtimer);
-	if (!isNaN(this.updatepollfreqtimer)) clearTimeout(this.updatepollfreqtimer);
-	if (!isNaN(this.frameloadtimer)) clearTimeout(this.frameloadtimer);
-	this.setstatus(0);
-}
-
-Meteor.prototype.pollmode = function() {
-	if (this.debugmode) console.log("Ping timeout");
-	this.stop();
-	this.mode="poll";
-	this.start();
-	this.callback_changemode("poll");
-	this.lastpingtime = false;
-}
-
-Meteor.prototype.process = function(id, data, timestamp) {
-	if (id > this.lastmsgreceived) {
-		this.callback_process(data, timestamp);
-		if (id != -1) this.lastmsgreceived = id;
-		if (this.mode=="poll") {
-			var now = new Date();
-			var t = now.getTime();
-			this.recvtimes[this.recvtimes.length] = t;
-			while (this.recvtimes.length > 5) this.recvtimes.shift();
-		}
-	} else if (id == -1) {
-		this.ping();
-	}
-	this.setstatus(5);
-}
-
-Meteor.prototype.ping = function() {
-	if (this.mode=="stream" && this.pingtimer) {
-		clearTimeout(this.pingtimer);
-		var f = this.pollmode.bind(this);
-		this.pingtimer = setTimeout(f, this.pingtimeout);
-		var now = new Date();
-		this.lastpingtime = now.getTime();
-	}
-	this.setstatus(5);
-}
-
-Meteor.prototype.reset = function() {
-	if (this.debugmode) console.log("Stream reset");
-	var now = new Date();
-	var t = now.getTime();
-	var x = this.pollfreq - (t-this.lastrequest);
-	if (x < 10) x = 10;
-	this.ping();
-	this.callback_reset();
-	setTimeout(this.start.bind(this), x);
-}
-
-Meteor.prototype.eof = function() {
-	this.callback_eof();
-}
-
-Meteor.prototype.get = function(varname) {
-	eval("var a = this."+varname+";");
-	if (typeof(a) == "undefined") throw "Cannot get value of "+varname;
-	return a;
-}
-
-Meteor.prototype.increasepolldelay = function() {
-	this.pollfreq *= 2;
-}
-
-Meteor.prototype.updatepollfreq = function() {
-	if (this.smartpoll) {
-		var now = new Date();
-		var t = now.getTime();
-		var avg = 0;
-		for (var i=1; i<this.recvtimes.length; i++) {
-			var x = (this.recvtimes[i]-this.recvtimes[i-1]);
-			avg += (x>60000)? 60000 : x;
-		}
-		x = (t-this.recvtimes[this.recvtimes.length-1]);
-		avg += (x>180000)? 180000 : x;
-		avg /= this.recvtimes.length;
-		if ((avg/3) < this.pollfreq && (avg/3) >= this.minpollfreq) this.pollfreq = Math.ceil(this.pollfreq*0.9);
-		if ((avg/3) > this.pollfreq) this.pollfreq = Math.floor(this.pollfreq*1.05);
-	}
-}
-
-Meteor.prototype.registerEventCallback = function(evt, funcRef) {
-	if (evt=="process") {
-		this.callback_process = (this.callback_process).andThen(funcRef);
-	} else if (evt=="reset") {
-		this.callback_reset = (this.callback_reset).andThen(funcRef);
-	} else if (evt=="eof") {
-		this.callback_eof = (this.callback_eof).andThen(funcRef);
-	} else if (evt=="changemode") {
-		this.callback_changemode = (this.callback_changemode).andThen(funcRef);
-	} else if (evt=="changestatus") {
-		this.callback_statuschanged = (this.callback_statuschanged).andThen(funcRef);
-	}
-}
-
-Meteor.prototype.frameloadtimeout = function() {
-	if (this.debugmode) console.log("Frame load timeout");
-	if (this.frameloadtimer) clearTimeout(this.frameloadtimer);
-	this.setstatus(3);
-	setTimeout(this.start.bind(this), 5000);
-}
-Meteor.prototype.setstatus = function(newstatus) {
-	if (this.status != newstatus) {
-		this.status = newstatus;
-		this.callback_statuschanged(newstatus);
-	}
-}
-
-Meteor.createCookie = function(name,value,days) {
-	if (days) {
-		var date = new Date();
-		date.setTime(date.getTime()+(days*24*60*60*1000));
-		var expires = "; expires="+date.toGMTString();
-	}
-	else var expires = "";
-	document.cookie = name+"="+value+expires+"; path=/";
-}
-
-Meteor.readCookie = function(name) {
-	var nameEQ = name + "=";
-	var ca = document.cookie.split(';');
-	for(var i=0;i < ca.length;i++) {
-		var c = ca[i];
-		while (c.charAt(0)==' ') c = c.substring(1,c.length);
-		if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
-	}
-	return null;
-}
-
-Meteor.eraseCookie = function(name) {
-	createCookie(name,"",-1);
+/*
+stream: xhrinteractive, iframe, serversent
+longpoll
+smartpoll
+simplepoll
+*/
+
+Meteor = {
+
+	callbacks: {
+		process: function() {},
+		reset: function() {},
+		eof: function() {},
+		statuschanged: function() {},
+		changemode: function() {}
+	},
+	channelcount: 0,
+	channels: {},
+	debugmode: false,
+	frameref: null,
+	host: null,
+	hostid: null,
+	maxpollfreq: 60000,
+	minpollfreq: 2000,
+	mode: "stream",
+	pingtimeout: 20000,
+	pingtimer: null,
+	pollfreq: 3000,
+	port: 80,
+	pollaborted: false,
+	pollhost: null,
+	pollnum: 0,
+	polltimeout: 30000,
+	polltimer: null,
+	recvtimes: [],
+	lastrequest: null,
+	status: 0,
+	updatepollfreqtimer: null,
+
+	isSupportedBrowser: function() {
+		var v;
+		if (v = navigator.userAgent.match(/compatible\; MSIE\ ([0-9\.]+)\;/i)) {
+			if (parseFloat(v[1]) <= 5.5) return false;
+		} else if (v = navigator.userAgent.match(/Gecko\/([0-9]+)/i)) {
+			if (parseInt(v[1]) <= 20051015) return false;
+		} else if (v = navigator.userAgent.match(/WebKit\/([0-9\.]+)/i)) {
+			if (parseFloat(v[1]) < 400) return false;
+		}
+		return true;
+	},
+
+	register: function(ifr) {
+		ifr.p = Meteor.process;
+		ifr.r = Meteor.reset;
+		ifr.eof = Meteor.eof;
+		ifr.ch = Meteor.channelInfo;
+		clearTimeout(Meteor.frameloadtimer);
+		Meteor.setstatus(4);
+		Meteor.log("Frame registered");
+	},
+
+	joinChannel: function(channelname, backtrack) {
+		if (typeof(Meteor.channels[channelname]) != "undefined") throw "Cannot join channel "+channelname+": already subscribed";
+		Meteor.channels[channelname] = {backtrack:backtrack};
+		Meteor.log("Joined channel "+channelname);
+		Meteor.channelcount++;
+		if (Meteor.status != 0 && Meteor.status != 6) Meteor.connect();
+	},
+
+	leaveChannel: function(channelname) {
+		if (typeof(Meteor.channels[channelname]) == "undefined") throw "Cannot leave channel "+channelname+": not subscribed";
+		delete Meteor.channels[channelname];
+		Meteor.log("Left channel "+channelname);
+		Meteor.channelcount--;
+		if (Meteor.channelcount && Meteor.status != 0 && Meteor.status != 6) Meteor.connect();
+		else Meteor.disconnect();
+	},
+
+	connect: function() {
+		if (!Meteor.host) throw "Meteor host not specified";
+		if (isNaN(Meteor.port)) throw "Meteor port not specified";
+		if (!Meteor.channelcount) throw "No channels specified";
+		if (Meteor.status) Meteor.disconnect();
+		Meteor.log("Connecting");
+		Meteor.setstatus(1);
+		if (!Meteor.hostid) Meteor.hostid = Meteor.time()+""+Math.floor(Math.random()*1000000)
+		document.domain = Meteor.extract_xss_domain(document.domain);
+		if (Meteor.mode=="stream") Meteor.mode = Meteor.selectStreamTransport();
+		Meteor.log("Selected "+Meteor.mode+" transport");
+		if (Meteor.mode=="xhrinteractive" || Meteor.mode=="iframe" || Meteor.mode=="serversent") {
+			if (Meteor.mode == "iframe") {
+				Meteor.loadFrame(Meteor.getSubsUrl());
+			} else {
+				Meteor.loadFrame("http://"+Meteor.host+((Meteor.port==80)?"":":"+Meteor.port)+"/stream.html");
+			}
+			clearTimeout(Meteor.pingtimer);
+			Meteor.pingtimer = setTimeout(Meteor.pollmode, Meteor.pingtimeout);
+
+		} else {
+			Meteor.recvtimes[0] = Meteor.time();
+			if (Meteor.updatepollfreqtimer) clearTimeout(Meteor.updatepollfreqtimer);
+			if (Meteor.mode=='smartpoll') Meteor.updatepollfreqtimer = setInterval(Meteor.updatepollfreq, 10000);
+			if (Meteor.mode=='longpoll') Meteor.pollfreq = Meteor.minpollfreq;
+			Meteor.poll();
+		}
+	},
+
+	disconnect: function() {
+		if (Meteor.status) {
+			if (Meteor.status != 6) Meteor.setstatus(0);
+			Meteor.clearpoll();
+			clearTimeout(Meteor.pingtimer);
+			clearTimeout(Meteor.updatepollfreqtimer);
+			clearTimeout(Meteor.frameloadtimer);
+			if (typeof CollectGarbage == 'function') CollectGarbage();
+			Meteor.log("Disconnected");
+			try { Meteor.frameref.parentNode.removeChild(Meteor.frameref); delete Meteor.frameref; return true; } catch(e) { }
+			try { Meteor.frameref.open(); Meteor.frameref.close(); return true; } catch(e) {}			
+		}
+	},
+	
+	selectStreamTransport: function() {
+		try {
+			var test = ActiveXObject;
+			return "iframe";
+		} catch (e) {}
+		if ((typeof window.addEventStream) == "function") return "iframe";
+		return "xhrinteractive";
+	},
+
+	getSubsUrl: function() {
+		var host = ((Meteor.mode=='simplepoll' || Meteor.mode=='smartpoll' || Meteor.mode=='longpoll') && Meteor.pollhost) ? Meteor.pollhost : Meteor.host;
+		var surl = "http://" + host + ((Meteor.port==80)?"":":"+Meteor.port) + "/push/" + Meteor.hostid + "/" + Meteor.mode;
+		for (var c in Meteor.channels) {
+			surl += "/"+c;
+			if (typeof Meteor.channels[c].lastmsgreceived != 'undefined') {
+				surl += ".r"+(Meteor.channels[c].lastmsgreceived+1);
+			} else if (Meteor.channels[c].backtrack > 0) {
+				surl += ".b"+Meteor.channels[c].backtrack;
+			} else if (Meteor.channels[c].backtrack != undefined) {
+				surl += ".h";
+			}
+		}
+		surl += "?nc="+Meteor.time();
+		return surl;
+	},
+
+	loadFrame: function(url) {
+		try {
+			if (!Meteor.frameref) {
+				var transferDoc = new ActiveXObject("htmlfile");
+				Meteor.frameref = transferDoc;
+			}
+			Meteor.frameref.open();
+			Meteor.frameref.write("<html><script>");
+			Meteor.frameref.write("document.domain=\""+(document.domain)+"\";");
+			Meteor.frameref.write("</"+"script></html>");
+			Meteor.frameref.parentWindow.Meteor = Meteor;
+			Meteor.frameref.close();
+			var ifrDiv = Meteor.frameref.createElement("div");
+			Meteor.frameref.appendChild(ifrDiv);
+			ifrDiv.innerHTML = "<iframe src=\""+url+"\"></iframe>";
+		} catch (e) {
+			if (!Meteor.frameref) {
+				var ifr = document.createElement("IFRAME");
+				ifr.style.width = "10px";
+				ifr.style.height = "10px";
+				ifr.style.border = "none";
+				ifr.style.position = "absolute";
+				ifr.style.top = "-10px";
+				ifr.style.marginTop = "-10px";
+				ifr.style.zIndex = "-20";
+				ifr.Meteor = Meteor;
+				document.body.appendChild(ifr);
+				Meteor.frameref = ifr;
+			}
+			Meteor.frameref.setAttribute("src", url);
+		}
+		Meteor.log("Loading URL '"+url+"' into frame...");
+		Meteor.frameloadtimer = setTimeout(Meteor.frameloadtimeout, 5000);
+	},
+
+	pollmode: function() {
+		Meteor.log("Ping timeout");
+		if (Meteor.mode != "smartpoll") {
+			Meteor.mode="smartpoll";
+			Meteor.callbacks["changemode"]("poll");
+			clearTimeout(Meteor.pingtimer);
+			Meteor.lastpingtime = false;
+		}
+		Meteor.connect();
+	},
+
+	process: function(id, channel, data) {
+		if (id == -1) {
+			Meteor.log("Ping");
+			Meteor.ping();
+		} else if (typeof(Meteor.channels[channel]) != "undefined") {
+			Meteor.log("Message "+id+" received on channel "+channel+" (last id on channel: "+Meteor.channels[channel].lastmsgreceived+")\n"+data);
+			Meteor.callbacks["process"](data);
+			Meteor.channels[channel].lastmsgreceived = id;
+			if (Meteor.mode=="smartpoll") {
+				Meteor.recvtimes[Meteor.recvtimes.length] = Meteor.time();
+				while (Meteor.recvtimes.length > 5) Meteor.recvtimes.shift();
+			}
+		}
+		Meteor.setstatus(5);
+	},
+
+	ping: function() {
+		if (Meteor.pingtimer) {
+			clearTimeout(Meteor.pingtimer);
+			Meteor.pingtimer = setTimeout(Meteor.pollmode, Meteor.pingtimeout);
+			Meteor.lastpingtime = Meteor.time();
+		}
+		Meteor.setstatus(5);
+	},
+
+	reset: function() {
+		if (Meteor.status != 6 && Meteor.status != 0) {
+			Meteor.log("Stream reset");
+			Meteor.ping();
+			Meteor.callbacks["reset"]();
+			var x = Meteor.pollfreq - (Meteor.time()-Meteor.lastrequest);
+			if (x < 10) x = 10;
+			setTimeout(Meteor.connect, x);
+		}
+	},
+
+	eof: function() {
+		Meteor.log("Received end of stream, will not reconnect");
+		Meteor.callbacks["eof"]();
+		Meteor.setstatus(6);
+		Meteor.disconnect();
+	},
+
+	channelInfo: function(channel, id) {
+		Meteor.channels[channel].lastmsgreceived = id;
+		Meteor.log("Received channel info for channel "+channel+": resume from "+id);
+	},
+
+	updatepollfreq: function() {
+		var avg = 0;
+		for (var i=1; i<Meteor.recvtimes.length; i++) {
+			avg += (Meteor.recvtimes[i]-Meteor.recvtimes[i-1]);
+		}
+		avg += (Meteor.time()-Meteor.recvtimes[Meteor.recvtimes.length-1]);
+		avg /= Meteor.recvtimes.length;
+		var target = avg/2;
+		if (target < Meteor.pollfreq && Meteor.pollfreq > Meteor.minpollfreq) Meteor.pollfreq = Math.ceil(Meteor.pollfreq*0.9);
+		if (target > Meteor.pollfreq && Meteor.pollfreq < Meteor.maxpollfreq) Meteor.pollfreq = Math.floor(Meteor.pollfreq*1.05);
+	},
+
+	registerEventCallback: function(evt, funcRef) {
+		Function.prototype.andThen=function(g) {
+			var f=this;
+			var a=Meteor.arguments
+			return function(args) {
+				f(a);g(args);
+			}
+		};
+		if (typeof Meteor.callbacks[evt] == "function") {
+			Meteor.callbacks[evt] = (Meteor.callbacks[evt]).andThen(funcRef);
+		} else {
+			Meteor.callbacks[evt] = funcRef;
+		}
+	},
+
+	frameloadtimeout: function() {
+		Meteor.log("Frame load timeout");
+		if (Meteor.frameloadtimer) clearTimeout(Meteor.frameloadtimer);
+		Meteor.setstatus(3);
+		Meteor.pollmode();
+	},
+
+	extract_xss_domain: function(old_domain) {
+		if (old_domain.match(/^(\d{1,3}\.){3}\d{1,3}$/)) return old_domain;
+		domain_pieces = old_domain.split('.');
+		return domain_pieces.slice(-2, domain_pieces.length).join(".");
+	},
+
+	setstatus: function(newstatus) {
+		// Statuses:	0 = Uninitialised,
+		//				1 = Loading stream,
+		//				2 = Loading controller frame,
+		//				3 = Controller frame timeout, retrying.
+		//				4 = Controller frame loaded and ready
+		//				5 = Receiving data
+		//				6 = End of stream, will not reconnect
+
+		if (Meteor.status != newstatus) {
+			Meteor.status = newstatus;
+			Meteor.callbacks["statuschanged"](newstatus);
+		}
+	},
+
+	log: function(logstr) {
+		if (Meteor.debugmode) {
+			if (window.console) {
+				window.console.log(logstr);
+			} else if (document.getElementById("meteorlogoutput")) {
+				document.getElementById("meteorlogoutput").innerHTML += logstr+"<br/>";
+			}
+		}
+	},
+
+	poll: function() {
+		Meteor.pollaborted = 0;
+		try {
+			clearTimeout(Meteor.polltimer);
+		} catch (e) {};
+		Meteor.lastrequest = Meteor.time();
+		if (Meteor.polltimeout) Meteor.polltimer = setTimeout(Meteor.clearpoll, Meteor.polltimeout);
+		var scripttag = document.createElement("SCRIPT");
+		scripttag.type = "text/javascript";
+		scripttag.src = Meteor.getSubsUrl();
+		scripttag.id = "meteorpoll"+(++Meteor.pollnum);
+		scripttag.className = "meteorpoll";
+		document.getElementsByTagName("HEAD")[0].appendChild(scripttag);
+	},
+
+	clearpoll: function() {
+		if (document.getElementById('meteorpoll'+Meteor.pollnum)) {
+			var s = document.getElementById('meteorpoll'+Meteor.pollnum);
+			s.parentNode.removeChild(s);
+		}
+		if (Meteor.status == 5) {
+			var x = parent.Meteor.pollfreq - (Meteor.time()-Meteor.lastrequest);
+			if (x < 10) x = 10;
+			setTimeout(Meteor.poll, x);
+		}
+	},
+
+	time: function() {
+		var now = new Date();
+		return now.getTime();
+	}
+}
+
+var oldonunload = window.onunload;
+if (typeof window.onunload != 'function') {
+	window.onunload = Meteor.disconnect;
+} else {
+	window.onunload = function() {
+		if (oldonunload) oldonunload();
+		Meteor.disconnect();
+	}
 }
\ No newline at end of file