/ Published in: Lisp
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
;; request to rename a page (if (CGI:get "rename") (if (CGI:get "continue") (letn ( page-old (CGI:get "rename") page-old-filename (replace " " (dup page-old 1) "_") page-new (CGI:get "new") page-new-filename (replace " " (dup page-new 1) "_") ) (if (= (length (trim page-new)) 0) (let ( body (append {<p>You haven't entered any new name for the page } page-old {.</p>} {<p>Try again on <a href="index.cgi?rename=} page-old {">rename page</a>, go to } {<a href="index.cgi?page=} page-old-filename {">} page-old {</a>, or } {get back to <a href="index.cgi">Home</a>.</p>} ) ) (set 'body body) (set 'page-name "Rename") (CGI:put-page SETUP:template) (exit)) (begin (change-refs page-old page-new) (rename-file (append "pages/" page-old-filename) (append "pages/" page-new-filename)) (display-page "Home") (exit)))) (letn ( page-name (CGI:get "rename") bdy (append {<p>You can rename the page } page-name {.</p>} {<form action="index.cgi" method="post">} {<input type="hidden" name="rename" value="} page-name {" />} {<input type="hidden" name="continue" value="" />} {<p>New page name: <input type="text" name="new" /></p>} {<p>Do you really want to rename the page ? } {<input type="submit" name="submit" class="button" value="Yes" /></p>} {</form>} {<p>You can cancel this action and get back to <a href="index.cgi">Home</a>.</p>}) ) (set 'body bdy) (set 'page-name "Rename") (CGI:put-page SETUP:template) (exit))))