blob: c77844f2ef976e3a13240947c3fa4711c863e16a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(defparameter *db-spec* '("linus" "linus" "" "localhost" ))
(defun start-bgpstore (host port)
(with-connection *db-spec*
(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 ())
|
