Work on data, threading and printing of threads
[kspaans/nntp-to-dot] / ppd.ss
diff --git a/ppd.ss b/ppd.ss
index b53a739..223e059 100644 (file)
--- a/ppd.ss
+++ b/ppd.ss
     [else (let [(message (message-getter newsd first (list date-regexp)))]
             (cond
               [(boolean? message) (void)]
-              [else ;(printf "~a~n~a~n" (string-length (car message)) (car message))
-               (let [(mlen (string-length (car message)))]
-               (cond
-                 [(= 32 mlen) (set! date-list (cons (string->date (substring (car message) 5) "~d ~b ~Y ~H:~M:~S ~z") date-list))]
-                 [(= 36 mlen) (set! date-list (cons (string->date (substring (car message) 5) "~a, ~d ~b ~Y ~H:~M:~S ~z") date-list))]
-                 [(= 37 mlen) (set! date-list (cons (string->date (substring (car message) 5) "~a, ~d ~b ~Y ~H:~M:~S ~z") date-list))]
-                 [(= 43 mlen) (set! date-list (cons (string->date (substring (car message) 5) "~a, ~d ~b ~Y ~H:~M:~S ~z") date-list))]))]))
+              [else (set! date-list (cons (get-date (car message)) date-list))]))
           (posts-per-day (+ first 1) last newsd)]))