Tak jsem se posunul, ale ne do funkčního stavu, zjistil jsem že chlapci na seznamu mají v nápovědě asi již starou IP adresiu SNTP serveru, upravil jsem jí na adresu která pingá 77.75.78.48 ale nic to neposílá.
vzorový kod je zde: (email adresu samozřejmě nastaven) ale nevi kde je bota
děkuji za rady
Pavel
// *********** upozorneni **************
// pouziva se RAM[300-308] pro akt.teploty
// pouziva se RAM[310-318] pro min.teploty
// pouziva se RAM[320-328] pro max.teploty
// pouziva se RAM[330-338] pro dolni mezni teploty pro email
// pouziva se RAM[340-348] pro horni mezni teploty pro email
// pouziva se RAM[350-358] pro informaci o odeslanem emailu
var _sys; //ukazatel do sys
var _ram; //ukazatel do ram
var _ramd; //dolni mezni hodnoty
var _ramh; //horni mezni hodnoty
var _rame; //email odeslan=1
var _tmo; //timeout pro edeslani dalsiho emailu
var _memo; //sys[100-8]
var _web; //sys[140-8]
var _pom; //pomocna pro vsechno
var _tep; //teplota ve stupnich (/100)
setparam
{
// sys[140-7]
_sys=140;
_ramd=330;
_ramh=340;
label setparam_1:
_pom=sys[_sys]/1000;
if (_pom<200) {
ram[_ramh]=_pom-100;
ram[_ramh]=-1*ram[_ramh];
} else {
ram[_ramh]=_pom-200;
}
_pom=sys[_sys] % 1000;
if (_pom<200) {
ram[_ramd]=_pom-100;
ram[_ramd]=-1*ram[_ramd];
} else {
ram[_ramd]=_pom-200;
}
_sys++;
_ramd++;
_ramh++;
if (_sys<148) goto setparam_1;
}
savetopm
{
_pom=0;
_memo=100;
_web=140;
label savetopm_1:
if (sys[_memo]!=sys[_web]) {
sys[_memo]=sys[_web];
echo('Hodnota ', sys[_web], ' ulozena do permanentni pameti');
_pom=1;
}
_memo++;
_web++;
if (_memo<108) goto savetopm_1;
if (_pom==1) setparam(); //nastaveni parametru z web promennych
}
nactitemp
{
_sys=310;
_ram=300;
label nactitemp_1:
if (sys[_sys]>0 && sys[_sys]<20000) {
ram[_ram]=sys[_sys];
_pom=_ram+10;
if (ram[_ram]<ram[_pom]){
ram[_pom]=ram[_ram];
}
_pom=_ram+20;
if (ram[_ram]>ram[_pom]){
ram[_pom]=ram[_ram];
}
}
_sys++;
_ram++;
if (_sys<318) goto nactitemp_1;
}
kontrtemp
{
_ram=300;
_ramd=330;
_ramh=340;
_rame=350;
label kontrtemp_1:
_pom=_ram-299;
_tep=ram[_ram]/100; //akt.teplota ve stupnich
if (_tep<ram[_ramd] && ram[_rame]<sys[3]){
echo('Teplota cidla ', _pom, ' je nizsi nez nastavena (', _tep, ' st.C)');
smtp_send(text[100], 'SDS panel teplot', 'Teplota cidla ', _pom, ' je nizsi nez nastavena (', _tep, ' st.C)');
ram[_rame]=sys[3]+8640000; //az za 24h se odesle dalsi email pokud se teplota nevrati
}
if (_tep>ram[_ramh] && ram[_rame]<sys[3]){
echo('Teplota cidla ', _pom, ' je vyssi nez nastavena (', _tep, ' st.C)');
smtp_send(text[100], 'SDS panel teplot', 'Teplota cidla ', _pom, ' je vyssi nez nastavena (', _tep, ' st.C)');
ram[_rame]=sys[3]+8640000; //az za 24h se odesle dalsi email pokud se teplota nevrati
}
if (_tep>ram[_ramd] && _tep<ram[_ramh]){
_pom=_tmo*100;
ram[_rame]=sys[3]+_pom; //timeout
}
_ram++;
_ramd++;
_ramh++;
_rame++;
if (_ram<308) goto kontrtemp_1;
}
init
{
echo('Teplomer spusten');