var _web_tget;
var _web_data;
var _web_timeout;
odesli_data_na_web
{
if (_web_tget==0) goto odesli_data_na_web_get; //zadny timeout odeslat data
//pred odeslanim dat zkontrolovat zda nebezi predchozi pozadavek
if (sys[65]==0 && _web_tget>=sys[3]) return; //jeste bezi, ale mam cas delam neco jineho
if (_web_tget<sys[3]) goto odesli_data_na_web_chyba; //uz neni cas - chyba
if ((sys[65]!=1024) || (sys[75] != 200)) {
goto odesli_data_na_web_chyba;
} else {
if (_web_data==1) { echo('1 odeslano na server, OK.'); }
if (_web_data==2) { echo('2 odeslano na server, OK.'); }
if (_web_data==3) { echo('3 odeslano na server, OK.'); }
_web_data++;
_web_tget=0;
if (_web_data>3) {
_web_timeout=sys[3]+90000; //15minut timeout
_web_data=0; //vynulovat
}
}
}
label odesli_data_na_web_get:
if (_web_data==1) {
http_get(77,93,211,207,'eportal.merenienergie.cz','/datas0.php?ver=1&devid=', '*************', '&t0v1=', sys[493], '&t0v2=', sys[494], '&t0v3=', sys[495], '&t0v4=', sys[496], '&t0v5=', sys[497], '&t0v6=', sys[498], '&t0v7=', sys[499], '&t0v8=', sys[500], '&t1v1=', sys[526], '&t1v2=', sys[527], '&t1v3=', sys[528], '&t1v4=', sys[529], '&t1v5=', sys[530], '&t1v6=', sys[531], '&t1v7=', sys[532], '&t1v8=', sys[533], '&av1=', sys[592], '&av2=', sys[593], '&av3=', sys[594], '&av4=', sys[595], '&av5=', sys[596], '&av6=', sys[597], '&av7=', sys[598], '&av8=', sys[599], '&tt=', sys[459]);
}
if (_web_data==2) {
http_get(77,93,211,207,'eportal.merenienergie.cz','/datatemp.php?ver=1&line=a&devid=', '************', '&t1=', sys[310], '&t2=', sys[311], '&t3=', sys[312], '&t4=', sys[313], '&t5=', sys[314], '&t6=', sys[315], '&t7=', sys[316], '&t8=', sys[317], '&t9=', sys[318], '&t10=', sys[319], '&t11=', sys[320], '&t12=', sys[321], '&t13=', sys[322], '&t14=', sys[323], '&t15=', sys[324], '&t16=', sys[325]);
}
if (_web_data==3) {
http_get(88,86,113,152, '********','/datatxt.php?temp00=', sys[310], '&temp01=', sys[311], '&temp02=', sys[312], '&temp03=', sys[313], '&temp04=', sys[314], '&temp05=', sys[315]);
}
_web_tget=sys[3]+4500; //45sekund pro potvrzeni ze serveru
return;
label odesli_data_na_web_chyba:
echo('Chyba komunikace s www serverem, http: ', sys[75]);
_web_timeout=sys[3]+90000; //za 15minut to zkusim znovu
_web_data=0; //vynulovat
_web_tget=0; //vynulovat
}
nastav_web
{
_web_timeout=0; //zrovna se odesilaji data
_web_tget=0; //vynulovat timeout predchozich get pozadavku
_web_data=1; //vzdy od prvni funkce
}
init
{
echo('Start programu');
_web_tget=0;
_web_timeout=1; //odeslat data ihned
}
main
{
//odeslani dat na web po 15minutach
if (_web_timeout>0 && _web_timeout<sys[3]) nastav_web();
if (_web_data>0) odesli_data_na_web();
//tady muzete delat neco jineho...
//nastav_rele();
}