http server

http.erl

erl -eval 'Dir = filename:absname(""),
           ok = inets:start(),
           {ok, Pid} = inets:start(httpd, [{port, 3333},
                                           {server_name, "test_server"},
                                           {server_root, Dir},
                                           {document_root, Dir}]),
            Info = httpd:info(Pid),
            io:format("~p", [Info]).'