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

Modified index

Browse source
This commit is contained in:
qorg11 2021-10-12 13:58:57 +02:00
parent d9afa6076a
commit 20b30be2f5
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
2 changed files with 57 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
http/index.cgi
View file

@ -40,10 +40,9 @@ print "<!DOCTYPE html>
<input type='file' name='file' size='30'>
<input type='submit' value='upload'>
</form>
<a href='https://codeberg.org/qorg11/lainsafe'>star me</a>
<a href='https://github.com/dimethyltriptamine/lainsafe'>star me</a>
<h2>Terminal usage</h2>
<p>I recommend using lainsafecli to upload files to lainsafe, however, there is more than one way to do it.</p>
<p>I recommend using clainsafecli to upload files to lainsafe, however, there is more than one way to do it.</p>
<code>curl -F 'file=@1605388889.png' $ENV{HTTP_HOST}$ENV{REQUEST_URI}</code><br/>
print $disk_free . available from . $disk_size . total;
</body>
</html>";

89
http/upload.cgi
View file

@ -20,6 +20,7 @@ use Time::HiRes qw(gettimeofday);
my $q = CGI->new;
my $filename = $q->param('file');
my $url = $q->param('url');
my $upload_dir = "files/";
print $q->header();
@ -30,55 +31,75 @@ $size = $ENV{CONTENT_LENGTH};
our $MAX_SIZE = 1024*1024*100; # Change for your size
our $MAX_SIZE_MB = $MAX_SIZE / 1024 / 1024; # Don't change this
our @not_allowed_extensions = qw(sh out exe);
# do something better
if ($url ne "") {
goto url_shorter;
}
if ($filename eq "" || $ENV{REQUEST_METHOD} eq "GET") {
print("What are you looking for?");
exit;
print("What are you looking for?");
exit;
}
if ($size > $MAX_SIZE) {
print("Max size for a file is $MAX_SIZE_MB MBs");
exit;
}
if ($filename) {
if ($size > $MAX_SIZE) {
print("Max size for a file is $MAX_SIZE_MB MBs");
exit;
}
my @chars = ("A"..."z","a"..."z");
my $dirname;
my $extension = $filename;
my @chars = ("A"..."z","a"..."z");
my $dirname;
my $extension = $filename;
$dirname .= $chars[rand @chars] for 1..8;
$extension =~ s/.*\.//;
$filename .= ".notcgi" if $extension eq "cgi";
$dirname .= $chars[rand @chars] for 1..8;
$extension =~ s/.*\.//;
$filename .= ".notcgi" if $extension eq "cgi";
mkdir("$upload_dir/$dirname");
my $upload_filehandle = $q->upload("file");
mkdir("$upload_dir/$dirname");
my $upload_filehandle = $q->upload("file");
# onion urls will be http
my $prot = length $ENV{HTTPS} ? "https" : "http";
# onion urls will be http
my $prot = length $ENV{HTTPS} ? "https" : "http";
my $allowed_extension = 1;
my $allowed_extension = 1;
foreach (@not_allowed_extensions) {
if ($filename =~ /\.$_$/i) {
$allowed_extension = 0;
last;
}
foreach (@not_allowed_extensions) {
if ($filename =~ /\.$_$/i) {
$allowed_extension = 0;
last;
}
}
}
if ($allowed_extension) {
if ($allowed_extension) {
open(FILE,">$upload_dir/$dirname/$filename");
binmode(FILE);
open(FILE,">$upload_dir/$dirname/$filename");
binmode(FILE);
while (<$upload_filehandle>) {
print FILE;
}
while (<$upload_filehandle>) {
print FILE;
}
close FILE;
$filename =~ s/ /%20/g;
print $prot. "://" . $ENV{HTTP_HOST} . "/$upload_dir$dirname/$filename";
} else {
print "The file extension .$extension is not allowed in this instance.";
close FILE;
$filename =~ s/ /%20/g;
print $prot. "://" . $ENV{HTTP_HOST} . "/$upload_dir$dirname/$filename";
} else {
print "The file extension .$extension is not allowed in this instance.";
}
exit;
} elsif ($url != "" && !$filename) {
url_shorter:
my $template = "<meta http-equiv='Refresh' content='0; url='$url'/>";
my @chars = ("A"..."z","a"..."z");
my $dirname;
$dirname .= $chars[rand @chars] for 1..8;
mkdir($dirname);
open(my $fh, ">$dirname/index.html");
print $fh $template;
exit;
}