File: rewritetest.erl

package info (click to toggle)
yaws 2.0.8%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 8,084 kB
  • sloc: erlang: 42,190; sh: 2,543; javascript: 1,459; ansic: 890; makefile: 878; lisp: 79; python: 34; xml: 12; php: 1
file content (17 lines) | stat: -rw-r--r-- 400 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
-module(rewritetest).
-export([arg_rewrite/1]).

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


arg_rewrite(Arg) ->
    Url = yaws_api:request_url(Arg),
    case Url#url.path of
        "/rewrite" ++ Rest ->
            Req0 = Arg#arg.req,
            Req1 = Req0#http_request{path={abs_path,Rest}},
            Arg#arg{req=Req1};
        _ ->
            Arg
    end.