Arnim Faryn ©2006, '07, '08 Arnim Faryn - Markennamen & -zeichen sind Eigentum der Inhaber. arnim@faryn.de www.blitzortung.org Blitzortung.org - 1 1.6.5.2 2008.08.22:2110 Blitz- Gewitterdaten Europas / Lightning and thunderstorm data from Europe Wetter, weather, Blitz, thunderbolt, Gewitter, thunderstorm, http://www.blitzortung.de http://www.blitzortung.de http://tb.kdz-clan.org/blitz.gif http://www.blitzortung.org/DF/Webpages/Images/banner_euro.png http://www.klipfolio.com/download/kid-6186/blitzortung.klip http://www.klipfolio.com/klipinfo/6186/Blitzortung_org -- -- true loading data... No new data. = 5893) { // KlipFolio version 4 detected Engines.KlipFood.stylesheet = frameStyle; } else { Engines.KlipFood.stylesheet = classicStyle; } // Enable/Disable automatic item deletion by KlipFolio Items.autoremove = true; Prefs.setPref("map_type", "0"); setmaptype(); } Setup.addTab ('Wichtig / Important'); Setup[0].addText ( 'Wichtig!:' ); Setup[0].addText ( 'Blitzortung.org ist ein freier nicht kommerzieller Informationsdienst mit aktuellen Blitzdaten über Mitteleuropa. Die hier angebotenen Daten sind ausschließlich für den privaten Gebrauch bestimmt. Sie dienen lediglich der privaten Unterhaltung und dürfen nicht zum Schutz von Personen oder Sachwerten eingesetzt werden. Private Betreiber von Webseiten (Homepages) düfen ohne weitere Zustimmung die auf Blitzortung.org angebotenen Bilder, welche den Copyright-Vermerk "© www.Blitzortung.org" tragen, auf ihren Seiten einbinden oder Links zu den Seiten von Blitzortung.org einrichten. Eine gewerbliche Nutzung der auf den Seiten von Blitzortung.org angebotenen Informationen ist verboten.' ); Setup[0].addSpacer( true ); Setup[0].addText ( 'Important!:' ); Setup[0].addText ( 'Blitzortung.org is a free non commercial service providing information about the location of lightnings over Central Europe. The data will only be used for private and entertainment purposes. It is not allowed to use the data for protection of life or property. Private operators of home pages can link all pictures that cover the copyright sign "© www.Blitzortung.org" on their web sites without any further compliancy. A commercial use of data from Blitzortung.org is strongly prohibited.' ); var baseUrl = 'http://www.blitzortung.de/DF/Webpages'; landUrl = ''; function clsLand (label, url) { this.label = label; this.url += url; } clsLand.prototype.url = 'baseUrl' + 'index.php?station=1&'; var land = new Array (); land[0] = new clsLand ('Deutschland / Germany', '0'); land[1] = new clsLand ('Niederlande / Netherlands', '1'); land[2] = new clsLand ('Belgien / Belgium', '2'); land[3] = new clsLand ('Österreich / Austria', '3'); land[4] = new clsLand ('Schweiz / Switzerland', '4'); land[5] = new clsLand ('Groß Britanien / UK', '5'); land[6] = new clsLand ('Spanien / Spain', '6'); land[7] = new clsLand ('Frankreich / France', '7'); land[8] = new clsLand ('Italien / Italy', '8'); land[9] = new clsLand ('EUropa / EUrope', '9'); land[10] = new clsLand ('Griechenland / Greece', '10'); land[11] = new clsLand ('Dänemark / Denmark', '11'); land[12] = new clsLand ('Schweden / Sveden', '12'); land[13] = new clsLand ('Albanien / Albania', '13'); land[14] = new clsLand ('Türkei / Turkey', '14'); land[15] = new clsLand ('----- / -----', '15'); land[16] = new clsLand ('Atlantik / Atlantic', '16'); land[17] = new clsLand ('USA / USA', '17'); Setup.addTab ('Setup'); Setup[0].addText ('Pick the country for watching datas of thunderbolts:\n Land wählen:'); var comboBox = Setup[0].addComboBox(); comboBox.onChange = function () { Klip.requestRefresh (); }; for ( var item in land ) { comboBox.addItem (land[item].label); } if (Prefs.getPref ('land') == '') { comboBox.selected = 9; // if no Pref available, set to default EUropa / EUrope = 9 } else { comboBox.selected = Prefs.getPref ('land'); // get pref } function onRefresh() { Prefs.setPref ('land', comboBox.selected); // save pref parseHTML (comboBox.selected); return true; } function fn_refresh_rate_onChange(index) { Prefs.setPref("refresh_rate", "" + (c_refresh_rate.selected)); setRefreshRate() } function setRefreshRate() { switch (c_refresh_rate.selected) { case 0: Prefs.refreshrate = 15; break; case 1: Prefs.refreshrate = 30; break; case 2: Prefs.refreshrate = 60; break; case 3: Prefs.refreshrate = 120; break; } } function fn_map_type_onChange(index) { Prefs.setPref("map_type", "" + (d_map_type.selected)); setmaptype() } function setmaptype() { switch (d_map_type.selected) { case 0: Prefs.maptype = '0'; break; case 1: Prefs.maptype = '1'; break; case 2: Prefs.maptype = '2'; break; } } Setup[0].addText ('Maptype:'); d_map_type = Setup[0].addComboBox("Blitze / Lightnings", "Gebiete / Destiny", "Gewitter / Storms"); d_map_type.onChange = fn_map_type_onChange; d_map_type.selected = ((p = Prefs.getPref ("map_type")) != false ? Number(p) : 0); Setup[0].addText ('Refreshrate:'); c_refresh_rate = Setup[0].addComboBox("15 Min.", "30 Min.", "60 Min.", "120 Min."); c_refresh_rate.onChange = fn_refresh_rate_onChange; c_refresh_rate.selected = ((p = Prefs.getPref ("refresh_rate")) != false ? Number(p) : 3); function parseHTML (itm) { var d = new Date(); var y = d.toUTCString(); var icon ='http://tb.kdz-clan.org/blitz.gif'; if (y.substr(8,3) == 'Jan') { var x0month = 1; } if (y.substr(8,3) == 'Feb') { var x0month = 2; } if (y.substr(8,3) == 'Mar') { var x0month = 3; } if (y.substr(8,3) == 'Apr') { var x0month = 4; } if (y.substr(8,3) == 'May') { var x0month = 5; } if (y.substr(8,3) == 'Jun') { var x0month = 6; } if (y.substr(8,3) == 'Jul') { var x0month = 7; } if (y.substr(8,3) == 'Aug') { var x0month = 8; } if (y.substr(8,3) == 'Sep') { var x0month = 9; } if (y.substr(8,3) == 'Oct') { var x0month = 10; } if (y.substr(8,3) == 'Nov') { var x0month = 11; } if (y.substr(8,3) == 'Dec') { var x0month = 12; } var x0hour = y.substr(17,2); var x0year = y.substr(12,4); var x0minute = d.getMinutes(); var x0day = d.getDate(); var x1month = Date().substr(4,3); var x0time = Date().substr(16,5); var x1time = Date().substr(28,5); var x0url = 'index.php?'; var x1sta = 'station=2'; var x3url = 'http://www.blitzortung.de/DF/Webpages/'; var x4url = 'http://www.blitzortung.de/cgi-bin/archive.cgi?map=' var x1url = Prefs.getPref ('land'); var x0map = Prefs.getPref ('map_type'); var HTTPRequest = Engines.HTTP.newRequest (x3url + x0url + x1sta + '&mode=' + x0map + '&map=' + x1url + '&lang=e'); var result = HTTPRequest.send(); if (result) { var HTTPResponse = HTTPRequest.response; if (HTTPResponse.data.length) { var myReg = '' var re_item = new RegExp(myReg, "g"); var match; var img = ''; var news = ''; while (match = re_item.exec(HTTPResponse.data)) { news += '' + icon +'http://blitzortung.tmt.de/' + match[1] + '' + x4url + x1url + '&mode=' + x0map + '&year=' + x0year + '&mon=' + x0month + '&day=' + x0day + '&hour=' + x0hour + '&min=' + x0minute + '&sec=0'; } news += ''; return Engines.KlipFood.process (news); } } } ]]>