diff options
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/data.lisp b/src/data.lisp index ea8a7a4..e2c4b9b 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -67,7 +67,8 @@ TOP-ELEM is an XML document element." (let ((templ (make-instance 'bgp-message)) (new-prefs nil) (octet-msgs (dom:get-elements-by-tag-name top-elem "OCTET_MSG")) - (prefixes (dom:get-elements-by-tag-name top-elem "PREFIX"))) + (prefixes (dom:get-elements-by-tag-name top-elem "PREFIX")) + (time (aref (dom:get-elements-by-tag-name top-elem "TIME") 0))) ;; Populate new-prefs. (when (> (length prefixes) 0) @@ -82,11 +83,15 @@ TOP-ELEM is an XML document element." prefixes)))) ;; Populate the template. - ;; TODO: just do it! + (let ((ts (aref (dom:get-elements-by-tag-name time "TIMESTAMP") 0)) + (pt (aref (dom:get-elements-by-tag-name time "PRECISION_TIME") 0))) + (setf (timestamp templ) + (dom:data (aref (dom:child-nodes ts) 0))) + (setf (precision-time templ) + (dom:data (aref (dom:child-nodes pt) 0)))) ;; Add octets to templ. (when (> (length octet-msgs) 0) - ;;(format t "found octet-msg~%") (let* ((oct (aref (dom:get-elements-by-tag-name (aref octet-msgs 0) "OCTETS") 0)) |