Skip to content
Newer
Older
100644 38 lines (27 sloc) 931 Bytes
a3b564d @klacke added the client IP address to the #arg record
authored Sep 20, 2006
1
2 <erl>
3
4
5 out(A) ->
6
7 Peer = A#arg.client_ip_port,
8 Req = A#arg.req,
9 H = yaws_api:reformat_header(A#arg.headers),
10 {ehtml,
11 [{h5,[], "The headers passed to us were:"},
12 {hr,[],[]},
13 {ol, [],lists:map(fun(S) -> {li,[], {p,[],S}} end,H)},
14
15 {h5, [], "The request"},
16 {ul,[],
17 [{li,[], f("method: ~s", [Req#http_request.method])},
0be3c7e @klacke untabified all of yaws
authored Feb 14, 2008
18 {li,[], f("path: ~p", [Req#http_request.path])},
19 {li,[], f("version: ~p", [Req#http_request.version])}]},
a3b564d @klacke added the client IP address to the #arg record
authored Sep 20, 2006
20
21 {hr,[],[]},
22 {h5, [], "Other items"},
23 {ul,[],
24 [{li, [], f("Peer: ~p", [Peer])},
0be3c7e @klacke untabified all of yaws
authored Feb 14, 2008
25 {li,[], f("docroot: ~s", [A#arg.docroot])},
26 {li,[], f("fullpath: ~s", [A#arg.fullpath])}]},
a3b564d @klacke added the client IP address to the #arg record
authored Sep 20, 2006
27 {hr,[],[]},
28 {h5, [], "Parsed query data"},
29 {pre,[], f("~p", [yaws_api:parse_query(A)])},
30 {hr,[],[]},
31 {h5,[], "Parsed POST data "},
32 {pre,[], f("~p", [yaws_api:parse_post(A)])}]}.
33
34 </erl>
35
7811247 @vinoski whitespace cleanup
vinoski authored Oct 31, 2011
36
37
Something went wrong with that request. Please try again.