Changeset 21138 in project for demonstrations
- Timestamp:
- 10/30/10 19:47:15 (10 years ago)
- Location:
- demonstrations/awful/fortune
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
demonstrations/awful/fortune/create-database.scm
r20676 r21138 127 127 128 128 (let ((db (open-database "fortunes.db"))) 129 (exec (sql db "create table fortunes( id integer primary key autoincrement,sentence text, author text)"))129 (exec (sql db "create table fortunes(sentence text, author text)")) 130 130 (for-each (lambda (fortune) 131 131 (let* ((sentence (car fortune)) -
demonstrations/awful/fortune/fortune-server.scm
r20676 r21138 6 6 (db-credentials "fortunes.db") 7 7 8 (define random-fortune 9 (let ((num-fortunes #f)) 10 (lambda () 11 (unless num-fortunes 12 (set! num-fortunes (caar ($db "select count(id) from fortunes")))) 13 (car ($db (conc "select sentence, author from fortunes where id=" 14 (random num-fortunes))))))) 8 (define (random-fortune) 9 (car ($db "select sentence, author from fortunes order by random() limit 1"))) 15 10 16 11 (define-page (main-page-path)
Note: See TracChangeset
for help on using the changeset viewer.