(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"))))))