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

fixup gitignore and eval

Browse source
This commit is contained in:
Rawley Fowler 2023-03-11 11:47:57 -06:00
parent eb36df7104
commit 3dea47bbd4
3 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -13,3 +13,5 @@ MANIFEST*
META.*/ META.*/
MYMETA.* MYMETA.*
pm_to_blib pm_to_blib
sakisafe.log
f/

6
http/Makefile.PL
View file

@ -1,3 +1,5 @@
use v5.36;
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
WriteMakefile( WriteMakefile(
@ -7,7 +9,9 @@ WriteMakefile(
"List::MoreUtils" => 0, "List::MoreUtils" => 0,
"Term::ANSIColor" => 0, "Term::ANSIColor" => 0,
"MIME::Types" => 0, "MIME::Types" => 0,
"Path::Tiny" => 0 "Path::Tiny" => 0,
"Mojolicious::Plugin::RenderFile" => 0,
"Mojolicious::Routes::Pattern" => 0
}, },
EXE_FILES => ['sakisafe.pl'] EXE_FILES => ['sakisafe.pl']
); );

6
http/sakisafe.pl
View file

@ -22,7 +22,7 @@ pledge("stdio cpath rpath wpath inet flock fattr") if $^O eq "openbsd";
my $MAX_SIZE = 1024 * 1024 * 100; my $MAX_SIZE = 1024 * 1024 * 100;
my @BANNED = path('banned.txt')->slurp_utf8 || qw(); # Add banned IP addresses here my @BANNED = eval { path('banned.txt')->slurp_utf8 } or qw(); # Add banned IP addresses here
my $dirname; my $dirname;
my $link; my $link;
@ -119,8 +119,8 @@ get '/f/:dir/#name' => sub ($c) {
content_disposition => 'inline' content_disposition => 'inline'
); );
} };
;
app->max_request_size( 1024 * 1024 * 100 ); app->max_request_size( 1024 * 1024 * 100 );
post '/upload' => sub ($c) { handle_file($c) }; post '/upload' => sub ($c) { handle_file($c) };