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

append .txt to the filename if the filename is "-"

Browse source
This commit is contained in:
(≧◡≦) 2022-11-21 13:02:00 +01:00
parent db06f1cdc4
commit 80ef5e6ba2
No known key found for this signature in database
GPG key ID: B39C0BCEE94A4A89
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
http/sakisafe.pl
View file

@ -24,14 +24,15 @@ sub handle_file {
# Generate random string for the directory
my @chars = ( '0' .. '9', 'a' .. 'Z' );
$dirname .= $chars[ rand @chars ] for 1 .. 5;
my $filename = $filedata->filename;
mkdir( "f/" . $dirname );
$filedata->move_to( "f/" . $dirname . "/" . $filedata->filename );
$filename .= ".txt" if $filename eq "-";
$filedata->move_to( "f/" . $dirname . "/" . $filename );
my $host = $c->req->url->to_abs->host;
$c->res->headers->header(
'Location' => "http://$host/$dirname/" . $filedata->filename );
$c->render(
text => "Uploaded to http://$host/f/$dirname/" . $filedata->filename,
text => "http://$host/f/$dirname/" . $filename,
status => 201,
);
$dirname = "";