Basically, CGI.pm has everything you need for the "uploader" part. You don't show any code nor do you tell us where it failed for you, so we can't be of much help there. Adding the file (contents) to the database is then easily done using DBI.

You can use Image::Magick or the external convert utility (which often is easier available) or possibly Imager for resizing your image. It isn't that hard to write such a program.

This is not a script writing site. We will gladly help you with your problems, but we don't write complete programs unless they are particularly interesting.

File uploading is not exactly a safe thing to do. That doesn't mean one shouldn't do it -- this just means that one shouldn't expect to find a script that handles uploads for their needs in a secure manner. We often use the phrase "don't reinvent the wheel" around here a lot -- but this is one wheel that has too many specific security concerns to be only rolled once. As such, i recommend that you first study what is required to make file upload work. merlyn has an old Web Techniques article that may be of use to you. You won't be able to use the code, but you should be able to learn from it. Good luck! :)

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

I know it's heresy but given the fits Image::Magick has caused me in the past, I find it easier to just fork/exec ImageMagick's convert utility.

Check out CGI::Application::Gallery, CGI::Application::PhotoGallery, CGI::Application::Plugin::Thumbnail, or other things. Search for thumbnail on CPAN, perlmonks, or google.

Hah, I had the exact same task a few days ago. I ended up using Graphics::Magick to resize and then DBI to insert the locations of both the thumbnail and original along with general information about the original picture. Unfortunately for you, however, this here program is not on the computer I am using.

The reason I used Graphics::Magick instead of Image::Magick is because I got tired of trying to install the latter after two days. I think the commands are the same, though. It went something like:

sub thumbnailize {
    my ($pic, $thumb) = @_;
    my $image = Graphics::Magick->new;
    my $err;
    
    $err = $image->Read($pic);
        warn $err if $err;
    $err = $image->Scale(geometry => '200x200');
        warn $err if $err;
    $err = $image->Write($thumb);
        warn $err if $err;
}
[download]

Pretty simple after reading the documentation. :)

- receive the file upload using CGI.pm or Apache::Whatever

- save it (making sure the filename is untainted)

- ask image magick if the file is an image of one of the types you're willing to accept (delete it if not)

- run image magick's resizing thingy as a system call. let the web server return a page to the user, while leaving IM to get on with things (because it can take a while for big files).

Also, be aware that image magick resizing can use a lot of memory for large files. so you might want to restrict the size of the file upload.

hth!

andye