Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

39 lines (28 sloc) 0.971 kb
<erl>
out(A) ->
Self = self(),
spawn(fun() ->
%% Create a random number
{_A1, A2, A3} = now(),
random:seed(erlang:phash(node(), 100000),
erlang:phash(A2, A3),
A3),
Sz = random:uniform(100000),
%% Read random junk
S="dd if=/dev/urandom count=1 bs=" ++
integer_to_list(Sz) ++ " 2>/dev/null",
P = open_port({spawn, S}, [binary,stream, eof]),
rec_loop(Self, P)
end),
{streamcontent, "application/octet-stream", <<>>}.
rec_loop(YawsPid, P) ->
receive
{P, {data, BinData}} ->
yaws_api:stream_chunk_deliver(YawsPid, BinData),
rec_loop(YawsPid, P);
{P, eof} ->
port_close(P),
yaws_api:stream_chunk_end(YawsPid),
exit(normal)
end.
</erl>
Jump to Line
Something went wrong with that request. Please try again.