Add .perltidyrc, and format (#24)
* Add .perltidyrc, and format * Format code * Change tab size
This commit is contained in:
Rawley
GitHub
parent
12d506219a
commit
47d733b2f4
2 changed files with 85 additions and 79 deletions
14
http/.perltidyrc
Normal file
14
http/.perltidyrc
Normal file
|
|
@ -0,0 +1,14 @@
|
||||||
|
-pbp # Start with Perl Best Practices
|
||||||
|
-w # Show all warnings
|
||||||
|
-iob # Ignore old breakpoints
|
||||||
|
-l=120 # 120 characters per line
|
||||||
|
-mbl=2 # No more than 2 blank lines
|
||||||
|
-i=5 # Indentation is 2 columns
|
||||||
|
-ci=2 # Continuation indentation is 2 columns
|
||||||
|
-vt=0 # Less vertical tightness
|
||||||
|
-pt=2 # High parenthesis tightness
|
||||||
|
-bt=2 # High brace tightness
|
||||||
|
-sbt=2 # High square bracket tightness
|
||||||
|
-wn # Weld nested containers
|
||||||
|
-isbc # Don't indent comments without leading space
|
||||||
|
-nst # Don't output to STDOUT
|
||||||
150
http/sakisafe.pl
150
http/sakisafe.pl
|
|
@ -1,4 +1,5 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
|
|
||||||
# This file is part of sakisafe.
|
# This file is part of sakisafe.
|
||||||
|
|
||||||
use if $^O eq "openbsd", OpenBSD::Pledge, qw(pledge);
|
use if $^O eq "openbsd", OpenBSD::Pledge, qw(pledge);
|
||||||
|
|
@ -22,7 +23,7 @@ pledge("stdio cpath rpath wpath inet flock fattr") if $^O eq "openbsd";
|
||||||
# 100 MBs
|
# 100 MBs
|
||||||
my $MAX_SIZE = 1024 * 1024 * 100;
|
my $MAX_SIZE = 1024 * 1024 * 100;
|
||||||
|
|
||||||
my @BANNED = eval { path('banned.txt')->slurp_utf8 } || qw(); # Add banned IP addresses here
|
my @BANNED = eval { path('banned.txt')->slurp_utf8 } || qw(); # Add banned IP addresses here
|
||||||
my $dirname;
|
my $dirname;
|
||||||
my $link;
|
my $link;
|
||||||
|
|
||||||
|
|
@ -33,77 +34,72 @@ my $log = Mojo::Log->new(path => 'sakisafe.log', level => 'trace');
|
||||||
$log->color(1);
|
$log->color(1);
|
||||||
|
|
||||||
# Forward logs to STDERR or STDOUT while also writing to the `sakisafe.log` file.
|
# Forward logs to STDERR or STDOUT while also writing to the `sakisafe.log` file.
|
||||||
$log->on(message => sub ($l, $level, @lines) {
|
$log->on(
|
||||||
my $time = time;
|
message => sub ($l, $level, @lines) {
|
||||||
my ($s, $m, $h, $day, $month, $year) = localtime time;
|
my $time = time;
|
||||||
$time = sprintf('%04d-%02d-%02d %02d:%02d:%08.5f', $year + 1900, $month + 1, $day, $h, $m,
|
my ($s, $m, $h, $day, $month, $year) = localtime time;
|
||||||
"$s." . ((split '.', $time)[1] // 0));
|
$time = sprintf(
|
||||||
my $log_to_print = '[' . $time . '] ' . '[' . $level . '] ' . join(' ', @lines);
|
'%04d-%02d-%02d %02d:%02d:%08.5f',
|
||||||
if ($level eq 'trace' || $level eq 'info') {
|
$year + 1900,
|
||||||
say $log_to_print;
|
$month + 1, $day, $h, $m, "$s." . ((split '.', $time)[1] // 0)
|
||||||
} else {
|
);
|
||||||
print \*STDERR, $log_to_print . "\n";
|
my $log_to_print = '[' . $time . '] ' . '[' . $level . '] ' . join(' ', @lines);
|
||||||
}
|
if ($level eq 'trace' || $level eq 'info') {
|
||||||
});
|
say $log_to_print;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print \*STDERR, $log_to_print . "\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
# Function to handle file uploads
|
# Function to handle file uploads
|
||||||
sub handle_file {
|
sub handle_file {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
my $filedata = $c->param("file");
|
my $filedata = $c->param("file");
|
||||||
if ( $filedata->size > $MAX_SIZE ) {
|
if ($filedata->size > $MAX_SIZE) {
|
||||||
return $c->render(
|
return $c->render(text => "Max upload size: $MAX_SIZE", status => 400);
|
||||||
text => "Max upload size: $MAX_SIZE",
|
}
|
||||||
status => 400
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( List::MoreUtils::any { $c->tx->remote_address } uniq @BANNED ) {
|
|
||||||
$log->info("Attempt to upload by banned IP: " . $c->tx->remote_address);
|
|
||||||
$c->render(
|
|
||||||
text =>
|
|
||||||
"Hi! Seems like the server admin added your IP address to the banned IP array."
|
|
||||||
. "As the developer of sakisafe, I can't do anything.",
|
|
||||||
status => 403
|
|
||||||
);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Generate random string for the directory
|
if (List::MoreUtils::any { $c->tx->remote_address } uniq @BANNED) {
|
||||||
my @chars = ( '0' .. '9', 'a' .. 'Z' );
|
$log->info("Attempt to upload by banned IP: " . $c->tx->remote_address);
|
||||||
$dirname .= $chars[ rand @chars ] for 1 .. 5;
|
$c->render(
|
||||||
my $filename = $filedata->filename;
|
text => "Hi! Seems like the server admin added your IP address to the banned IP array."
|
||||||
$log->warn("sakisafe warning: could not create directory: $ERRNO")
|
. "As the developer of sakisafe, I can't do anything.",
|
||||||
unless mkdir( "f/" . $dirname );
|
status => 403
|
||||||
$filename .= ".txt" if $filename eq "-";
|
);
|
||||||
|
return;
|
||||||
# TODO: get whether the server is http or https
|
}
|
||||||
# There's a CGI ENV variable for that.
|
|
||||||
my $host = $c->req->url->to_abs->host;
|
|
||||||
my $ua = $c->req->headers->user_agent;
|
|
||||||
$filedata->move_to( "f/" . $dirname . "/" . $filename );
|
|
||||||
$link = "http://$host/f/$dirname/$filename";
|
|
||||||
$c->stash(link => $link, host => $host, dirname => $dirname);
|
|
||||||
|
|
||||||
$c->res->headers->header(
|
|
||||||
'Location' => "$link" . $filename );
|
|
||||||
|
|
||||||
# Only give the link to curl, html template for others.
|
# Generate random string for the directory
|
||||||
if($ua =~ m/curl/) {
|
my @chars = ('0' .. '9', 'a' .. 'Z');
|
||||||
$c->render(
|
$dirname .= $chars[rand @chars] for 1 .. 5;
|
||||||
text => $link . "\n",
|
my $filename = $filedata->filename;
|
||||||
status => 201,
|
$log->warn("sakisafe warning: could not create directory: $ERRNO") unless mkdir("f/" . $dirname);
|
||||||
);
|
$filename .= ".txt" if $filename eq "-";
|
||||||
|
|
||||||
$dirname = "";
|
# TODO: get whether the server is http or https
|
||||||
} else {
|
# There's a CGI ENV variable for that.
|
||||||
$c->render(
|
my $host = $c->req->url->to_abs->host;
|
||||||
template => 'file',
|
my $ua = $c->req->headers->user_agent;
|
||||||
status => 201,
|
$filedata->move_to("f/" . $dirname . "/" . $filename);
|
||||||
);
|
$link = "http://$host/f/$dirname/$filename";
|
||||||
}
|
$c->stash(link => $link, host => $host, dirname => $dirname);
|
||||||
|
|
||||||
$log->info($c->tx->remote_address . " " . $dirname . "/" . $filename );
|
$c->res->headers->header('Location' => "$link" . $filename);
|
||||||
$dirname = "";
|
|
||||||
|
# Only give the link to curl, html template for others.
|
||||||
|
if ($ua =~ m/curl/) {
|
||||||
|
$c->render(text => $link . "\n", status => 201,);
|
||||||
|
|
||||||
|
$dirname = "";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$c->render(template => 'file', status => 201,);
|
||||||
|
}
|
||||||
|
|
||||||
|
$log->info($c->tx->remote_address . " " . $dirname . "/" . $filename);
|
||||||
|
$dirname = "";
|
||||||
}
|
}
|
||||||
|
|
||||||
# Function to log uploaded files
|
# Function to log uploaded files
|
||||||
|
|
@ -114,23 +110,19 @@ post '/' => sub ($c) { handle_file($c) };
|
||||||
# Allow files to be downloaded.
|
# Allow files to be downloaded.
|
||||||
|
|
||||||
get '/f/:dir/#name' => sub ($c) {
|
get '/f/:dir/#name' => sub ($c) {
|
||||||
my $dir = $c->param("dir");
|
my $dir = $c->param("dir");
|
||||||
my $file = $c->param("name");
|
my $file = $c->param("name");
|
||||||
my $ext = $file;
|
my $ext = $file;
|
||||||
$ext =~ s/.*\.//;
|
$ext =~ s/.*\.//;
|
||||||
my $path = "f/" . $dir . "/" . $file;
|
my $path = "f/" . $dir . "/" . $file;
|
||||||
|
|
||||||
#carp "sakisafe warning: could not get file: $ERRNO" unless
|
#carp "sakisafe warning: could not get file: $ERRNO" unless
|
||||||
$c->render( text => "file not found", status => 404 ) unless -e $path;
|
$c->render(text => "file not found", status => 404) unless -e $path;
|
||||||
$c->render_file(
|
$c->render_file(filepath => $path, format => $ext, content_disposition => 'inline');
|
||||||
filepath => $path,
|
|
||||||
format => $ext,
|
|
||||||
content_disposition => 'inline'
|
|
||||||
);
|
|
||||||
};
|
};
|
||||||
|
|
||||||
app->log($log);
|
app->log($log);
|
||||||
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) };
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue