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

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 35cc979..151370c 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -9,7 +9,7 @@ use MIME::Base64;
 sub handler {
 	my $r = shift;
 	my $dbh = Sesse::pr0n::Common::get_dbh();
-
+	
 	$r->headers_out->{'DAV'} = "1,2";
 
 	# We only handle depth=0, depth=1 (cf. the RFC)
@@ -38,6 +38,10 @@ sub handler {
 	
 	# 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);
 
@@ -202,7 +206,6 @@ EOF
      </propstat>
   </response>
 EOF
-				$r->log->info("Full list");
 			}
 
 			$r->print("</multistatus>\n");
@@ -453,8 +456,8 @@ EOF
 		{
 			# Enable transactions and error raising temporarily
 			local $dbh->{AutoCommit} = 0;
-			
 			local $dbh->{RaiseError} = 1;
+			my $fname;
 
 			# Try to insert this new file
 			eval {
@@ -463,9 +466,11 @@ EOF
 					
 				$dbh->do('INSERT INTO images (id,event,uploadedby,takenby,filename) VALUES (?,?,?,?,?);',
 					undef, $newid, $event, $user, $takenby, $filename);
+				$dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=?',
+					undef, $event);
 
 				# Now save the file to disk
-				my $fname = Sesse::pr0n::Common::get_disk_location($r, $newid);
+				$fname = Sesse::pr0n::Common::get_disk_location($r, $newid);
 				open NEWFILE, ">$fname"
 					or die "$fname: $!";
 
@@ -484,7 +489,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
@@ -496,6 +501,7 @@ EOF
 				# Some error occurred, rollback and bomb out
 				$dbh->rollback;
 				dberror($r, "Transaction aborted because $@");
+				unlink($fname);
 			}
 		}
 
@@ -574,6 +580,9 @@ EOF
 		$dbh->do('DELETE FROM images WHERE event=? AND filename=?;',
 			undef, $event, $filename)
 			or dberror($r, "Couldn't remove file");
+		$dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=?',
+			undef, $event)
+			or dberror($r, "Couldn't invalidate cache");
 		$r->status(200);
 		$r->print("OK");