From: Steinar H. Gunderson Date: Mon, 26 Mar 2007 19:03:23 +0000 (+0200) Subject: Delete EXIF information when deleting an image. X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=56e33eea02b7f09d214b9a480d9c0533bdbd2cea Delete EXIF information when deleting an image. --- diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm index 9cf18d8..be02312 100644 --- 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); };