Make /select purge cache.
authorSteinar H. Gunderson <sesse@debian.org>
Sat, 17 Apr 2010 10:41:25 +0000 (12:41 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sat, 17 Apr 2010 10:41:25 +0000 (12:41 +0200)
perl/Sesse/pr0n/Select.pm

index 897294429f2e475c1ba2826c78d308a5b6be99fc..53dc8a019d7695eee5e6fe83b682302800c7f338 100644 (file)
@@ -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;