X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FSelect.pm;h=53dc8a019d7695eee5e6fe83b682302800c7f338;hp=897294429f2e475c1ba2826c78d308a5b6be99fc;hb=290a2bdcb92997fd2537603dee5c67350b2bb7b1;hpb=f30038434a933c753bc97eb21229dd9340cbad90

diff --git a/perl/Sesse/pr0n/Select.pm b/perl/Sesse/pr0n/Select.pm
index 8972944..53dc8a0 100644
--- a/perl/Sesse/pr0n/Select.pm
+++ b/perl/Sesse/pr0n/Select.pm
@@ -34,7 +34,7 @@ sub handler {
 
 	$dbh->do('UPDATE last_picture_cache SET last_update=CURRENT_TIMESTAMP WHERE vhost=? AND event=?', undef, $r->get_server_name, $event)
 		or dberror($r, "Cache invalidation failed");
-
+	Sesse::pr0n::Common::purge_cache($r, "/$event/");
 	Sesse::pr0n::Common::footer($r);
 
 	return Apache2::Const::OK;