[webstats] define system and package image

1 files changed, 32 insertions, 0 deletions

diff --git a/webstats/scratch.lisp b/webstats/scratch.lisp
new file mode 100644
index 0000000..b66310c
--- /dev/null
+++ b/webstats/scratch.lisp
@@ -0,0 +1,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"))))))