Last change broke uploads altogether. Fix.

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);