Я пишу код на Erlang, который принимает HTTP-запросы. У меня есть рабочий код, который показан ниже.

У меня проблема в том, что я не уверен в возвращаемом результате gen_tcp:recv.

Я создаю прослушивающий сокет и принимаю сокеты, используя

{ok, ListenSock}=gen_tcp:listen(Port, [list,{active, false},{packet,http}])
{ok, Sock}=gen_tcp:accept(ListenSock),

Я принимаю запрос GET (или любой другой), используя

{ok, {http_request, Method, Path, Version}} = gen_tcp:recv(Sock, 0),
handle_get(Sock, Path);

Затем, чтобы получить параметры URL (параметры CGI, например, ?foo=1&bar=2), я должен сопоставить Path со структурой {abs_path, RelativePath}.

handle_get(Sock, ReqPath) ->
    {abs_path, RelPath} = ReqPath,
    Parameters = string:substr(RelPath, string:str(RelPath, "?") + 1),

Когда я читал документы Erlang о gen_tcp и, в частности, о методе recv, я нашел страница с описанием HttpPacket.

Грамматика на странице ясно показывает, что Path в HttpPacket, а в данном случае тип HttpRequest, может иметь несколько типов HttpUri.

HttpRequest = {http_request, HttpMethod, HttpUri, HttpVersion}
HttpUri = '*'
        | {absoluteURI,
           http | https,
           Host :: HttpString,
           Port :: inet:port_number() | undefined,
           Path :: HttpString}
        | {scheme, Scheme :: HttpString, HttpString}
        | {abs_path, HttpString}
        | HttpString

Я понимаю, что должен поддерживать каждый из этих возможных случаев, однако я не уверен. Мне также интересно, как я могу проверить эти случаи. Я пытался использовать curl и RESTClient в Firefox, и оба они заставляют gen_tcp:recv возвращать abs_path.

Итак, чтобы было ясно, как определяется, содержит ли запрос {abs_path, HttpString}, {scheme, Scheme :: HttpString, HttpString} или {absoluteURI,...}, и нужно ли мне поддерживать их все?

Полный список

start(Port)->
    {ok, ListenSock}=gen_tcp:listen(Port, [list,{active, false},{packet,http}]),
    loop(ListenSock).


loop(ListenSock) -> 
    {ok, Sock}=gen_tcp:accept(ListenSock),
    spawn(?MODULE, handle_request, [Sock]),
    loop(ListenSock).

%% Takes a TCP socket and receives 
%% http://erlang.org/doc/man/erlang.html#decode_packet-3
handle_request(Sock) ->
    {ok, {http_request, Method, Path, _Version}} = gen_tcp:recv(Sock, 0),

    case (Method) of
        'GET' ->
            handle_get(Sock, Path);
        _ -> 
            send_unsupported_error(Sock)
    end.

handle_get(Sock, ReqPath) ->
    {abs_path, RelPath} = ReqPath,
    Parameters = string:substr(RelPath, string:str(RelPath, "?") + 1),
    %% Debugging
    ParsedParms = httpd:parse_query(Parameters),
    io:fwrite("Full Path: ~p~nParameters: ~p~n", [RelPath, ParsedParms]),
    %% End Debugging
    send_accept(Sock).