diff options
| author | Linus Nordberg <linus@nordberg.se> | 2009-06-26 05:02:06 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2009-06-26 05:02:06 +0200 |
| commit | 45b772581b6c4e227756ef2e437649a44dcc3e23 (patch) | |
| tree | 29c3b541245d1d8a9072dfca168c8a50ab2947c9 | |
| parent | 572da882f6d26355d9fd284bc29be15209fed8ff (diff) | |
* src/bgpstore.lisp (start-bgpstore): Open database.
| -rw-r--r-- | src/bgpstore.lisp | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/bgpstore.lisp b/src/bgpstore.lisp index 5abc348..c77844f 100644 --- a/src/bgpstore.lisp +++ b/src/bgpstore.lisp @@ -1,12 +1,15 @@ ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(defparameter *db-spec* '("linus" "linus" "" "localhost" )) + (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))) + (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 ()) |