;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-

(defun start-bgpstore (host port)
  (let ((reader (new-reader host port)))
    (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)))
    (close-reader)))

(defun stop-bgpstore ())