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

Minor code fix

Browse source
This commit is contained in:
getimiskon 2023-02-13 18:06:42 +02:00
parent 9565d23e36
commit 71950620a4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
http/sakisafe.pl
View file

@ -22,7 +22,7 @@ pledge("stdio cpath rpath wpath inet flock fattr") if $openbsd;
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 = 1; my $RANDOMIZE_FILENAME = 0;
my $dirname; my $dirname;
my $filename = ""; my $filename = "";
@ -61,7 +61,7 @@ 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;
if ( $RANDOMIZE_FILENAME eq 1 ) { if ( $RANDOMIZE_FILENAME eq 1 ) {
$filename .= $chars [ rand @chars ] for 1 .. 5; $filename .= $chars[ rand @chars ] for 1 .. 5;
# TODO: add extension at the end of the filename, fix the multiplication of the chars every time the code runs # TODO: add extension at the end of the filename, fix the multiplication of the chars every time the code runs
} else { } else {
$filename = $filedata->filename; $filename = $filedata->filename;