0

次のコードは、webmachine リソースの完全なソースです。予想される動作は、ストリーミング応答が 200 であり、指定された長さの文字列であり、全体が文字 'a' で構成されている必要があります。

この文字列は確かに応答の本文として返されますが、ステータス コードは 500 です。

-module(dummy_binary_resource).
-export([init/1, to_html/2]).

-include_lib("webmachine/include/webmachine.hrl").

init(Config)->
    {ok, Config}.

send_streamed_body(Remaining) ->
    PacketSize=1024,
    case Remaining of
        Partial when Partial =< PacketSize ->
            {string:chars($a,Partial),done};
        Full ->
            {string:chars($a,Full), fun() -> send_streamed_body(Remaining - PacketSize) end}
    end.

to_html(ReqData,State)->
    PathInfo = wrq:path_info(ReqData),
    {ok,SizeString} = dict:find(size,PathInfo),
    {Size,[]} = string:to_integer(SizeString),
    {true,wrq:set_resp_body({stream,send_streamed_body(Size)},ReqData),State}.
4

1 に答える 1