Advanced Search

Return to Snippet

Revision: 28114
at July 1, 2010 02:47 by tprimke
Initial Code 
;; 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 ?&nbsp;}
                         {<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))))
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Rename request handler

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Lisp