|
|
@@ -23,7 +23,7 @@ define design
|
|
|
process:
|
|
|
get the current date
|
|
|
for realtime or bulk as MODE
|
|
|
- for each power of two up to 128 as iii
|
|
|
+ for each power of two up to 512 as iii
|
|
|
insert a random chunk (without compression)
|
|
|
to {DATE + iii days}-uploaded-iii-days-before-using-MODE
|
|
|
request the key DATE-uploaded-iii-days-before-using-MODE
|
|
|
@@ -851,7 +851,7 @@ define : copy-resources-to path
|
|
|
loop : cdr files
|
|
|
;; simply copy over the plot and plotting script
|
|
|
;; FIXME: the resulting images can be empty, need to copy them manually.
|
|
|
- let loop : (files '("fetchpull.w" "fetchpull-plot.gnuplot" "fetchpull-get-realtime.png" "fetchpull-get-small.png" "fetchpull-get-bulk.png" "fetchpull-get-failed-realtime.png" "fetchpull-get-failed-small.png" "fetchpull-get-failed-bulk.png" "fetchpull-put.png" "fetchpull-put-failed.png" "fetchpull-lifetime-realtime.png" "fetchpull-lifetime-small.png" "fetchpull-lifetime-bulk.png"))
|
|
|
+ let loop : (files '("fetchpull.w" "fetchpull-plot.gnuplot" "fetchpull-get-realtime.png" "fetchpull-get-small.png" "fetchpull-get-bulk.png" "fetchpull-get-failed-realtime.png" "fetchpull-get-failed-small.png" "fetchpull-get-failed-bulk.png" "fetchpull-put.png" "fetchpull-put-failed.png" "fetchpull-lifetime-realtime.png" "fetchpull-lifetime-small.png" "fetchpull-lifetime-bulk.png" "fetchpull-lifetime-realtime-success-count.png" "fetchpull-lifetime-small-success-count.png" "fetchpull-lifetime-bulk-success-count.png"))
|
|
|
when : not : null? files
|
|
|
when : file-exists? : first files
|
|
|
copy-file : first files
|
|
|
@@ -920,7 +920,7 @@ define : main args
|
|
|
define days-before
|
|
|
cons 0
|
|
|
map : λ(x) : expt 2 x
|
|
|
- iota 8
|
|
|
+ iota 10 ;; up to 2**9: 512 days
|
|
|
define* : KSK-for-get days #:key (append "") (mode 'realtime)
|
|
|
KSK-for-request (string-append (prefix) append) today days mode
|
|
|
define* : KSK-for-put days #:key (append "") (mode 'realtime)
|
Arne Babenhauserheide