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