diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 11:20:27 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 12:11:06 +0200 |
commit | 5483072b0fde84eb59b77a4e44135269a51889f6 (patch) | |
tree | 3a86b23414b97f2a7478d02e1cd10551c3ef9d74 /module/calp/server/webdav.scm | |
parent | UNFINISHED webdav server. (diff) | |
download | calp-5483072b0fde84eb59b77a4e44135269a51889f6.tar.gz calp-5483072b0fde84eb59b77a4e44135269a51889f6.tar.xz |
Fix copy for file resources.
Diffstat (limited to 'module/calp/server/webdav.scm')
-rw-r--r-- | module/calp/server/webdav.scm | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/module/calp/server/webdav.scm b/module/calp/server/webdav.scm index 97d5c56d..8d96b228 100644 --- a/module/calp/server/webdav.scm +++ b/module/calp/server/webdav.scm @@ -414,21 +414,19 @@ headers: '((content-type . (text/plain)))) "One or more parent components of destination are missing"))))) - (let ((copy (copy-resource source-resource - (case depth - ((0) #f) - ((infinity) #t) - (else (throw 'invalid-request))) - dest-name))) - (case (add-child! destination-parent-resource - copy - overwrite?) - ((created) - (values (build-response code: 201) "")) - ((replaced) - (values (build-response code: 204) "")) - ((collision) - (values (build-response code: 412) "")))))))))) + (case (copy-to-location! source-resource destination-parent-resource + new-name: dest-name + include-children?: (case depth + ((0) #f) + ((infinity) #t) + (else (throw 'invalid-requeqst))) + overwrite?: overwrite?) + ((created) + (values (build-response code: 201) "")) + ((replaced) + (values (build-response code: 204) "")) + ((collision) + (values (build-response code: 412) ""))))))))) (define (run-delete href request) |