Browse Source

Fix indendation in http/upload.cgi

config_hash
qorg11 1 month ago
parent
commit
f5967c88c0
Signed by: qorg11 <qorg@vxempire.xyz> GPG Key ID: 343FC20A4ACA62B9
1 changed files with 19 additions and 18 deletions
  1. +19
    -18
      http/upload.cgi

+ 19
- 18
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;
}
{
$allowed_extension = 0;
last;
}

}
}

if($allowed_extension)
{
open(FILE,">$upload_dir/$filename");
binmode(FILE);

while(<$upload_filehandle>)
{
print FILE;
}

close FILE;
open(FILE,">$upload_dir/$filename");
binmode(FILE);

print $ENV{HTTP_REFERER} . "$upload_dir$filename";
while(<$upload_filehandle>)
{
print FILE;
}

close FILE;

print $ENV{HTTP_REFERER} . "$upload_dir$filename";
}

else {
print "The file extension .$extension is not allowed in this instance.";
else
{
print "The file extension .$extension is not allowed in this instance.";
}

Loading…
Cancel
Save