;; Account deletion confirmation
(lambda (uri)
- (import (chicken file)
- (chicken pathname)
- (chicken string)
- uri-common)
(let ((query (uri-query uri)))
(if (null? query)
(print "No account specified.")
(begin
(serve-document-header (ext->mime "gmi"))
- (print "Are you sure you want to delete your account? (This action is irreversible!)")
+ (print "Are you sure you want to delete your garden? (This action is irreversible!)")
(print "\n=> " (uri->string (update-uri uri
path: '(/ "microbotany" "delete.scm")))
- " Yes, delete my account.")
+ " Yes, delete my garden.")
(print "\n=> " (uri->string (update-uri uri
path: '(/ "microbotany" "view.scm")))
" No, take me back to my garden!")))))