in reply to Re: Thoughts on file upload...
in thread Thoughts on file upload...

A snippet:
    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]
how's that?
UPDATE: Added the line to make the extension lowercase as some losers in my industry love CAP LOCK.
_____________________________________________________
mojobozo
word (wûrd)
interj. Slang. Used to express approval or an affirmative response to
something. Sometimes used with up. Source

Replies are listed 'Best First'.
Re: Re: Re: Thoughts on file upload...
by valdez (Monsignor) on Nov 20, 2002 at 16:25 UTC

    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

[reply]
[d/l]
[select]
      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
[reply]

In Section Seekers of Perl Wisdom