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

added perl makefile

Browse source
This commit is contained in:
Rawley Fowler 2023-03-11 11:22:59 -06:00
parent 9af44501cc
commit eb36df7104
3 changed files with 26 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
.gitignore vendored
View file

@ -4,3 +4,12 @@ obj/
.clangd
.depend
http/f/*
blib/
pm_to_blib
Makefile
Makefile.old
MANIFEST*
!MANIFEST.SKIP
META.*/
MYMETA.*
pm_to_blib

13
http/Makefile.PL Normal file
View file

@ -0,0 +1,13 @@
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'sakisafe',
PREREQ_PM => {
"Mojolicious" => 0,
"List::MoreUtils" => 0,
"Term::ANSIColor" => 0,
"MIME::Types" => 0,
"Path::Tiny" => 0
},
EXE_FILES => ['sakisafe.pl']
);

8
http/sakisafe.pl
View file

@ -9,21 +9,20 @@ use Carp;
use Term::ANSIColor;
use English;
use MIME::Types;
use Path::Tiny;
use warnings;
use experimental 'signatures';
use feature 'say';
plugin 'RenderFile';
# OpenBSD promises.
my $openbsd = 0;
$openbsd = 1 if $^O eq "openbsd";
pledge("stdio cpath rpath wpath inet flock fattr") if $openbsd;
pledge("stdio cpath rpath wpath inet flock fattr") if $^O eq "openbsd";
# 100 MBs
my $MAX_SIZE = 1024 * 1024 * 100;
my @BANNED = qw(); # Add banned IP addresses here
my @BANNED = path('banned.txt')->slurp_utf8 || qw(); # Add banned IP addresses here
my $dirname;
my $link;
@ -46,6 +45,7 @@ sub handle_file {
status => 400
);
}
if ( List::MoreUtils::any { /$c->tx->remote_address/ } uniq @BANNED ) {
$c->render(
text =>