Guile Freenet
 
(drak)
2016-03-31: download-by-date-hint: add yearly debugging output notabug/master tip master

download-by-date-hint: add yearly debugging output

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -207,6 +207,7 @@
                                     (date (assoc-ref hint-alist 'date))
                                     (month (string->number (list-ref (string-split date #\-) 1)))
                                     (min-week (* month 4))) ; avoid trying to download weeks which cannot be available.
+                               (format #t "Downloading key ~a starting in month ~a for weeks ~a to 52\n" yearuri month min-week)
                                (delete #f ;; only return the filenames of successful downloads 
                                        (n-par-map 10 (lambda (week)
                                                        (if (< week min-week) ; avoid weeks earlier than the date in the yearly date hint