Remove http.client => logging dependency
parent
1ef5dbe3fb
commit
15eaf33ee8
|
@ -3,7 +3,7 @@
|
|||
USING: accessors kernel combinators math namespaces make
|
||||
assocs sequences splitting sorting sets debugger
|
||||
strings vectors hashtables quotations arrays byte-arrays
|
||||
math.parser calendar calendar.format present urls logging
|
||||
math.parser calendar calendar.format present urls
|
||||
|
||||
io io.encodings io.encodings.iana io.encodings.binary
|
||||
io.encodings.8-bit
|
||||
|
@ -96,8 +96,6 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
|
|||
drop
|
||||
] { } make ;
|
||||
|
||||
\ parse-cookie DEBUG add-input-logging
|
||||
|
||||
: check-cookie-string ( string -- string' )
|
||||
dup "=;'\"\r\n" intersect empty?
|
||||
[ "Bad cookie name or value" throw ] unless ;
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: combinators.short-circuit math math.order math.parser
|
||||
kernel sequences sequences.deep peg peg.parsers assocs arrays
|
||||
hashtables strings unicode.case namespaces make ascii logging ;
|
||||
hashtables strings unicode.case namespaces make ascii ;
|
||||
IN: http.parsers
|
||||
|
||||
: except ( quot -- parser )
|
||||
|
@ -61,8 +61,6 @@ PEG: parse-request-line ( string -- triple )
|
|||
'space' ,
|
||||
] seq* just ;
|
||||
|
||||
\ parse-request-line DEBUG add-input-logging
|
||||
|
||||
: 'text' ( -- parser )
|
||||
[ ctl? ] except ;
|
||||
|
||||
|
|
|
@ -24,6 +24,8 @@ html.elements
|
|||
html.streams ;
|
||||
IN: http.server
|
||||
|
||||
\ parse-cookie DEBUG add-input-logging
|
||||
|
||||
: check-absolute ( url -- url )
|
||||
dup path>> "/" head? [ "Bad request: URL" throw ] unless ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue