X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FWebDAV.pm;h=ee0280d2eff875c22f369931472eb87e6f3f7f4f;hp=2a974e2a9eed47f47dbbdadcc0ca77701786fd76;hb=35e8aefa9fb061d78f1f47951a0e520e872c6cf7;hpb=2698077b60939a858ecaaf1ccde01591170f0a2c

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 2a974e2..ee0280d 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -456,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 {
@@ -466,9 +466,11 @@ EOF
 					
 				$dbh->do('INSERT INTO images (id,event,uploadedby,takenby,filename) VALUES (?,?,?,?,?);',
 					undef, $newid, $event, $user, $takenby, $filename);
+				$dbh->do('UPDATE images 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: $!";
 
@@ -499,6 +501,7 @@ EOF
 				# Some error occurred, rollback and bomb out
 				$dbh->rollback;
 				dberror($r, "Transaction aborted because $@");
+				unlink($fname);
 			}
 		}
 
@@ -577,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 images SET last_update=CURRENT_TIMESTAMP WHERE event=?',
+			undef, $event)
+			or dberror($r, "Couldn't invalidate cache");
 		$r->status(200);
 		$r->print("OK");