Delete EXIF information when deleting an image.

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 9cf18d8ef69ed8f790ced723733a812366730838..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);
                                                        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);
                                        };
                                                $dbh->do('DELETE FROM images WHERE id=?',
                                                        undef, $id);
                                        };