Fixed water level rendering bug.
[microbotany.git] / delete-confirm.scm
1 ;; Account deletion confirmation
2
3 (lambda (uri)
4   (import (chicken io))
5   (let ((query (uri-query uri)))
6     (if (null? query)
7         (print "No account specified.")
8         (begin
9           (serve-document-header (ext->mime "gmi"))
10           (print "Are you sure you want to delete your garden?  (This action is irreversible!)")
11           (print "\n=> " (uri->string (update-uri uri
12                                                  path: '(/ "microbotany" "delete.scm")))
13                  " Yes, delete my garden.")
14           (print "\n=> " (uri->string (update-uri uri
15                                                  path: '(/ "microbotany" "view.scm")))
16                  " No, take me back to my garden!")))))