From b9901f220007bda328427db8dcbe822bb89c99bc Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Mon, 10 Feb 2025 13:29:17 +0100
Subject: add new visit row with foreign key preview

---
 webstats/server.lisp | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'webstats/server.lisp')

diff --git a/webstats/server.lisp b/webstats/server.lisp
index 3fe237a..5df77b3 100644
--- a/webstats/server.lisp
+++ b/webstats/server.lisp
@@ -29,13 +29,18 @@
 ;;   (create-stats-table db))
 
 ;; (sqlite:with-open-database (db "test.db")
-;;   (insert db
-;;           :click nil
-;;           :page "ho"
-;;           :referer "ref"
-;;           :ip "13"
-;;           :user-agent "sly"
-;;           :title "try"))
+;;   (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"))))
 
 (hunchentoot:define-easy-handler
     (visit :uri "/visit" :default-request-type :both)
-- 
cgit v1.2.3