Changeset 27237 in project


Ignore:
Timestamp:
08/12/12 15:26:17 (9 years ago)
Author:
sjamaan
Message:

Qwiki: make request reading re-use read-urlencoded-request-data from intarweb

Location:
release/4/qwiki/trunk
Files:
2 edited

Legend:

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

    r26437 r27237  
    22
    33((synopsis "qwiki - the quick wiki")
    4  (depends intarweb (uri-common "1.0") (spiffy "4.8") (doctype "1.2")
     4 (depends (intarweb "0.8") (uri-common "1.0") (spiffy "4.8") (doctype "1.2")
    55          (sxml-transforms "1.4") multidoc (svn-client "0.17") estraier-client
    66          sxpath (message-digest "3.0.0") (sha1 "3.0.0") (svnwiki-sxml 0.2.1)
  • release/4/qwiki/trunk/qwiki.scm

    r26437 r27237  
    295295         (auth-required (requires-authentication? source-file))
    296296         (postdata (if (eq? 'POST (request-method req))
    297                        (form-urldecode (read-request-data req))
     297                       (read-urlencoded-request-data)
    298298                       '()))
    299299         (new-file (not (file-exists? source-file)))
     
    619619  (make-parameter (list)))
    620620
    621 (define (read-request-data req)
    622   (let ((len (header-value 'content-length (request-headers req))))
    623     ;; If the header is not available, this will read until EOF
    624     (read-string len (request-port req))))
    625 
    626621;; From Spiffy. Maybe export it there?
    627622(define (impossible-filename? name)
     
    659654               ((cdr handler) (current-request))))
    660655         ((any impossible-filename? (cdr (uri-path uri))) ; should be absolute
    661           (read-request-data (current-request))
     656          (read-urlencoded-request-data) ; Discard possible sent data
    662657          (send-status 404 "Not found"))
    663658         (else (let* ((action (->symbol (alist-ref
Note: See TracChangeset for help on using the changeset viewer.