gistfile1.erl

loop(ListenSocket, SENDURL) ->
    inet:setopts(ListenSocket, [{active, once}]),
    {_, _, Host, Port, _Path, _Query} = http_uri2:parse(SENDURL),
    receive
        {udp, ListenSocket, _Host, _Port, Bin} ->
        gen_udp:send(ListenSocket, Host, Port, decode(Bin)),  
        loop(ListenSocket, SENDURL)
    end.

decode(Bin) -> decode(Bin, []).

decode(<<>>, Acc) -> lists:reverse(Acc);

%decode(<<16#47, Packet:187/binary, Rest/binary>>, Acc) -> 
%        decode(Rest, [Acc|Packet]);

decode(<<Char, Rest/binary>>, Acc) ->  
        decode(Rest, [Char|Acc]).