Changeset 2777
- Timestamp:
- 03/22/08 10:26:52 (10 months ago)
- Files:
-
- trunk/bknr/modules/stats/stats-handler.lisp (modified) (2 diffs)
- trunk/bknr/modules/stats/stats.lisp (modified) (3 diffs)
- trunk/bknr/web/src/web/handlers.lisp (modified) (1 diff)
- trunk/projects/lisp-ecoop/src/lisp-ecoop.asd (modified) (1 diff)
- trunk/projects/lisp-ecoop/src/webserver.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/modules/stats/stats-handler.lisp
r2430 r2777 30 30 (let ((errorstr (web-server-error-event-error event))) 31 31 (if (> (length errorstr) 25) 32 (concatenate 'string (subseq errorstr 0 25) "...")32 (concatenate 'string (subseq* errorstr 0 25) "...") 33 33 errorstr)))))))))) 34 34 … … 100 100 (:tr (:td) (:td (:princ-safe hit-name)) (:td "Percent") (:td (:princ-safe name))) 101 101 (loop for i from 1 102 for (thing . hits) in (subseq list 0 num)102 for (thing . hits) in (subseq* list 0 num) 103 103 for percent = (/ (round (* (/ hits total-hits) 100.0) 0.01) 100.0) 104 104 do (html (:tr (:td (:princ-safe i) ".") trunk/bknr/modules/stats/stats.lisp
r1703 r2777 72 72 (sort (remove nil (hash-to-list hour-hash) :key #'car) 73 73 #'< :key #'car) 74 (subseq (remove nil (hash-to-list url-hash) :key #'car) 0 20)75 (subseq (remove nil (hash-to-list referer-hash) :key #'car) 0 20)76 (subseq (remove nil (hash-to-list user-agent-hash) :key #'car) 0 20))))74 (subseq* (remove nil (hash-to-list url-hash) :key #'car) 0 20) 75 (subseq* (remove nil (hash-to-list referer-hash) :key #'car) 0 20) 76 (subseq* (remove nil (hash-to-list user-agent-hash) :key #'car) 0 20)))) 77 77 78 78 (defun analyze-sessions (events) … … 82 82 #'(lambda (event) (ignore-errors (host-name (web-visitor-event-host event))))) 83 83 (values session-sum 84 (subseq (hash-to-list user-hash) 0 20)85 (subseq (hash-to-list host-hash) 0 20))))84 (subseq* (hash-to-list user-hash) 0 20) 85 (subseq* (hash-to-list host-hash) 0 20)))) 86 86 87 87 (defun make-daily-stats (day month year &key remove-referer-hosts remove-urls delete-events) … … 137 137 (incf-hash (car elt) hash (cdr elt)))) 138 138 (if count 139 (subseq (hash-to-list hash) 0 count)139 (subseq* (hash-to-list hash) 0 count) 140 140 (hash-to-list hash))))) 141 141 (make-instance 'log-stats trunk/bknr/web/src/web/handlers.lisp
r2720 r2777 315 315 ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to"))) 316 316 317 (defmethod initialize-instance :after ((handler redirect-handler) &key to) 318 (assert (equal #\/ (aref to 0)) 319 () "path ~S provided as target to redirect-handler does not begin with a slash" 320 to)) 321 317 322 (defmethod handle ((page-handler redirect-handler)) 318 323 (redirect (redirect-handler-to page-handler))) trunk/projects/lisp-ecoop/src/lisp-ecoop.asd
r2559 r2777 19 19 :depends-on (:bknr.datastore 20 20 :bknr.web 21 :bknr.modules 21 22 :closer-mop 22 23 :cl-smtp trunk/projects/lisp-ecoop/src/webserver.lisp
r2548 r2777 23 23 ("http://bknr.net" . :bknr.web) 24 24 ("http://bknr.net/menu" . :bknr.site-menu)) 25 :handler-definitions `(user images 26 #+(or) stats 25 :handler-definitions `(user 26 images 27 #+(or) stats 27 28 #+(or) mailinglist 28 29 #+(or) mailinglist-registration 29 30 participants schedule 30 ("/" redirect-handler 31 :to "home") 31 ("/" redirect-handler :to "/home") 32 32 ("/static" directory-handler 33 33 :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*))))
