Make sure rotation and selection invalidate the listing cache.

[pr0n] / perl / Sesse / pr0n / Select.pm

diff --git a/perl/Sesse/pr0n/Select.pm b/perl/Sesse/pr0n/Select.pm
index 777e02b37cd3adc236f1ef7d161afc0eb0e2c4bb..21dca6a662611418a828abe2d4d06647e0de432d 100644 (file)
--- a/perl/Sesse/pr0n/Select.pm
+++ b/perl/Sesse/pr0n/Select.pm
@@ -44,6 +44,9 @@ sub handler {
                }
        }
 
+       $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE id=?', undef, $event)
+               or dberror($r, "Cache invalidation failed");
+
        Sesse::pr0n::Common::footer($r);
 
        return Apache2::Const::OK;