[Bins] gallery cleanup script

[Jochen Schaeuble]

Hi,
I've written a simple & stupid perl script that removes left over files
in the gallery destination directory (i.e. if the original file was
renamed or removed). The current implementation doesn't actually remove
files. It only prints a message that a file/directory should be deleted.

I would be happy if someone on the list could test this script and give
me some feedback if it works.

Greets,
  jochen
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cleanupgallery.pl
Type: application/x-perl
Size: 1575 bytes
Desc: not available
Url : http://www.email-lists.org/pipermail/bins/attachments/20030301/d56aa057/cleanupgallery.bin