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

Merge pull request 'Url formatting is handled by the server' (#1) from czar/lainsafe:feature into master

Browse source 
Reviewed-on: https://git.kalli.st/qorg11/lainsafe/pulls/1
This commit is contained in:
qorg11 2020-08-30 18:31:30 +02:00
commit 82061f08fb
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
http/upload.cgi
View file

@ -54,6 +54,10 @@ $string =~ s/\.//g;
my $upload_filehandle = $q->upload("file");
# onion urls will be http
my $prot = length $ENV{HTTPS} ? "https" : "http";
$filename = $string . "." . $extension;
my $allowed_extension = 1;
@ -77,10 +81,10 @@ if($allowed_extension)
{
print FILE;
}
close FILE;
print $ENV{HTTP_REFERER} . "$upload_dir$filename";
print $prot. "://" . $ENV{HTTP_HOST} . "$upload_dir$filename";
}
else

4
lainsafecli
View file

@ -126,10 +126,10 @@ if ($req->{_content} =~ /instance/) # If someone knows how to do it another way,
print $req->{_content} . "\n";
exit;
}
print $DEFAULT_SERVER . "/" . $req->{_content} . "\n";
print $req->{_content} . "\n";
if ($STORE_LINKS) {
open FILE,'>>',$LINKS_FILE or die $!;
print FILE $DEFAULT_SERVER . "/" . $req->{_content} . " $file" ."\n";
print FILE $req->{_content} . " $file" ."\n";
close FILE;
}