diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2025-03-17 23:23:40 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2025-03-17 23:23:52 +0100 |
| commit | bb83ef6079eef26fb82f8578564238297b7c0b91 (patch) | |
| tree | 64789af039696d7ba91e7ecc58dc482b4d803584 /webstats/scratch.lisp | |
| parent | b9901f220007bda328427db8dcbe822bb89c99bc (diff) | |
| download | scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.tar.gz scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.tar.bz2 scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.zip | |
movewebstats
Diffstat (limited to 'webstats/scratch.lisp')
| -rw-r--r-- | webstats/scratch.lisp | 19 |
1 files changed, 18 insertions, 1 deletions
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")))) |