(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 (link :uri "/link") ()
  (with-html-string
    (:doctype)
    (:html
     (:header (:title "hu yu ipi")
              (:script :src "/stats/stats.js" :type "text/javascript"))
     (:body
      (:p "learning "
          (:a :href "vars" "some explodiert")
          (:a :href "visit" "count visit"))
      (:form :action "/stats/visit"
             :method "post"
             (:input :type "text" :name "title")
             (:input :type "submit" :value "submit" :name "submit"))))))

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

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