Delete EXIF information when deleting an image.

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

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 59103e70241fdd373b6486909af96adb7887e17b..be023123373e40979cafe96bcca1bca8c01c1967 100644 (file)
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -50,6 +50,8 @@ sub handler {
                                                        undef, $id);
                                                $dbh->do('INSERT INTO deleted_images SELECT * FROM images WHERE id=?',
                                                        undef, $id);
+                                               $dbh->do('DELETE FROM exif_info WHERE image=?',
+                                                       undef, $id);
                                                $dbh->do('DELETE FROM images WHERE id=?',
                                                        undef, $id);
                                        };
@@ -63,6 +65,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);