Trace statement finder/remover

Having my actionscript code split across different files for each class is great but it does make it harder to find where rogue trace() statements are coming from.

I made this handy Perl tool to scan through all the .as files in a directory looking for these trace statements. It has three modes:

Find - print a report giving the file and line number of all trace statements
Comment - comment out all of the trace statements in the directory
Remove - remove trace statement lines from the file

It will ignore any previously commented out trace statements. You can download the code from here.

Photo Sharing Site

As a means of gathering all of our wedding guests' photos in one place for easy display and distribution, I made this photos sharing site. Guests are given an upload password which they can use with the Flash based uploader which allows multiple files to be transfered with a single transaction. The upload is handled by a Perl script which resizes the images for display and stores them based on the username given during the upload. In order to produce the gallery, Perl scans the storage area for images and produces a web page with the lists of users and images stored in Javascript arrays. The gallery navigation is handled by Javascript. I have started integrating an SQLite server to the application to enhance the storage and retrieval of photos via the PerlDBI.