Checking for Acceptable File Types : File Upload « CGI « Perl

1. Perl
2. CGI
3. File Upload

Checking for Acceptable File Types

    


#!/usr/bin/perl

use strict;
use CGI qw/:standard/;

my $q = new CGI;

my $filename = $q->param('uploaded_file');
my $contenttype = $q->uploadInfo($filename)->{'Content-Type'};

print header;
print start_html;
if ($contenttype !~ /^text\/html$/) {
    print "Only HTML is allowed<P>";
    print end_html;
    exit;
} else {
    print "Type is $contenttype<P>";
}

print end_html;

   
    
    
    
  

Related examples in the same category