359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
|
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
|
+
+
+
+
-
-
-
+
+
+
+
+
+
|
set directory(temporary) [lindex $downloadedFileName 1]
if {$persistent} then {
set fileNameOnly [lindex $downloadedFileName 0]
set directory(persistent) [lindex $downloadedFileName 2]
file mkdir $directory(persistent)
set command [list file copy]
if {$client} then {
lappend command -force
}
file copy -- \
[file join $directory(temporary) $fileNameOnly] \
[file join $directory(persistent) $fileNameOnly]
lappend command --
lappend command [file join $directory(temporary) $fileNameOnly]
lappend command [file join $directory(persistent) $fileNameOnly]
eval $command
lappend downloadDirectories $directory(persistent)
} else {
lappend downloadDirectories $directory(temporary)
}
}
|