Created
March 20, 2012 22:50
-
-
Save SteveSongMIT/2142154 to your computer and use it in GitHub Desktop.
Simple Cowboy web server + ErlyDTL
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <body> | |
| GET squawk:<br /> | |
| {{ squawk_get }}<br /><br /> | |
| POST squawk:<br /> | |
| {{ squawk_post }}<br /><br /> | |
| <form method="POST"> | |
| post_input: <input type="text" name="post_input" /><br /> | |
| post_input: <input type="text" name="post_input" /><br /> | |
| <input type="submit" value="POST it!" /><br /> | |
| post_input2:<input type="text" name="post_input2" /><br /> | |
| </form> | |
| </body> | |
| </html> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html><body>Your favorite Little Pony is {{ pony_name }}.</body></html> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %%-*- mode: erlang -*- | |
| {sub_dirs, [ | |
| "rel" | |
| ]}. | |
| {erl_opts, [debug_info]}. %, fail_on_warning]}. | |
| {require_otp_vsn, "R15"}. | |
| {deps_dir, ["deps"]}. | |
| {deps, | |
| [ | |
| {cowboy, ".*", {git, "https://github.com/extend/cowboy.git", {branch, "master"}}}, | |
| {erlydtl, ".*", {git, "https://github.com/evanmiller/erlydtl.git", "HEAD"}} | |
| ] | |
| }. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| rm -R rel/simple_server | |
| ./rebar compile generate | |
| sudo erl -sname simple_server -pa $PWD/ebin $PWD/deps/*/ebin -boot start_sasl -s simple_server |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -module(simple_server_http). | |
| -behaviour(gen_server). | |
| -define(SERVER, ?MODULE). | |
| -export([start_link/0]). | |
| -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). | |
| -record(state, {}). | |
| %% ------------------------------------------------------------------ | |
| %% API Function Definitions | |
| %% ------------------------------------------------------------------ | |
| start_link() -> | |
| gen_server:start_link({local, ?SERVER}, ?MODULE, [], []). | |
| %% ------------------------------------------------------------------ | |
| %% gen_server Function Definitions | |
| %% ------------------------------------------------------------------ | |
| dispatch_rules() -> | |
| %% {Host, list({Path, Handler, Opts})} | |
| [{'_', [ | |
| {[], simple_server_http_static, [<<"html">>,<<"index.html">>]} | |
| , {[<<"pony">>], simple_server_http_pony, []} | |
| , {'_', simple_server_http_catchall, []} | |
| ]}]. | |
| confval(Key, Default) -> | |
| case application:get_env(Key) of | |
| undefined -> Default; | |
| Val -> Val | |
| end. | |
| init([]) -> | |
| Port = confval(port, 80), | |
| Ip = confval(ip, "127.0.0.1"), | |
| NumAcceptors = confval(num_acceptors, 16), | |
| IpStr = case is_list(Ip) of true -> Ip; false -> inet_parse:ntoa(Ip) end, | |
| error_logger:info_msg("simple_server listening on http://~s:~B/~n", [IpStr,Port]), | |
| %% | |
| %% Name, NbAcceptors, Transport, TransOpts, Protocol, ProtoOpts | |
| cowboy:start_listener(http, NumAcceptors, | |
| cowboy_tcp_transport, [{port, Port}], | |
| cowboy_http_protocol, [{dispatch, dispatch_rules()}] | |
| ), | |
| {ok, #state{}}. | |
| handle_call(_Request, _From, State) -> | |
| {noreply, ok, State}. | |
| handle_cast(_Msg, State) -> | |
| {noreply, State}. | |
| handle_info(_Info, State) -> | |
| {noreply, State}. | |
| terminate(_Reason, _State) -> | |
| ok. | |
| code_change(_OldVsn, State, _Extra) -> | |
| {ok, State}. | |
| %% ------------------------------------------------------------------ | |
| %% Internal Function Definitions | |
| %% ------------------------------------------------------------------ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %% | |
| %% show details on a specific process | |
| %% | |
| -module(simple_server_http_captainflint). | |
| -behaviour(cowboy_http_handler). | |
| -export([init/3, handle/2, terminate/2]). | |
| init({tcp, http}, Req, _Opts) -> | |
| {ok, Req, undefined_state}. | |
| handle(Req, State) -> | |
| {GetVal, _} = cowboy_http_req:qs_val(<<"get_input">>, Req), | |
| PostValArr = get_post_value(<<"post_input">>, Req), | |
| PostVal = case PostValArr of | |
| undefined -> undefined; | |
| _ -> string:join([binary_to_list(X) || X <- PostValArr], ",") | |
| end, | |
| {ok, Body} = captainflint_dtl:render([{squawk_get, GetVal}, {squawk_post, PostVal}]), | |
| Headers = [{<<"Content-Type">>, <<"text/html">>}], | |
| {ok, Req2} = cowboy_http_req:reply(200, Headers, Body, Req), | |
| {ok, Req2, State}. | |
| get_post_values(Req) -> | |
| {Method, _} = cowboy_http_req:method(Req), | |
| get_post_values(Method, Req). | |
| get_post_values('POST', Req) -> | |
| {Vals, _} = cowboy_http_req:body_qs(Req), | |
| Vals; | |
| get_post_values(_, _) -> | |
| undefined. | |
| get_post_value(Name, Req) -> | |
| PostVals = get_post_values(Req), | |
| extract_post_value(Name, PostVals). | |
| extract_post_value(_, undefined) -> | |
| undefined; | |
| extract_post_value(Name, PostVals) -> | |
| Matches = [X || X <- PostVals, Name =:= element(1,X)], | |
| process_post_value(Matches). | |
| process_post_value([]) -> | |
| undefined; | |
| process_post_value(Vals) -> | |
| {_, Result} = lists:unzip(Vals), | |
| Result. | |
| terminate(_Req, _State) -> | |
| ok. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %% | |
| %% show details on a specific process | |
| %% | |
| -module(simple_server_http_pony). | |
| -behaviour(cowboy_http_handler). | |
| -export([init/3, handle/2, terminate/2]). | |
| init({tcp, http}, Req, _Opts) -> | |
| {ok, Req, undefined_state}. | |
| handle(Req, State) -> | |
| {ok, Body} = mylittlepony_dtl:render([{pony_name, "Dazzleglow"}]), | |
| Headers = [{<<"Content-Type">>, <<"text/html">>}], | |
| {ok, Req2} = cowboy_http_req:reply(200, Headers, Body, Req), | |
| {ok, Req2, State}. | |
| terminate(_Req, _State) -> | |
| ok. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
@Paislee {ok, Body} = captainflint_dtl:render([{squawk_get, GetVal}, {squawk_post, PostVal}]),