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

cont-responder: change location forwarding to use absolute url's to get things working with Safari.

cvs
Chris Double 2005-10-10 22:17:56 +00:00
parent 6ee3b7a4dd
commit 17691a1d4b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/httpd/cont-responder.factor
View File

@ -207,6 +207,12 @@ SYMBOL: callback-cc
"\nContent-Length: 0\nContent-Type: text/plain\n\n" % "\nContent-Length: 0\nContent-Type: text/plain\n\n" %
] "" make call-exit-continuation ; ] "" make call-exit-continuation ;
: forward-to-id ( id -- )
#! When executed inside a 'show' call, this will force a
#! HTTP 302 to occur to instruct the browser to forward to
#! the request URL.
>r "request" get r> id>url append forward-to-url ;
: redirect-to-here ( -- ) : redirect-to-here ( -- )
#! Force a redirect to the client browser so that the browser #! Force a redirect to the client browser so that the browser
#! goes to the current point in the code. This forces an URL #! goes to the current point in the code. This forces an URL
@ -217,8 +223,7 @@ SYMBOL: callback-cc
#! known as the 'post-refresh-get' pattern. #! known as the 'post-refresh-get' pattern.
post-refresh-get? get [ post-refresh-get? get [
[ [
expirable register-continuation expirable register-continuation forward-to-id
id>url forward-to-url
] callcc1 drop ] callcc1 drop
] [ ] [
t post-refresh-get? set t post-refresh-get? set