From ebfa7a13cd167409442120036a159a745acc177b Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 25 Dec 2006 17:29:11 +0100
Subject: [PATCH] Invalidate cache on deletion.

---
 perl/Sesse/pr0n/Rotate.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 923e5df..0733cec 100644
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -43,6 +43,8 @@ sub handler {
 				{
 
 					eval {
+						$dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=( SELECT event FROM images WHERE id=? )',
+							undef, $id);
 						$dbh->do('INSERT INTO deleted_images SELECT * FROM images WHERE id=?',
 								undef, $id);
 						$dbh->do('DELETE FROM images WHERE id=?',
-- 
2.39.2