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

Allow post data to be send on PUT as well as POST actions. Allow any message between 200 and 299 to mean success.

db4
Philipp Winkler 2008-12-10 21:30:33 -08:00
parent 717bceb6ff
commit 0cc4dc4e0a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/http/client/client.factor
View File

@ -7,6 +7,7 @@ math.order hashtables byte-arrays destructors
io.encodings io.encodings
io.encodings.string io.encodings.string
io.encodings.ascii io.encodings.ascii
io.encodings.utf8
io.encodings.8-bit io.encodings.8-bit
io.encodings.binary io.encodings.binary
io.streams.duplex io.streams.duplex
@ -40,11 +41,11 @@ GENERIC: >post-data ( object -- post-data )
M: post-data >post-data ; M: post-data >post-data ;
M: string >post-data "application/octet-stream" <post-data> ; M: string >post-data utf8 encode "application/octet-stream" <post-data> ;
M: byte-array >post-data "application/octet-stream" <post-data> ; M: byte-array >post-data "application/octet-stream" <post-data> ;
M: assoc >post-data assoc>query "application/x-www-form-urlencoded" <post-data> ; M: assoc >post-data assoc>query ascii encode "application/x-www-form-urlencoded" <post-data> ;
M: f >post-data ; M: f >post-data ;
@ -52,12 +53,13 @@ M: f >post-data ;
[ >post-data ] change-post-data ; [ >post-data ] change-post-data ;
: write-post-data ( request -- request ) : write-post-data ( request -- request )
dup method>> "POST" = [ dup post-data>> raw>> write ] when ; dup method>> [ "POST" = ] [ "PUT" = ] bi or [ dup post-data>> raw>> write ] when ;
: write-request ( request -- ) : write-request ( request -- )
unparse-post-data unparse-post-data
write-request-line write-request-line
write-request-header write-request-header
binary encode-output
write-post-data write-post-data
flush flush
drop ; drop ;
@ -153,7 +155,7 @@ SYMBOL: redirects
PRIVATE> PRIVATE>
: success? ( code -- ? ) 200 = ; : success? ( code -- ? ) 200 299 between? ;
ERROR: download-failed response ; ERROR: download-failed response ;