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

;; Copyright 2009, NORDUnet A/S.
;;
;; This file is part of Eduroam-stats.
;;
;; Eduroam-stats is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 2 of the License, or
;; (at your option) any later version.
;;
;; Eduroam-stats is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Eduroam-stats.  If not, see <http://www.gnu.org/licenses/>.

(in-package :bgp-logger)

(defwebapp bgpview-app
    :prefix "/bgpview"
    :description "FIXME: description of bgpview app"
    :autostart nil
    :debug t)

(defstore *bgpview-store* :prevalence
  (merge-pathnames (make-pathname :directory '(:relative "data"))
                   (asdf-system-directory :bgpview)))

(defun db-test (&rest args)
  (declare (ignore args))
  (with-connection *db-spec*
    (let ((msgs (query-dao 'bgp-message
			   (:limit
			    (:select 'timestamp 'prefix 'label 'path 'nexthop
				     :from 'bgp-message)
			    20))))
      ;(dolist (m msgs) (make-instance 'dataform :data m)))))
      (render-object-view msgs '(table bgp-message)))))

(defun init-user-session (comp)
  (setf (composite-widgets comp)
	(list "Welcome to BGP View"
	      (make-instance 'composite 
			     :widgets (list "First widget."
					    (lambda (&rest args)
					      (declare (ignore args))
					      (with-html
						(:p "Second widget.")))
					    #'db-test)))))

(defun start-bgpview (&rest args)
  (apply #'start-weblocks args)
  (start-webapp 'bgpview-app))
  
(defun stop-bgpview ()
  (stop-webapp 'bgpview-app)
  (stop-weblocks))