my %file_ok = qw{
        .gif    1
        .jpg    1
        .htm    1
        .html    1
        .txt    1
        .doc    1
        .pdf    1
    };

and then....

    ($base,$path,$type) = fileparse($file,'\..*');


and finally...

    $type =~ tr/A-Z/a-z/;
    if (!$file_ok{$type}) {
        print "The type of file you tried to upload ($type) is not sup
+ported.";
        return;
    }
[download]

I would not trust file extensions; File::MMagic seems to me a better solution; here is an untested snippet:

use File::MMagic;
$mm = new File::MMagic; # use internal magic file
# disable checks made against file extension
$mm->removeFileExts;
$type = $mm->checktype_filename("/somewhere/unknown/file");
...
[download]

$type will contain a MIME mediatype string.

HTH, Valerio

I'm not familiar with that. I'll look into it.

Thanks!
_____________________________________________________
mojobozo
word (wûrd)
interj. Slang. Used to express approval or an affirmative response to
something. Sometimes used with up. Source