Я пишу код на 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).