Changeset 11525 in project


Ignore:
Timestamp:
08/01/08 09:17:50 (12 years ago)
Author:
Ivan Raikov
Message:

Changed the report API to allow the direct inclusion of sxml.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/webdav-client/trunk/webdav-client.scm

    r11518 r11525  
    208208
    209209
    210 (define (webdav:report path . rest)
    211   (let-optionals rest ((props (list)) (namespaces (list))  (handler default-handler))
    212     (let* ((attrs `(("Content-type" . "text/xml; charset=UTF-8")))
    213            (content `(D:version-tree (@ (xmlns:D "DAV:") . ,(namespace-list namespaces) )
    214                                      ,(if (null? props) `(D:allprop)
    215                                       `(D:prop . ,(map (lambda (x) `(,(string->symbol (s+ (first x) ":" (second x)))))
    216                                                        props)))))
     210(define (webdav:report path content . rest)
     211  (let-optionals rest ((depth 0) (handler default-handler))
     212    (let* ((attrs `(("Content-type" . "text/xml; charset=UTF-8")
     213                    ("Depth" . ,(->string (if (positive? depth) depth 0)))))
    217214           (req     (make-request 'REPORT path attrs (generate-XML `(begin ,content)))))
    218215      (response-wrapper handler req))))
Note: See TracChangeset for help on using the changeset viewer.