projects
/
pr0n
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dc19337
)
Last change broke uploads altogether. Fix.
author
Steinar H. Gunderson
<sesse@debian.org>
Wed, 9 Aug 2006 21:30:20 +0000
(23:30 +0200)
committer
Steinar H. Gunderson
<sesse@debian.org>
Wed, 9 Aug 2006 21:30:20 +0000
(23:30 +0200)
perl/Sesse/pr0n/WebDAV.pm
patch
|
blob
|
history
diff --git
a/perl/Sesse/pr0n/WebDAV.pm
b/perl/Sesse/pr0n/WebDAV.pm
index 0f56f64b7d2ca38a24e723fc4d095315223fe161..2a974e2a9eed47f47dbbdadcc0ca77701786fd76 100644
(file)
--- a/
perl/Sesse/pr0n/WebDAV.pm
+++ b/
perl/Sesse/pr0n/WebDAV.pm
@@
-10,10
+10,6
@@
sub handler {
my $r = shift;
my $dbh = Sesse::pr0n::Common::get_dbh();
my $r = shift;
my $dbh = Sesse::pr0n::Common::get_dbh();
- # We ignore the body, but we _must_ consume it fully before
- # we output anything, or Squid will get seriously confused
- $r->discard_request_body;
-
$r->headers_out->{'DAV'} = "1,2";
# We only handle depth=0, depth=1 (cf. the RFC)
$r->headers_out->{'DAV'} = "1,2";
# We only handle depth=0, depth=1 (cf. the RFC)
@@
-42,6
+38,10
@@
sub handler {
# Directory listings et al
if ($r->method eq "PROPFIND") {
# Directory listings et al
if ($r->method eq "PROPFIND") {
+ # We ignore the body, but we _must_ consume it fully before
+ # we output anything, or Squid will get seriously confused
+ $r->discard_request_body;
+
$r->content_type('text/xml; charset="utf-8"');
$r->status(207);
$r->content_type('text/xml; charset="utf-8"');
$r->status(207);