From: Steinar H. Gunderson <sesse@debian.org>
Date: Wed, 9 Aug 2006 20:55:52 +0000 (+0200)
Subject: When using WebDAV, make sure the entire body is in before we start sending
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=97587692088c0aebc302164e335817f5dfedc49f;hp=08c2d6184b4ad4c1fbe1e15b8e8563dfd3136f02

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 7621154..a391c07 100644
--- 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";