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

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

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