diff options
Diffstat (limited to 'webstats/server.lisp')
| -rw-r--r-- | webstats/server.lisp | 19 |
1 files changed, 12 insertions, 7 deletions
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) |