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

imagebin redirects correctly now

db4
Doug Coleman 2009-01-20 16:34:46 -06:00
parent c7df780c33
commit ea133f0430
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/webapps/imagebin/imagebin.factor Normal file → Executable file
View File

@ -23,11 +23,12 @@ SYMBOL: my-post-data
<page-action> <page-action>
{ imagebin "upload-image" } >>template { imagebin "upload-image" } >>template
[ [
request get post-data>> my-post-data set-global
! request get post-data>> my-post-data set-global
! image new ! image new
! "file" value ! "file" value
! insert-tuple ! insert-tuple
! "uploaded-image" <redirect> "uploaded-image" <redirect>
] >>submit ; ] >>submit ;
: <imagebin> ( -- responder ) : <imagebin> ( -- responder )