X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FWebDAV.pm;fp=perl%2FSesse%2Fpr0n%2FWebDAV.pm;h=09f10e519cd1ebd312be7e6a51d84f0a58b6a008;hp=c38e7b2f159a1888822dc3d3d230b5011bdf7056;hb=fd1e8cc4d43ed344438cb93e203ca146fe243487;hpb=b5d44d73bfa40fe7dc234a95dc3f8f81ec88398f

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index c38e7b2..09f10e5 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -470,6 +470,7 @@ EOF
 					undef, $newid, $r->get_server_name, $event, $user, $takenby, $filename);
 				$dbh->do('UPDATE last_picture_cache SET last_update=CURRENT_TIMESTAMP WHERE vhost=? AND event=?',
 					undef, $r->get_server_name, $event);
+				Sesse::pr0n::Common::purge_cache($r, "/$event/");
 
 				# Now save the file to disk
 				$fname = Sesse::pr0n::Common::get_disk_location($r, $newid);