// odesilat na portal udaje z teplomeru 5ks....................musi se dodelat
 // pri prekroceni teplot kotle nebo boileru musí poslat mail
 // odesilat na portala vodomer a plynomer.....zatim neni
 // při sepnutí rele 1 poslat mail restart a zaroven preklopit rele na 3 sec. pak opět vypnout na nulu pokud bude rele stale sepnuto jeste dvakrat opakovat pokud bude stále vypnuto postat info mail porucha......musi se dodelat
 // snimani tlaku , pri poklesu na nulu poslat mail a preklopit rele..........zatim neni
 //po výpadku napájení poslat mail...............musi se dodelat
 //po nastartování poslat mail o startu...........musi se dodelat

//zaciname...................................................................................................................

// vyptá teploty cidel, bude teplota pod limit zasle jeden mail a zablokuje dalsi a odblokuje moznost opacnych mailu 
// az stoupne teplota nad limit posle jeden mail zablokuje a odblokuje zase opacnou moznost 

//promenne

var teplota_kotel,teplota_kotel_2, horni_2, dolni_2;
var teplota_boiler_1,teplota_boiler_2, horni_1, dolni_1;
var uz_jsem_poslal_email_pro_boiler_1;
var uz_jsem_poslal_email_pro_boiler_2;
var uz_jsem_poslal_email_pro_kotel_1;
var uz_jsem_poslal_email_pro_kotel_2;

mail_1
{ 
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_1 = 0)  smtp_send('servis@lemigas.cz.cz','Dohled UPS','teplota boileru je mene nez pozadovana.');
   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro boiler_1 = 1;
   //vynulovat mail_2
   uz_jsem_poslal_email_pro boiler_2 = 0;
}

mail_2
{ 
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_2 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota boileru stoupa nad limit.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro boiler_2 = 1;
   //vynulovat mail_1
   uz_jsem_poslal_email_pro boiler_1 = 0;
}

mail_3
{
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_kotel_1 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota kotle je mene nez 'pozadovana.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro kotel_1 = 1;
   //vynulovat mail_4
   uz_jsem_poslal_email_pro lotel_2 = 0;
}

mail_4
{ 
 //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_kotel_2 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota kotle stoupa nad limit.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro kotel_2 = 1;
   //vynulovat mail_3
   uz_jsem_poslal_email_pro kotel_1 = 0;
}

main
{
  //vychozi stav
   //prevezmeme hodnoty meznich teplot(st.C)
  dolni_1 = 40;
  horni_1 = 41;
  dolni_2 = 60;
  horni_2 = 61;

  //pockame 10 sekund, az nabehne cely system
  wait(10000);

  //------------------------------------------------------------

  //hlavni smycka, ve ktere se vykonava proces
label smycka_rizeni:

  //teplota je brana z cidla
  teplota_boiler_1 = (sys[310] / 100);  //musime delit 100 aby to byly cele stupne Celsia
  teplota_boiler_2 = (sys[311] / 100);
  teplota_kotel_2 = (sys[312] / 100);
  teplota_kotel_1 = (sys[313] / 100);

  //podle aktualni teploty rozhodnu co dál
   if (teplota_boiler_1 < dolni_1) mail_1();
   if (teplota_boiler_1 > horni_1) mail_2();
   if (teplota_boiler_2 < dolni_1) mail_1();
   if (teplota_boiler_2 < horni_1) mail_2();
   if (teplota_kotel_3 < dolni_2) mail_3();
   if (teplota_kotel_3 < horni_2) mail_4();
   if (teplota_kotel_4 < dolni_2) mail_3();
   if (teplota_kotel_4 < horni_2) mail_4();

  //sem pridej dalsi testy pro dalsi cidla a rele (tj. to co je mezi "label smycka_rizeni:" a timto radkem)

  //a porad dokola
  goto smycka_rizeni;
}

mail_1
{
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_1 == 0)
   {
   smtp_send('servisx@lemigas.cz','Dohled UPS','teplota boileru je mene nez pozadovana.');
   }
   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro_boiler_1 = 1;
   //vynulovat mail_2
   uz_jsem_poslal_email_pro_boiler_2 = 0;
  
}

if (sys[156] == 0) { posli_porucha_email(); } else { reset=0; }

var mez, odeslano;
init
{
mez = 3012;
odeslano = 0;
}
posli_email
{
  if (odeslano == 0)
  {
    smtp_send('navara@xyzxyz.com', 'teplotni alarm', 'Hlasim ze teplota (',sys[310],'°C) poklesla pod ',mez,'°C .');
    echo (' odeslan mail ');
  }
  odeslano = 1;
}

uz_je_nad
{
  odeslano = 0;
  smtp_send('navara@xyzxyz.com', 'teplotni alarm', 'Hlasim ze teplota (',sys[310],'°C) stoupla nad ',mez,'°C .');
  odeslano = 1;
}

main
{
 testuj_znovu:
 if (sys[310] < mez) posli_email() else uz_je_nad();
 goto testuj_znovu;
}