[bknr-cvs] hans changed trunk/projects/pch/

[BKNR Commits]

Revision: 3507
Author: hans
URL: http://bknr.net/trac/changeset/3507

Create new frontend project:  Pontificia Cohors Helvetica

A   trunk/projects/pch/
A   trunk/projects/pch/src/
A   trunk/projects/pch/src/pch.erl

Added: trunk/projects/pch/src/pch.erl
===================================================================
--- trunk/projects/pch/src/pch.erl	                        (rev 0)
+++ trunk/projects/pch/src/pch.erl	2008-07-18 16:08:27 UTC (rev 3507)
@@ -0,0 +1,45 @@
+%%% from
+%%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html
+
+-module(pch).
+-export([start/0, loop/2, stop/0]).
+-define(DEFAULTS, [{name, ?MODULE},
+                   {port, 9952}]).
+
+start() ->
+    DocRoot = filename:dirname(filename:dirname(code:which(?MODULE))),
+    code:add_patha(filename:join([DocRoot, "mochiweb-c4", "ebin"])),
+    Loop = fun (Req) -> ?MODULE:loop(Req, DocRoot) end,
+    mochiweb_http:start([{loop, Loop} | ?DEFAULTS]).
+
+stop() ->
+    mochiweb_http:stop(?MODULE).
+
+loop(Req, DocRoot) ->
+    "/" ++ Path = Req:get(path),
+    case Req:get(method) of
+        M when M =:= 'GET'; M =:= 'HEAD' ->
+            case Path of
+                "timer" ->
+                    Response = Req:ok({"text/plain", chunked}),
+                    timer(Response);
+                "static" ->
+                    Req:ok({"text/plain", "static response"});
+                "nodes" ->
+                    Req:ok({"text/plain",
+                            io_lib:format("~p~n", [nodes()])});
+                "dump" ->
+                    Req:ok({"text/plain",
+                            io_lib:format("~p~n", [Req:dump()])});
+                _ ->
+                    Req:serve_file(Path, DocRoot)
+            end;
+        _ ->
+            Req:respond({501, [], ""})
+    end.
+
+timer(Req) ->
+    Req:write_chunk(io_lib:format("The time is: ~p~n",
+                                  [calendar:local_time()])),
+    timer:sleep(1000),
+    timer(Req).