Changeset 15437 in project for release/4/qwiki/trunk/qwiki.scm


Ignore:
Timestamp:
08/13/09 17:58:14 (11 years ago)
Author:
sjamaan
Message:

Implement user authentication

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki.scm

    r15432 r15437  
    136136                          (with-input-from-file source-file read-string))
    137137                     ""))
     138         (comment (alist-ref 'comment postdata eq? ""))
     139         (username (alist-ref 'username postdata eq? ""))
     140         (password (alist-ref 'password postdata eq? ""))
     141         (auth (alist-ref 'auth postdata eq?))
    138142         ;; TODO: Clean this up, maybe put it in a transformation rule so
    139143         ;; it can be extended by plugins.  The names of the buttons are
     
    146150                                ,(wiki-parse source))
    147151                          "")
     152                     (p "username: " ,username " password: " ,password " auth: " ,auth)
    148153                     (form (@ (method "post"))
    149                            (textarea (@ (name "source"))
    150                                      ,source)
     154                           (label "Article contents:"
     155                                  (textarea (@ (name "source"))
     156                                            ,source))
     157                           (label "Description of your changes:"
     158                                  (textarea (@ (name "comment"))
     159                                            ,comment))
     160                           (label "I would like to authenticate"
     161                                  (input (@ (type "checkbox")
     162                                            (name "auth")
     163                                            ,@(if auth
     164                                                  '((checked "checked"))
     165                                                  '()))))
     166                           (label "Username:"
     167                                  (input (@ (type "text")
     168                                            (name "username")
     169                                            (value ,username))))
     170                           (label "Password:"
     171                                  (input (@ (type "password")
     172                                            (name "password")
     173                                            (value ,password))))
    151174                           (input (@ (type "submit")
    152175                                     (name "save")
     
    158181        (begin
    159182          (with-output-to-path source-file (lambda () (display source)))
    160           (store-changes! source-file "qwiki commit")
     183          (store-changes! source-file comment
     184                          (and auth username) (and auth password))
    161185          (redirect-to-qwiki-page req action: "show"))
    162186        (send-content content))))
Note: See TracChangeset for help on using the changeset viewer.