7 uri-common simple-sha1)
8 (for-each eval (with-input-from-file "garden.scm" read-list))
9 (let ((query (uri-query uri)))
11 (serve-query "User name")
12 (let* ((username (symbol->string (caar query)))
13 (hash (string->sha1sum (conc username
14 (number->string (pseudo-random-integer 10000))))))
15 (with-output-to-file (conc "accounts/" hash)
17 (write (make-garden username))))
18 (redirect-permanent (update-uri uri path: '(/ "microbotany" "view.scm")
19 query: `((,hash . #t))))))))