blob: b66310c1bfb7642d2393f0ae2d6585c8d3fc1b9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(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"))))))
|
