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/server.lisp | |
| parent | b9901f220007bda328427db8dcbe822bb89c99bc (diff) | |
| download | scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.tar.gz scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.tar.bz2 scratch-bb83ef6079eef26fb82f8578564238297b7c0b91.zip | |
movewebstats
Diffstat (limited to 'webstats/server.lisp')
| -rw-r--r-- | webstats/server.lisp | 23 |
1 files changed, 2 insertions, 21 deletions
diff --git a/webstats/server.lisp b/webstats/server.lisp index 5df77b3..346dc11 100644 --- a/webstats/server.lisp +++ b/webstats/server.lisp @@ -18,30 +18,14 @@ (in-package :webstats) +(defvar *acceptor*) +(defvar *sqlite*) (yesql:import log-queries :from "queries.sql" :as :cl-yesql/sqlite :binding :all-functions) -;; (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")))) - (hunchentoot:define-easy-handler (visit :uri "/visit" :default-request-type :both) (title page referer click) @@ -93,9 +77,6 @@ (then #'response-to-json) (then #'plot))))))))))) -(defvar *acceptor*) -(defvar *sqlite*) - (defun start-server (port) (setf *acceptor* (make-instance 'hunchentoot:easy-acceptor :port port)) |