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

Add colors to the warnings

master
Barrington 2023-02-12 10:19:16 +01:00
parent b8dd0be83b
commit f52dcbb721
Signed by: svragv
GPG Key ID: B39C0BCEE94A4A89
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
http/sakisafe.pl
View File

@ -6,12 +6,14 @@ use Mojolicious::Lite -signatures;
use Mojolicious::Routes::Pattern;
use List::MoreUtils qw(any uniq);
use Carp;
use Term::ANSIColor;
use English;
use MIME::Types;
use experimental 'signatures';
plugin 'RenderFile';
my $openbsd = 0;
$openbsd = 1 if $^O eq "openbsd";
pledge("stdio cpath rpath wpath inet flock fattr") if $openbsd;
@ -54,7 +56,7 @@ sub handle_file {
my @chars = ( '0' .. '9', 'a' .. 'Z' );
$dirname .= $chars[ rand @chars ] for 1 .. 5;
my $filename = $filedata->filename;
carp "sakisafe warning: could not create directory: $ERRNO" unless
carp(color("bold yellow"), "sakisafe warning: could not create directory: $ERRNO", color("reset")) unless
mkdir( "f/" . $dirname );
$filename .= ".txt" if $filename eq "-";
@ -84,7 +86,7 @@ get '/f/:dir/:name' => sub ($c) {
my $filerender = Mojolicious::Plugin::RenderFile->new;
my $ext = $captures;
$ext =~ s/.*\.//;
carp "sakisafe warning: could not get file: $ERRNO" unless
carp(color("bold yellow"), "sakisafe warning: could not get file: $ERRNO", color("reset")) unless
$c->render_file( filepath => $captures,
format => $ext,
content_disposition => 'inline'