#DEFINE CRLF CHR(13) + CHR(10)

t_a_ted = DATETIME()


*** perioda se zadava ve vterinach, mela by to nesoudelna cisla, aby se prilis casto nepotkavala

vykonej("t01_pocitadlo_connections", 222)
*vykonej("t99_nemameections", 233)


*     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     
FUNCTION vykonej (t_a_cmd, t_a_perioda)

jmeno_promenne = "timer_auto_naposledy_" + m.t_a_cmd
publikuj(m.jmeno_promenne)
IF EMPTY(&jmeno_promenne)
    &jmeno_promenne = m.t_a_ted
ENDIF 
t_a_text = ""
IF m.t_a_ted > &jmeno_promenne + m.t_a_perioda
    &jmeno_promenne = t_a_ted
    TRY 
        t_a_text = t_a_cmd
        t_a_cas = SECONDS()
        DO ("autoexec\" + m.t_a_cmd)
        t_a_cas = SECONDS() - m.t_a_cas 
        t_a_text = m.t_a_text + "      trvalo: " + nx(m.t_a_cas,1) + "sec"
    CATCH TO aex_oErr 
        t_a_text = m.t_a_text + STR(aex_oErr.ErrorNo,6) + ":" + aex_oErr.Message + " Line:" + ALLTRIM(STR(aex_oErr.LineNo))
    ENDTRY 
ENDIF 
IF .not. EMPTY(m.t_a_text)
    t_a_zurnal (m.t_a_text)
ENDIF 



*     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     *     
FUNCTION t_a_zurnal (texticek)
small_log(m.texticek, "timer_autoexec")
