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

Already works a little.

U trunk/projects/pch/src/pch.erl _U trunk/thirdparty/mochiweb/doc/ _U trunk/thirdparty/mochiweb/ebin/

Modified: trunk/projects/pch/src/pch.erl =================================================================== --- trunk/projects/pch/src/pch.erl 2008-07-18 16:11:06 UTC (rev 3508) +++ trunk/projects/pch/src/pch.erl 2008-07-18 16:29:16 UTC (rev 3509) @@ -2,20 +2,23 @@ %%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html

-module(pch). --export([start/0, loop/2, stop/0]). +-export([start/0, loop/1, stop/0]). -define(DEFAULTS, [{name, ?MODULE}, - {port, 9952}]). + {port, 9888}]).

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, + Loop = fun (Req) -> ?MODULE:loop(Req) end, mochiweb_http:start([{loop, Loop} | ?DEFAULTS]).

stop() -> mochiweb_http:stop(?MODULE).

-loop(Req, DocRoot) -> +backend_request(Req) -> + {ok, {{_Version, 200, _ReasonPhrase}, Headers, Body}} = + http:request("http://test.createrainforest.org" ++ Req:get(path)), + Req:respond({200, Headers, Body}). + +loop(Req) -> "/" ++ Path = Req:get(path), case Req:get(method) of M when M =:= 'GET'; M =:= 'HEAD' -> @@ -31,8 +34,10 @@ "dump" -> Req:ok({"text/plain", io_lib:format("~p~n", [Req:dump()])}); +%% _ -> +%% Req:serve_file(Path) _ -> - Req:serve_file(Path, DocRoot) + backend_request(Req) end; _ -> Req:respond({501, [], ""})

Property changes on: trunk/thirdparty/mochiweb/doc ___________________________________________________________________ Name: svn:ignore + *.html

Property changes on: trunk/thirdparty/mochiweb/ebin ___________________________________________________________________ Name: svn:ignore + *.beam *.app