diff options
Diffstat (limited to 'src/bgpstore.lisp')
| -rw-r--r-- | src/bgpstore.lisp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp index ba448ee..4f36394 100644 --- a/src/bgpstore.lisp +++ b/src/bgpstore.lisp @@ -6,18 +6,19 @@ (with-connection *db-spec* (let ((reader (new-reader host port)) (count 0)) + (format t "~A: bgpstore started~%" (iso-date (get-universal-time) t)) (do ((e (next-xml-blurb reader "BGP_MESSAGE") (next-xml-blurb reader "BGP_MESSAGE"))) ((null e)) (dolist (obj (new-entries (xml-top-elem-from-octets e))) (insert-dao obj) (incf count) - (if (mod count 100) (format t ".") - (if (mod count 1000) (format t "+") - (if (mod count 10000) - (format t "~%~A ~A " + (if (= 0 (mod count 100)) (format t ".") + (if (= 0 (mod count 1000)) (format t "+") + (if (= 0 (mod count 10000)) + (format t "~%~A: ~A " (iso-date (get-universal-time) t) - count)))) + count)))))) (close-reader)))) (defun stop-bgpstore ()) |