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>";

21
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,13 +31,20 @@ $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;
}
if ($filename) {
if ($size > $MAX_SIZE) {
print("Max size for a file is $MAX_SIZE_MB MBs");
exit;
@ -82,3 +90,16 @@ if ($allowed_extension) {
} 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;
}