trunk/public_html/meteor.js

// 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.transferDoc = false;
        this.pingtimer = false;
        this.updatepollfreqtimer = false;
        this.lastrequest = 0;
        this.recvtimes = [];
        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.debugmode = false;
        this.subsurl = false;
        this.channels = {};

        // Documented public properties
        this.subdomain = "data";
        this.dynamicpageaddress = "push";
        this.smartpoll = true;
        this.pollfreq = 2000;
        this.minpollfreq = 2000;
        this.mode = "poll";
        this.polltimeout=30000;
        this.pingtimeout = 10000;
        this.maxmessages = 0;
        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.reset = function(ifr) {
        instid = new String(ifr.window.frameElement.id);
        instid = instid.replace(/.*_([0-9]*)$/, "$1");
        this.instances[instid].reset();
}

Meteor.prototype.joinChannel = function(channelname, backtrack) {
        if (typeof(this.channels[channelname]) != "undefined") throw "Cannot join channel "+channelname+": already subscribed";
        this.channels[channelname] = {backtrack:backtrack, lastmsgreceived:0};
        if (this.debugmode) console.log("Joined channel "+channelname+", channel list follows");
        if (this.debugmode) console.log(this.channels);
        if (this.status != 0) this.start();
}

Meteor.prototype.leaveChannel = function(channelname) {
        if (typeof(this.channels[channelname]) == "undefined") throw "Cannot leave channel "+channelname+": not subscribed";
        delete this.channels[channelname];
        if (this.status != 0) this.start();
}

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.channels.length) throw "Channel or Meteor subdomain host not specified";
        this.stop();
        var now = new Date();
        var t = now.getTime();
        this.setstatus(1);
        var surl = "http://" + this.subdomain + "." + location.hostname + "/" + this.dynamicpageaddress + "?id=" + this.MHostId;
        if (this.maxmessages && !this.persist) surl += "&maxmessages=" + this.maxmessages;
        for (var c in this.channels) {
                surl += "&channel="+c;
                if (this.channels[c].lastmsgreceived >= 0) {
                        surl += "&restartfrom="+this.channels[c].lastmsgreceived;
                } else if (this.channels[c].backtrack > 0) {
                        surl += "&backtrack="+this.channels[c].backtrack;
                } else if (this.channels[c].backtrack < 0 || isNaN(this.channels[c].backtrack)) {
                        surl += "&restartfrom=";
                }
        }
        this.subsurl = surl;
        if (this.mode=="stream") {
                this.createIframe(this.subsurl);
                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.mode="poll";
        this.start();
        this.callback_changemode("poll");
        this.lastpingtime = false;
}

Meteor.prototype.process = function(id, channel, data) {
        if (id == -1) {
                if (this.debugmode) console.log("Ping");
                this.ping();
        } else if (typeof(this.channels[channel]) != "undefined" && id > this.channels[channel].lastmsgreceived) {
                if (this.debugmode) console.log("Message "+id+" received on channel "+channel+" (last id on channel: "+this.channels[channel].lastmsgreceived+")\n"+data);
                this.callback_process(data);
                this.channels[channel].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();
                }
        }
        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);
}
1	andrew.betts	6	// Set domain at highest level
2			var domainparts = document.domain.split(".");
3			document.domain = domainparts[domainparts.length-2]+"."+domainparts[domainparts.length-1];
4
5			Function.prototype.bind = function(obj) {
6			var method = this,
7			temp = function() {
8			return method.apply(obj, arguments);
9			};
10			return temp;
11			}
12			Function.prototype.andThen=function(g) {
13			var f=this;
14			var a=this.arguments
15			return function(args) {
16			f(a);g(args);
17			}
18			};
19
20			function Meteor(instID) {
21
22			this.transferDoc = false;
23			this.pingtimer = false;
24			this.updatepollfreqtimer = false;
25			this.lastrequest = 0;
26	andrew.betts	19	this.recvtimes = [];
27	andrew.betts	6	this.MHostId = false;
28			this.callback_process = function() {};
29			this.callback_reset = function() {};
30			this.callback_eof = function() {};
31			this.callback_changemode = function() {};
32	andrew.betts	7	this.callback_statuschanged = function() {};
33	andrew.betts	6	this.persist = true;
34	andrew.betts	7	this.frameloadtimer = false;
35	andrew.betts	14	this.debugmode = false;
36	andrew.betts	18	this.subsurl = false;
37	andrew.betts	19	this.channels = {};
38	andrew.betts	6
39			// Documented public properties
40			this.subdomain = "data";
41			this.dynamicpageaddress = "push";
42			this.smartpoll = true;
43			this.pollfreq = 2000;
44			this.minpollfreq = 2000;
45	andrew.betts	14	this.mode = "poll";
46	andrew.betts	6	this.polltimeout=30000;
47			this.pingtimeout = 10000;
48	andrew.betts	18	this.maxmessages = 0;
49	andrew.betts	7	this.status = 0;
50	andrew.betts	6
51	andrew.betts	7	/* Statuses: 0 = Uninitialised,
52			1 = Loading stream,
53			2 = Loading controller frame,
54	andrew.betts	14	3 = Controller frame timeout, retrying.
55	andrew.betts	7	4 = Controller frame loaded and ready
56			5 = Receiving data
57			*/
58
59	andrew.betts	6	this.instID = (typeof(instID) != "undefined") ? instID : 0;
60	andrew.betts	14	this.MHostId = Math.floor(Math.random()*100000000)+""+this.instID;
61	andrew.betts	6	}
62
63			Meteor.instances = new Array();
64
65			Meteor.create = function(instID) {
66	andrew.betts	9	if (!instID) instID = Meteor.instances.length;
67	andrew.betts	6	Meteor.instances[instID] = new Meteor(instID);
68			return Meteor.instances[instID];
69			}
70
71			Meteor.register = function(ifr) {
72			instid = new String(ifr.window.frameElement.id);
73	andrew.betts	14	instid = instid.replace(/._([0-9])$/, "$1");
74	andrew.betts	6	ifr.p = this.instances[instid].process.bind(this.instances[instid]);
75			ifr.r = this.instances[instid].reset.bind(this.instances[instid]);
76			ifr.eof = this.instances[instid].eof.bind(this.instances[instid]);
77			ifr.get = this.instances[instid].get.bind(this.instances[instid]);
78			ifr.increasepolldelay = this.instances[instid].increasepolldelay.bind(this.instances[instid]);
79	andrew.betts	7	clearTimeout(this.instances[instid].frameloadtimer);
80			this.instances[instid].setstatus(4);
81	andrew.betts	14	if (this.debugmode) console.log("Frame registered");
82	andrew.betts	6	}
83
84	andrew.betts	18	Meteor.reset = function(ifr) {
85			instid = new String(ifr.window.frameElement.id);
86			instid = instid.replace(/._([0-9])$/, "$1");
87			this.instances[instid].reset();
88			}
89
90			Meteor.prototype.joinChannel = function(channelname, backtrack) {
91			if (typeof(this.channels[channelname]) != "undefined") throw "Cannot join channel "+channelname+": already subscribed";
92			this.channels[channelname] = {backtrack:backtrack, lastmsgreceived:0};
93	andrew.betts	19	if (this.debugmode) console.log("Joined channel "+channelname+", channel list follows");
94			if (this.debugmode) console.log(this.channels);
95	andrew.betts	18	if (this.status != 0) this.start();
96			}
97
98			Meteor.prototype.leaveChannel = function(channelname) {
99			if (typeof(this.channels[channelname]) == "undefined") throw "Cannot leave channel "+channelname+": not subscribed";
100			delete this.channels[channelname];
101			if (this.status != 0) this.start();
102			}
103
104	andrew.betts	6	Meteor.prototype.start = function() {
105			this.persist = (this.maxmessages)?1:0;
106			this.smartpoll = (this.smartpoll)?1:0;
107			this.mode = (this.mode=="stream")?"stream":"poll";
108	andrew.betts	18	if (!this.subdomain \|\| this.channels.length) throw "Channel or Meteor subdomain host not specified";
109	andrew.betts	14	this.stop();
110	andrew.betts	6	var now = new Date();
111			var t = now.getTime();
112	andrew.betts	14	this.setstatus(1);
113	andrew.betts	18	var surl = "http://" + this.subdomain + "." + location.hostname + "/" + this.dynamicpageaddress + "?id=" + this.MHostId;
114			if (this.maxmessages && !this.persist) surl += "&maxmessages=" + this.maxmessages;
115			for (var c in this.channels) {
116			surl += "&channel="+c;
117			if (this.channels[c].lastmsgreceived >= 0) {
118			surl += "&restartfrom="+this.channels[c].lastmsgreceived;
119			} else if (this.channels[c].backtrack > 0) {
120			surl += "&backtrack="+this.channels[c].backtrack;
121			} else if (this.channels[c].backtrack < 0 \|\| isNaN(this.channels[c].backtrack)) {
122	andrew.betts	14	surl += "&restartfrom=";
123	andrew.betts	6	}
124	andrew.betts	18	}
125			this.subsurl = surl;
126			if (this.mode=="stream") {
127			this.createIframe(this.subsurl);
128	andrew.betts	6	var f = this.pollmode.bind(this);
129			clearTimeout(this.pingtimer);
130			this.pingtimer = setTimeout(f, this.pingtimeout);
131
132			} else {
133	andrew.betts	14	this.createIframe("http://"+this.subdomain+"."+location.hostname+"/poll.html");
134			this.recvtimes[0] = t;
135			if (this.updatepollfreqtimer) clearTimeout(this.updatepollfreqtimer);
136			this.updatepollfreqtimer = setInterval(this.updatepollfreq.bind(this), 2500);
137			}
138			this.lastrequest = t;
139			}
140
141			Meteor.prototype.createIframe = function(url) {
142			if (document.all) {
143			this.transferDoc = new ActiveXObject("htmlfile");
144			this.transferDoc.open();
145			this.transferDoc.write("<html>");
146			this.transferDoc.write("<script>document.domain=\""+(document.domain)+"\";</"+"script>");
147			this.transferDoc.write("</html>");
148			var selfref = this;
149			this.transferDoc.parentWindow.Meteor = Meteor;
150			this.transferDoc.close();
151			var ifrDiv = this.transferDoc.createElement("div");
152			this.transferDoc.appendChild(ifrDiv);
153			ifrDiv.innerHTML = "<iframe id=\"meteorframe_"+this.instID+"\" src=\""+url+"\" style=\"display: none;\"></iframe>";
154			} else {
155	andrew.betts	6	var ifr = document.createElement("IFRAME");
156			ifr.style.width = "10px";
157			ifr.style.height = "10px";
158			ifr.style.border = "none";
159	andrew.betts	14	ifr.style.position = "absolute";
160			ifr.style.top = "-10px";
161			ifr.style.marginTop = "-10px";
162			ifr.style.zIndex = "-20";
163			ifr.setAttribute("id", "meteorframe_"+this.instID);
164			ifr.Meteor = Meteor;
165			var innerifr = document.createElement("IFRAME");
166			innerifr.setAttribute("src", url);
167			innerifr.setAttribute("id", "meteorinnerframe_"+this.instID);
168			ifr.appendChild(innerifr);
169	andrew.betts	6	document.body.appendChild(ifr);
170			}
171	andrew.betts	14	if (this.debugmode) console.log("Loading URL '"+url+"' into frame...");
172			var f = this.frameloadtimeout.bind(this);
173			this.frameloadtimer = setTimeout(f, 5000);
174	andrew.betts	6	}
175
176	andrew.betts	9	Meteor.prototype.stop = function() {
177			if (typeof(this.transferDoc)=="object") {
178	andrew.betts	14	this.transferDoc = false;
179	andrew.betts	9	}
180			if (document.getElementById("meteorframe_"+this.instID)) {
181			document.getElementById("meteorframe_"+this.instID).src="about:blank";
182			document.body.removeChild(document.getElementById("meteorframe_"+this.instID));
183			}
184			if (!isNaN(this.pingtimer)) clearTimeout(this.pingtimer);
185			if (!isNaN(this.updatepollfreqtimer)) clearTimeout(this.updatepollfreqtimer);
186			if (!isNaN(this.frameloadtimer)) clearTimeout(this.frameloadtimer);
187			this.setstatus(0);
188			}
189
190	andrew.betts	6	Meteor.prototype.pollmode = function() {
191	andrew.betts	14	if (this.debugmode) console.log("Ping timeout");
192	andrew.betts	6	this.mode="poll";
193			this.start();
194			this.callback_changemode("poll");
195	andrew.betts	7	this.lastpingtime = false;
196	andrew.betts	6	}
197
198	andrew.betts	18	Meteor.prototype.process = function(id, channel, data) {
199	andrew.betts	19	if (id == -1) {
200			if (this.debugmode) console.log("Ping");
201			this.ping();
202			} else if (typeof(this.channels[channel]) != "undefined" && id > this.channels[channel].lastmsgreceived) {
203			if (this.debugmode) console.log("Message "+id+" received on channel "+channel+" (last id on channel: "+this.channels[channel].lastmsgreceived+")\n"+data);
204	andrew.betts	18	this.callback_process(data);
205			this.channels[channel].lastmsgreceived = id;
206	andrew.betts	6	if (this.mode=="poll") {
207			var now = new Date();
208			var t = now.getTime();
209			this.recvtimes[this.recvtimes.length] = t;
210			while (this.recvtimes.length > 5) this.recvtimes.shift();
211			}
212			}
213	andrew.betts	7	this.setstatus(5);
214	andrew.betts	6	}
215
216			Meteor.prototype.ping = function() {
217			if (this.mode=="stream" && this.pingtimer) {
218			clearTimeout(this.pingtimer);
219			var f = this.pollmode.bind(this);
220			this.pingtimer = setTimeout(f, this.pingtimeout);
221			var now = new Date();
222			this.lastpingtime = now.getTime();
223			}
224	andrew.betts	7	this.setstatus(5);
225	andrew.betts	6	}
226
227			Meteor.prototype.reset = function() {
228	andrew.betts	14	if (this.debugmode) console.log("Stream reset");
229	andrew.betts	6	var now = new Date();
230			var t = now.getTime();
231			var x = this.pollfreq - (t-this.lastrequest);
232			if (x < 10) x = 10;
233			this.ping();
234			this.callback_reset();
235			setTimeout(this.start.bind(this), x);
236			}
237
238			Meteor.prototype.eof = function() {
239			this.callback_eof();
240			}
241
242			Meteor.prototype.get = function(varname) {
243			eval("var a = this."+varname+";");
244			if (typeof(a) == "undefined") throw "Cannot get value of "+varname;
245			return a;
246			}
247
248			Meteor.prototype.increasepolldelay = function() {
249			this.pollfreq *= 2;
250			}
251
252			Meteor.prototype.updatepollfreq = function() {
253			if (this.smartpoll) {
254			var now = new Date();
255			var t = now.getTime();
256			var avg = 0;
257			for (var i=1; i<this.recvtimes.length; i++) {
258			var x = (this.recvtimes[i]-this.recvtimes[i-1]);
259			avg += (x>60000)? 60000 : x;
260			}
261			x = (t-this.recvtimes[this.recvtimes.length-1]);
262			avg += (x>180000)? 180000 : x;
263			avg /= this.recvtimes.length;
264			if ((avg/3) < this.pollfreq && (avg/3) >= this.minpollfreq) this.pollfreq = Math.ceil(this.pollfreq*0.9);
265			if ((avg/3) > this.pollfreq) this.pollfreq = Math.floor(this.pollfreq*1.05);
266			}
267			}
268
269			Meteor.prototype.registerEventCallback = function(evt, funcRef) {
270			if (evt=="process") {
271			this.callback_process = (this.callback_process).andThen(funcRef);
272			} else if (evt=="reset") {
273			this.callback_reset = (this.callback_reset).andThen(funcRef);
274			} else if (evt=="eof") {
275			this.callback_eof = (this.callback_eof).andThen(funcRef);
276			} else if (evt=="changemode") {
277			this.callback_changemode = (this.callback_changemode).andThen(funcRef);
278	andrew.betts	7	} else if (evt=="changestatus") {
279			this.callback_statuschanged = (this.callback_statuschanged).andThen(funcRef);
280	andrew.betts	6	}
281			}
282
283	andrew.betts	7	Meteor.prototype.frameloadtimeout = function() {
284	andrew.betts	14	if (this.debugmode) console.log("Frame load timeout");
285	andrew.betts	7	if (this.frameloadtimer) clearTimeout(this.frameloadtimer);
286			this.setstatus(3);
287	andrew.betts	14	setTimeout(this.start.bind(this), 5000);
288	andrew.betts	7	}
289			Meteor.prototype.setstatus = function(newstatus) {
290			if (this.status != newstatus) {
291			this.status = newstatus;
292			this.callback_statuschanged(newstatus);
293			}
294			}
295	andrew.betts	6
296			Meteor.createCookie = function(name,value,days) {
297			if (days) {
298			var date = new Date();
299			date.setTime(date.getTime()+(days2460601000));
300			var expires = "; expires="+date.toGMTString();
301			}
302			else var expires = "";
303			document.cookie = name+"="+value+expires+"; path=/";
304			}
305
306			Meteor.readCookie = function(name) {
307			var nameEQ = name + "=";
308			var ca = document.cookie.split(';');
309			for(var i=0;i < ca.length;i++) {
310			var c = ca[i];
311			while (c.charAt(0)==' ') c = c.substring(1,c.length);
312			if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
313			}
314			return null;
315			}
316
317			Meteor.eraseCookie = function(name) {
318			createCookie(name,"",-1);
319	andrew.betts	3	}