*     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     
*
*    program se vola se 3 ciselnymi parametry - pocet lidi v bazenu, posilovne, saune
*    pokud se hodnoty lisi od minulych, vygeneruje se index.html soubor nahradou placeholderu v mustru
*
* 2022-04-04
* 2022-04-21 - posilani na raspberry se odsud nevola, pobezi vedle jako cyklujici davka
*
*     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     

LPARAMETERS bazen, posil, sauna

*#DEFINE CESTA  "i:\olsanka\"
m.cesta = m.gchom_path

publikuj("lcd_old_bazen")
publikuj("lcd_old_posil")
publikuj("lcd_old_sauna")
    
IF (m.bazen # m.lcd_old_bazen) .or. (m.posil # m.lcd_old_posil) .or. (m.sauna # m.lcd_old_sauna)
  IF FILE(CESTA + "olsanka_mustr.html")
    lcd_old_bazen = m.bazen
    lcd_old_posil = m.posil
    lcd_old_sauna = m.sauna

    texticek = FILETOSTR(CESTA + "olsanka_mustr.html")

    texticek = STRTRAN(m.texticek, "[POCET_BAZEN]", STR(m.bazen))
    texticek = STRTRAN(m.texticek, "[POCET_POSIL]", STR(m.posil))
    texticek = STRTRAN(m.texticek, "[POCET_SAUNA]", STR(m.sauna))

    texticek = STRTRAN(m.texticek, "[TIMESTAMP]", LEFT(TTOC(DATETIME(), 3), 16))

    STRTOFILE(m.texticek, CESTA + "index.html")
   
    
    ** tady pak nak bude poslani toho souboru do zobrazovaciho raspberry
    ** RUN raspberry_olsanka.bat

  ENDIF 
ENDIF 


*     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     
PROCEDURE publikuj
LPARAMETERS jmeno_promenne
IF TYPE(jmeno_promenne) = "U" 
    PUBLIC (jmeno_promenne)
ENDIF 
IF TYPE(jmeno_promenne) # "N" 
    &jmeno_promenne = -999
ENDIF 
