steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add x-forwarded-for logging

db4
Slava Pestov 2008-06-14 04:01:25 -05:00
parent 149e4345c6
commit 501588ab76
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/http/server/server.factor
View File

@ -78,9 +78,15 @@ main-responder global [ <404> <trivial-responder> or ] change-at
LOG: httpd-hit NOTICE LOG: httpd-hit NOTICE
LOG: httpd-header NOTICE
: log-header ( headers name -- )
tuck header 2array httpd-header ;
: log-request ( request -- ) : log-request ( request -- )
[ method>> ] [ url>> [ host>> ] [ path>> ] bi ] bi [ [ method>> ] [ url>> [ host>> ] [ path>> ] bi ] bi 3array httpd-hit ]
3array httpd-hit ; [ { "user-agent" "x-forwarded-for" } [ log-header ] with each ]
bi ;
: split-path ( string -- path ) : split-path ( string -- path )
"/" split harvest ; "/" split harvest ;