svragv/sakisafe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix indendation in http/upload.cgi

Browse source
This commit is contained in:
qorg11 2020-07-01 17:50:58 +02:00
parent 47312a4d7c
commit f5967c88c0
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 21 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
http/upload.cgi
View file

@ -57,31 +57,32 @@ $filename = $string . "." . $extension;
my $allowed_extension = 1; my $allowed_extension = 1;
foreach(@not_allowed_extensions) foreach(@not_allowed_extensions)
{ {
if($filename =~ /\.$_$/i) if($filename =~ /\.$_$/i)
{ {
$allowed_extension = 0; $allowed_extension = 0;
last; last;
} }
} }
if($allowed_extension) if($allowed_extension)
{
open(FILE,">$upload_dir/$filename");
binmode(FILE);
while(<$upload_filehandle>)
{ {
print FILE;
open(FILE,">$upload_dir/$filename");
binmode(FILE);
while(<$upload_filehandle>)
{
print FILE;
}
close FILE;
print $ENV{HTTP_REFERER} . "$upload_dir$filename";
} }
close FILE; else
{
print $ENV{HTTP_REFERER} . "$upload_dir$filename"; print "The file extension .$extension is not allowed in this instance.";
}
else {
print "The file extension .$extension is not allowed in this instance.";
} }