Технологические времена работы биржи

    
function OnInit(scr_path)
  is_run = true
  file = io.open(scr_path:sub(1,-4).."log", "a+")
  callBack = {}
  sec = "CNYRUBF" -- Стартовый тикер
end

function OnFuturesClientHolding(t)-- Позиции по клиентским счетам (фьючерсы).
  table.sinsert(callBack, t)
end
    
function OnStop()
  file:close()
  is_run = false
  return 2000
end

function main()
  
  --file:write("\n  Дата    Время    Сессия  Бирж.сесс.  Статус кл.    Статус     Коллбэк \n")
  file:write("\n  Дата\t Время\t Сессия\t Бирж.сесс.\t Статус кл.\t Статус\t Коллбэк \n")
  
  local function UpdStts(param)
    return getParamEx("SPBFUT", sec, param).param_image
  end
  
  while is_run do
    trd_phase = UpdStts("TRADINGPHASE") -- Сессия.
    trd_stts = UpdStts("TRADINGSTATUS") -- Биржевой статус торговой сессии.
    cl_stts = UpdStts("CLSTATE") -- Статус клиринга.
    status = UpdStts("STATUS") -- Статус.
    
    while #callBack > 0 or trd_phase ~= prev_trdphs or trd_stts ~= prev_trdst or cl_stts ~= prev_clst or status ~= prev_st do
      if callBack[1] then -- Есть коллбек.
        local t = table.sremove(callBack, 1)
        sec = t.sec_code
        cb_stts = sec ..": ".. t.session_status
      else
        cb_stts = " "
      end
      prev_trdphs = trd_phase
      prev_trdst = trd_stts
      prev_clst = cl_stts
      prev_st = status
      --file:write(os.date(" %d/%b  %X  "),trd_phase,"  ",trd_stts,"    ",cl_stts,"  ",status,"  ",cb_stts,"\n")
      file:write(string.format("%s\t %s\t %s\t %s\t %s\t %s\n", os.date(" %d/%b %X"), trd_phase, trd_stts, cl_stts, status, cb_stts))
      file:flush()
    end 
    sleep(300)
  end
end