oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add "pm" to list of verboten uploads

Browse source
This commit is contained in:
Doug Bell 2010-08-10 21:18:22 -05:00
parent bb2e32141d
commit e71ce09588
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Storage.pm
View file

@ -315,7 +315,7 @@ sub addFileFromFilesystem {
return undef; return undef;
} }
my $filename = (File::Spec->splitpath( $pathToFile ))[2]; my $filename = (File::Spec->splitpath( $pathToFile ))[2];
if (isIn($self->getFileExtension($filename), qw(pl perl sh cgi php asp))) { if (isIn($self->getFileExtension($filename), qw(pl perl sh cgi php asp pm))) {
$filename =~ s/\./\_/g; $filename =~ s/\./\_/g;
$filename .= ".txt"; $filename .= ".txt";
} }