Make sure rotation and selection invalidate the listing cache.

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

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 59103e70241fdd373b6486909af96adb7887e17b..9cf18d8ef69ed8f790ced723733a812366730838 100644 (file)
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -63,6 +63,10 @@ sub handler {
                        }
                }
        }
+       
+       my $event = $apr->param('event');
+       $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE id=?', undef, $event)
+               or dberror($r, "Cache invalidation failed");
 
        Sesse::pr0n::Common::footer($r);