Erlang/OTP Forums

-module(rewriter).

-export([arg_rewrite/1]).

-include_lib("yaws/include/yaws_api.hrl").

arg_rewrite(ARG) ->
        Req = ARG#arg.req,
        case Req#http_request.path of
        {abs_path, RawPath} ->
        case (catch yaws_api:url_decode_q_split(RawPath)) of
        {'EXIT', _} -> %%broken request - ignore let yaws_server handle it.
            ARG2 = ARG;
        {DecPath, QueryPart} ->
             Parts = string:tokens(DecPath,"/"),   
            case lists:member("viewvc",Parts) of
            true ->

                %%
                %Do something with DecPath & QueryPart
                %
                case QueryPart of
                [] ->
                    %% Rewritten = SomeNewpath;
                _Other ->
                    %% Rewritten = SomeNewpath ++ "?" ++ QueryPart
                end,
                %
                %%   

                  Req2 = Req#http_request{path = {abs_path, Rewritten}},

                ARG2 = ARG#arg{req = Req2};           
            false ->         
                ARG2 = ARG
            end   
        end;
        _Else ->
        ARG2 = ARG
        end,   

        ARG2.