Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wT  
 
...
 print "Filetype not allowed. Please upload doc, docx, odt, or rtf fil
+es only.";  
 exit;  
}

Select or download this

if (lc $extension ne ("doc" "docx" or "odt" or "rtf")) {
    print
        "Filetype '$extension' not allowed. File extension must be: do
+c, docx, odt, or rtf";
    exit;
}