gistfile1.erl

process_file(StatusFileName, Table) ->
	FileName = ?STATUS_FILES_DIR ++ StatusFileName,
	case file:open(FileName, read) of
		{ok, IoD} ->
			HttpURL = io:get_line(IoD, ''),
			case httpc:request(HttpURL) of
				{ok, {{_Version, HttpStatus, ReasonPhrase}, _Headers, _Body}} ->
					case HttpStatus of
						200 ->
							file:delete(FileName),
							ets:insert(Table, {StatusFileName, -1});
						_OtherStatus ->
							ets:insert(Table, {StatusFileName, 0})
					end,
					LogString = io_lib:format("~p ~p ~p ~p~n", [get_date_time(), HttpURL, HttpStatus, ReasonPhrase]);
				OtherError ->
					ets:insert(Table, {StatusFileName, 0}),
					LogString = io_lib:format("~p ~p ~p~n", [get_date_time(), HttpURL, OtherError])
			end,
			log(LogString),
            file:close(IoD);
        {error, Reason} ->
			ets:insert(Table, {StatusFileName, 0}),
			LogString = io_lib:format("~p Error of open file ~p. Reason: ~p~n", [get_date_time(), FileName, Reason]),
			log(LogString)
    end.