(ql:quickload '(hunchentoot spinneret cl-yesql cl-yesql/sqlite))

(defpackage :webstats
  (:use :common-lisp :hunchentoot :spinneret))

(in-package :webstats)

(overlord:set-package-base "/home/titan/dev/scratch/webstats/")

(yesql:import log-queries
  :from "/home/titan/dev/scratch/webstats/queries.sql"
  :as :cl-yesql/sqlite
  :binding :all-functions)

;; (sqlite:with-open-database (db "test.db")
;;   (drop-stats-table db)
;;   (create-stats-table db))

;; (sqlite:with-open-database (db "test.db")
;;   (insert db
;;           :click nil
;;           :page "ho"
;;           :referer "ref"
;;           :ip "13"
;;           :user-agent "sly"
;;           :title "try"))


(defvar *acceptor* (make-instance 'hunchentoot:easy-acceptor
                                  :port 4252))

(hunchentoot:start *acceptor*)

(hunchentoot:define-easy-handler (vars-disp :uri "/vars") ()
  (setf (hunchentoot:content-type*) "text/plain")
  (format nil "Hey ~{~A ~% ~}~%"
          (list
           (remote-addr*)
           (header-in* :x-forwarded-for)
           (authorization)
           (hunchentoot::iso-time)
           (request-method*)
           (script-name*)
           (query-string*)
           (server-protocol*)
           (return-code*)
           (content-length*)
           (referer)
           (user-agent))))

(hunchentoot:define-easy-handler (visit :uri "/visit") ()
  (sqlite:with-open-database (db "test.db")
    (format nil "you are our visit ~d"
            (insert db
                    :click nil
                    :page (script-name*)
                    :referer (referer)
                    :ip (remote-addr*)
                    :user-agent (user-agent)
                    :title "try"))
    ))


(hunchentoot:define-easy-handler (link :uri "/link") ()
  (with-html-string
    (:doctype)
    (:html
     (:header (:title "hu yu ipi"))
     (:body
      (:p "learning "
          (:a :href "vars" "some explodiert")
          (:a :href "visit" "count visit"))))
    ))