my $additional_mirrors = join(" ", map "$_/$filename", @_);
my @chArray = ('a'..'z', 'A'..'Z', 0..9);
- my $rfn = join '', map{ $chArray[int rand @chArray] } 0..9;
+ my $rfn = join '', "${filename}_", map{ $chArray[int rand @chArray] } 0..9;
if (open CURL, '-|', 'curl', '--version') {
if (defined(my $line = readline CURL)) {
$have_curl = 1 if $line =~ /^curl /;
if ($have_aria2c) {
@mirrors=();
- return join(" ", "touch /dev/shm/${rfn}_spp;",
+ return join(" ", "[ -d $ENV{'TMPDIR'}/aria2c ] || mkdir $ENV{'TMPDIR'}/aria2c;",
+ "touch $ENV{'TMPDIR'}/aria2c/${rfn}_spp;",
qw(aria2c --stderr -c -x2 -s10 -j10 -k1M), $url, $additional_mirrors,
$check_certificate ? () : '--check-certificate=false',
- "--server-stat-of=/dev/shm/${rfn}_spp",
- "--server-stat-if=/dev/shm/${rfn}_spp",
- "-d /dev/shm -o $rfn;",
- "cat /dev/shm/$rfn;", "rm /dev/shm/$rfn /dev/shm/${rfn}_spp");
+ "--server-stat-of=$ENV{'TMPDIR'}/aria2c/${rfn}_spp",
+ "--server-stat-if=$ENV{'TMPDIR'}/aria2c/${rfn}_spp",
+ "-d $ENV{'TMPDIR'}/aria2c -o $rfn;",
+ "cat $ENV{'TMPDIR'}/aria2c/$rfn;",
+ "rm $ENV{'TMPDIR'}/aria2c/$rfn $ENV{'TMPDIR'}/aria2c/${rfn}_spp");
} elsif ($have_curl) {
return (qw(curl -f --connect-timeout 20 --retry 5 --location),
$check_certificate ? () : '--insecure',