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

Added filename randomizing code

Browse source
This commit is contained in:
getimiskon 2023-02-13 23:26:10 +02:00
parent e62bcfa9d8
commit 3bab2ba3ac
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
http/sakisafe.pl
View file

@ -12,6 +12,7 @@ use MIME::Types;
use warnings; use warnings;
use experimental 'signatures'; use experimental 'signatures';
use feature 'say'; use feature 'say';
use Encode qw(decode encode);
plugin 'RenderFile'; plugin 'RenderFile';
# OpenBSD promises. # OpenBSD promises.
@ -22,8 +23,9 @@ pledge("stdio cpath rpath wpath inet flock fattr") if $openbsd;
# 100 MBs # 100 MBs
my $MAX_SIZE = 1024 * 1024 * 100; my $MAX_SIZE = 1024 * 1024 * 100;
my @BANNED = qw(); # Add banned IP addresses here my @BANNED = qw(); # Add banned IP addresses here
my $RANDOMIZE_FILENAME = 0; # Enable/disable randomization
my $dirname; my $dirname;
my $link; my $link;
@ -60,6 +62,15 @@ sub handle_file {
my @chars = ( '0' .. '9', 'a' .. 'Z' ); my @chars = ( '0' .. '9', 'a' .. 'Z' );
$dirname .= $chars[ rand @chars ] for 1 .. 5; $dirname .= $chars[ rand @chars ] for 1 .. 5;
my $filename = $filedata->filename; my $filename = $filedata->filename;
my $enc = encode( "UTF-8", $filename );
$filename = $enc;
if ( $RANDOMIZE_FILENAME = 1 ) {
my $extension = $filename;
$extension =~ s/.*\.//;
$filename = "";
$filename .= $chars[ rand @chars ] for 1 .. 5;
$filename = $filename . "." . $extension;
}
carp( color("bold yellow"), carp( color("bold yellow"),
"sakisafe warning: could not create directory: $ERRNO", "sakisafe warning: could not create directory: $ERRNO",
color("reset") ) color("reset") )