From 97d5bb1e417a37cf3e0cec8bf75bed3a971f913b Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Sat, 17 Apr 2010 12:41:25 +0200
Subject: [PATCH] Make /select purge cache.

---
 perl/Sesse/pr0n/Select.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.39.2