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

29
http/upload.cgi
View file

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