From 5b0e2eb19bb432e4e170d9bdb1cb8169d526801f Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sun, 9 Feb 2025 21:28:34 +0100
Subject: [webstats] define system and package image

---
 webstats/scratch.lisp | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 webstats/scratch.lisp

(limited to 'webstats/scratch.lisp')

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"))))))
-- 
cgit v1.2.3