data-collector/collect.lisp

;;;; collect.lisp
;;;;
;;;; Copyright (c) 2015 Samuel W. Flint <swflint@flintfam.org>

(in-package #:collect)

;;; "collect" goes here. Hacks and glory await!

(defvar *configuration* nil)

(defvar *forms* nil)

(defvar *queries* nil)

(defvar *tables* nil)

(defvar *forms* nil)

(defun get-config (section key)
  (get-config-drive ))

(defun main ()
  (setq *configuration* (open-configuration-file (second *posix-argv*)))
  (open-database)
  (get-all-forms)
  (get-all-queries))

(define-route main ("")
  (main-page :title "Collect"))