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

Simplifying last section and fixing Dannys bug

Browse Source 
svn: r11280
This commit is contained in:
Jay McCarthy 2008-08-15 19:32:10 +00:00
parent 0936793b19
commit 0166bcbfe0
1 changed files with 9 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/web-server/scribblings/tutorial/tutorial.scrbl
View File

@ -953,10 +953,10 @@ Our next task is to employ an SQL database for the blog model. We'll be using SQ
We now have the following bindings: We now have the following bindings:
@defthing[sqlite:db? (any/c . -> . boolean?)] @defthing[sqlite:db? (any/c . -> . boolean?)]
@defthing[sqlite:open (path? . -> . db?)] @defthing[sqlite:open (path? . -> . sqlite:db?)]
@defthing[sqlite:exec/ignore (db? string? . -> . void)] @defthing[sqlite:exec/ignore (sqlite:db? string? . -> . void)]
@defthing[sqlite:select (db? string? . -> . (listof vector?))] @defthing[sqlite:select (sqlite:db? string? . -> . (listof vector?))]
@defthing[sqlite:insert (db? string? . -> . integer?)] @defthing[sqlite:insert (sqlite:db? string? . -> . integer?)]
The first thing we should do is decide on the relational structure of our model. We will use the following tables: The first thing we should do is decide on the relational structure of our model. We will use the following tables:
@ -976,7 +976,7 @@ By adding a new comments table, we are more in accord with the relational style.
A @scheme[blog] structure will simply be a container for the database handle: A @scheme[blog] structure will simply be a container for the database handle:
@defstruct[blog ([db db?])] @defstruct[blog ([db sqlite:db?])]
@bold{Exercise.} Write the @scheme[blog] structure definition. (It does not need to be mutable or serializable.) @bold{Exercise.} Write the @scheme[blog] structure definition. (It does not need to be mutable or serializable.)
@ -1135,24 +1135,12 @@ scheme
Second, add the following at the bottom of your application: Second, add the following at the bottom of your application:
@schemeblock[ @schemeblock[
(require web-server/servlet-env (require web-server/servlet-env)
web-server/managers/lru)
(serve/servlet start (serve/servlet start
#:launch-browser? #f #:launch-browser? #f
#:quit? #f #:quit? #f
#:listen-ip #f #:listen-ip #f
#:port 8000 #:port 8000
#:manager
(make-threshold-LRU-manager
(lambda (request)
`(html
(head (title "Page Has Expired."))
(body (p "Sorry, this page has expired. "
"Please go back."))))
(* 64 1024 1024))
#:extra-files-path #:extra-files-path
(build-path _path "htdocs") (build-path _path "htdocs")
#:servlet-path #:servlet-path
@ -1163,9 +1151,6 @@ You can change the value of the @scheme[#:port] parameter to use a different por
@scheme[#:listen-ip] is set to @scheme[#f] so that the server will listen on @emph{all} available IPs. @scheme[#:listen-ip] is set to @scheme[#f] so that the server will listen on @emph{all} available IPs.
The number given to the @scheme[make-threshold-LRU-manager] specifies a memory limit for the Web server's
session data. (In the code above, it is 64 MBs.)
You should change @scheme[_path] to be the path to the parent of your @scheme[htdocs] directory. You should change @scheme[_path] to be the path to the parent of your @scheme[htdocs] directory.
You should change @scheme["APPLICATION.ss"] to be the name of your application. You should change @scheme["APPLICATION.ss"] to be the name of your application.
@ -1178,8 +1163,8 @@ Third, to run your server, you can either press @onscreen{Run} in DrScheme, or t
@centerline{------------} @centerline{------------}
There are more advanced ways of starting the Web Server, but you'll have to @scheme[serve/servlet] takes other options and there are more advanced ways of starting the Web Server,
refer to the PLT Web Server Reference Manual for details. but you'll have to refer to the PLT Web Server Reference Manual for details.
@section{Moving Forward} @section{Moving Forward}