gistfile1.erl

process_file(StatusFileName, Table) ->
  FileName = ?STATUS_FILES_DIR ++ StatusFileName,
  {ok, IoD} = file:open(FileName, read),
  HttpURL = io:get_line(IoD, ''),
  file:close(IoD),
  {ok, {{_Version, 200, ReasonPhrase}, _Headers, _Body}} = httpc:request(HttpURL),
  file:delete(FileName),
  ets:insert(Table, {StatusFileName, -1}).

do_process() ->
  try
    process_file(status, table)
  catch
    Err:Rsn ->
      log(....),
      ets:insert(table, {status, 0})
  end.