X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FWebDAV.pm;h=0f56f64b7d2ca38a24e723fc4d095315223fe161;hp=35cc9790bc0c1a7ec629a1499ee450fd16d5f91d;hb=dc1933728c23e859d26c71dc55dbe5b62bab6c8a;hpb=2d6536cab108c937e2af49f7dcf15f2230f44d1a

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 35cc979..0f56f64 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";
 
@@ -202,7 +206,6 @@ EOF
      </propstat>
   </response>
 EOF
-				$r->log->info("Full list");
 			}
 
 			$r->print("</multistatus>\n");
@@ -484,7 +487,7 @@ EOF
 				# Make cache while we're at it.
 				# Don't do it for the resource forks Mac OS X loves to upload :-(
 				if ($filename !~ /^\._/) {
-					Sesse::pr0n::Common::ensure_cached($r, $filename, $newid, -1, -1, 1, 80, 64, 320, 256);
+					Sesse::pr0n::Common::ensure_cached($r, $filename, $newid, -1, -1, 1, 80, 64, 320, 256, -1, -1);
 				}
 				
 				# OK, we got this far, commit