[webstats] define system and package image

1 files changed, 37 insertions, 44 deletions

diff --git a/webstats/server.lisp b/webstats/server.lisp
index 6c74b3e..b0b18d0 100644
--- a/webstats/server.lisp
+++ b/webstats/server.lisp
@@ -1,5 +1,3 @@
-(ql:quickload '(hunchentoot spinneret cl-yesql cl-yesql/sqlite parenscript cl-json))
-
 (defpackage :webstats
   (:use :common-lisp :hunchentoot :spinneret))
 
@@ -17,12 +15,12 @@
 (ps::defprinter ps-js::for-of (var object body-block)
                 "for (const "(ps::ps-print var)" of "(ps::ps-print object)") "
                 (ps::ps-print body-block))
+
 (in-package :webstats)
 
-(overlord:set-package-base "/home/titan/dev/scratch/webstats/")
 
 (yesql:import log-queries
-  :from "/home/titan/dev/scratch/webstats/queries.sql"
+  :from "queries.sql"
   :as :cl-yesql/sqlite
   :binding :all-functions)
 
@@ -39,29 +37,6 @@
 ;;           :user-agent "sly"
 ;;           :title "try"))
 
-
-(defvar *acceptor* (make-instance 'hunchentoot:easy-acceptor
-                                  :port 4252))
-
-(hunchentoot:start *acceptor*)
-
-(hunchentoot:define-easy-handler (vars-disp :uri "/vars") ()
-  (setf (hunchentoot:content-type*) "text/plain")
-  (format nil "Hey ~{~A ~% ~}~%"
-          (list
-           (remote-addr*)
-           (header-in* :x-forwarded-for)
-           (authorization)
-           (hunchentoot::iso-time)
-           (request-method*)
-           (script-name*)
-           (query-string*)
-           (server-protocol*)
-           (return-code*)
-           (content-length*)
-           (referer)
-           (user-agent))))
-
 (hunchentoot:define-easy-handler
     (visit :uri "/visit" :default-request-type :both)
     (title page referer click)
@@ -80,23 +55,6 @@
   (setf (hunchentoot:content-type*) "text/javascript")
   (ps:ps-compile-file "stats.paren"))
 
-(hunchentoot:define-easy-handler (link :uri "/link") ()
-  (with-html-string
-    (:doctype)
-    (:html
-     (:header (:title "hu yu ipi")
-              (:script :src "/stats/stats.js" :type "text/javascript"))
-     (:body
-      (:p "learning "
-          (:a :href "vars" "some explodiert")
-          (:a :href "visit" "count visit"))
-
-      (:form :action "/stats/visit"
-             :method "post"
-             (:input :type "text" :name "title")
-             (:input :type "submit" :value "submit" :name "submit"))))
-    ))
-
 (hunchentoot:define-easy-handler (metric :uri "/metric.json") (q)
   (setf (hunchentoot:content-type*) "application/json")
   (sqlite:with-open-database (db "test.db")
@@ -126,3 +84,38 @@
              (ps:chain (fetch "/stats/metric.json")
                        (then #'response-to-json)
                        (then #'plot)))))))))))
+
+(defvar *acceptor*)
+
+(defun start-server (port)
+  (setf *acceptor*
+        (make-instance 'hunchentoot:easy-acceptor :port port))
+  (hunchentoot:start *acceptor*))
+
+(defun main ()
+  (let ((port (parse-integer (or (uiop:getenv "PORT")
+                                 "4252"))))
+    (start-server port)
+    (format *standard-output* "Hunchentoot server started on port ~d.~&" port)
+    (handler-case (bt:join-thread
+                   (find-if (lambda (th)
+                              (search "hunchentoot" (bt:thread-name th)))
+                            (bt:all-threads)))
+      ;; Catch a user's C-c
+      (#+sbcl sb-sys:interactive-interrupt
+       #+ccl  ccl:interrupt-signal-condition
+       #+clisp system::simple-interrupt-condition
+       #+ecl ext:interactive-interrupt
+       #+allegro excl:interrupt-signal
+       () (progn
+            (format *error-output* "Aborting.~&")
+            (hunchentoot:stop *acceptor*)
+            (uiop:quit)))
+      (error (c) (format t "Woops, an unknown error occured:~&~a~&" c)))))
+
+(defun create-static-assets ()
+  (let ((ps:*ps-print-pretty* nil))
+    (with-open-file (ps:*parenscript-stream*
+                     "stats.js" :direction :output
+                     :if-exists :supersede)
+      (ps:ps-compile-file "stats.paren"))))