From bb83ef6079eef26fb82f8578564238297b7c0b91 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Mon, 17 Mar 2025 23:23:40 +0100
Subject: move

---
 webstats/scratch.lisp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'webstats/scratch.lisp')

diff --git a/webstats/scratch.lisp b/webstats/scratch.lisp
index b66310c..af68eb0 100644
--- a/webstats/scratch.lisp
+++ b/webstats/scratch.lisp
@@ -1,4 +1,3 @@
-
 (hunchentoot:define-easy-handler (vars-disp :uri "/vars") ()
   (setf (hunchentoot:content-type*) "text/plain")
   (format nil "Hey ~{~A ~% ~}~%"
@@ -30,3 +29,21 @@
              :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"))))
-- 
cgit v1.2.3