suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removing access to session.ss

Browse Source 
svn: r6313
This commit is contained in:
Jay McCarthy 2007-05-25 18:21:12 +00:00
parent 98515e3062
commit 8718a70b04
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/web-server/prototype-web-server/server.ss
View File

@ -53,7 +53,6 @@
'(mzscheme '(mzscheme
(lib "web-cells.ss" "web-server" "prototype-web-server" "newcont") (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont")
(lib "abort-resume.ss" "web-server" "prototype-web-server" "private") (lib "abort-resume.ss" "web-server" "prototype-web-server" "private")
(lib "session.ss" "web-server" "prototype-web-server" "private")
(lib "request.ss" "web-server" "private")))) (lib "request.ss" "web-server" "private"))))
(define/kw (make #:key (define/kw (make #:key

5
collects/web-server/prototype-web-server/servlets/add01.ss
View File

@ -1,6 +1,5 @@
(module add01 mzscheme (module add01 mzscheme
(require (lib "session.ss" "web-server" "prototype-web-server" "private") (require (lib "request-structs.ss" "web-server")
(lib "request-structs.ss" "web-server")
(lib "url.ss" "net")) (lib "url.ss" "net"))
(provide start) (provide start)
@ -31,7 +30,7 @@
`(html (head (title "Hello")) `(html (head (title "Hello"))
(body (body
(h1 "Hello World!") (h1 "Hello World!")
(form ([action ,(url->string (session-url (current-session)))] (form ([action ,(url->string uri)]
[method "get"] [enctype "application/x-www-form-urlencoded"]) [method "get"] [enctype "application/x-www-form-urlencoded"])
"Enter the first number to add: " "Enter the first number to add: "
(input ([type "text"] [name "first"] [value ""])) (input ([type "text"] [name "first"] [value ""]))