diff options
author | Linus Nordberg <linus@nordberg.se> | 2009-06-26 07:15:40 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2009-06-26 07:15:40 +0200 |
commit | 67cb7c2aa62db8d40516d8c64d7a08093b5cd526 (patch) | |
tree | 15b0a3ff017abecc3fb18e33bc41cbdaf1ad5d9d | |
parent | cf9c330668cdd350c067669b926f3af7e355f2a4 (diff) | |
parent | 196b75d094fdbb56866781e7c79acdc23c052b9d (diff) |
Merge branch 'master' of victoria.tug.nordu.net:repos/bgp-logger
Conflicts:
src/bgpstore.lisp
* src/bgpstore.lisp (start-bgpstore): Merge and fix.
-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 ()) |