When using WebDAV, make sure the entire body is in before we start sending

out stuff ourselves. This fixes an extremely long-standing bug with Squid.

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 76211549ccecaa1dd782cd7639892dc68ea943d8..a391c076928f0d0fef5df1dddae83b4a02eb21bf 100644 (file)
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -9,6 +9,10 @@ use MIME::Base64;
 sub handler {
        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";