The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug in directory update.
[microbotany.git]
/
delete-confirm.scm
diff --git
a/delete-confirm.scm
b/delete-confirm.scm
index
04459c7
..
8652d6b
100755
(executable)
--- a/
delete-confirm.scm
+++ b/
delete-confirm.scm
@@
-1,19
+1,16
@@
;; Account deletion confirmation
(lambda (uri)
;; Account deletion confirmation
(lambda (uri)
- (import (chicken file)
- (chicken pathname)
- (chicken string)
- uri-common)
+ (import (chicken io))
(let ((query (uri-query uri)))
(if (null? query)
(print "No account specified.")
(begin
(serve-document-header (ext->mime "gmi"))
(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")))
(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!")))))
(print "\n=> " (uri->string (update-uri uri
path: '(/ "microbotany" "view.scm")))
" No, take me back to my garden!")))))