forked from cadence/breezewiki
55 lines
1.7 KiB
Racket
55 lines
1.7 KiB
Racket
|
#lang typed/racket/base
|
||
|
|
(require racket/file
|
||
|
|
racket/port
|
||
|
|
racket/runtime-path
|
||
|
|
racket/string
|
||
|
|
typed/srfi/19
|
||
|
|
"config.rkt")
|
||
|
|
|
||
|
|
(provide
|
||
|
|
log-page-request
|
||
|
|
log-styles-request
|
||
|
|
log-set-settings-request)
|
||
|
|
|
||
|
|
(define last-flush 0)
|
||
|
|
(define flush-every-millis 60000)
|
||
|
|
|
||
|
|
(define-runtime-path log-file "../storage/logs/access-0.log")
|
||
|
|
(define log-port
|
||
|
|
(if (config-true? 'access_log::enabled)
|
||
|
|
(begin
|
||
|
|
(make-directory* (simplify-path (build-path log-file 'up)))
|
||
|
|
(open-output-file log-file #:exists 'append))
|
||
|
|
(open-output-nowhere)))
|
||
|
|
|
||
|
|
(: get-date-iso8601 (-> String))
|
||
|
|
(define (get-date-iso8601)
|
||
|
|
(date->string (current-date 0) "~5"))
|
||
|
|
|
||
|
|
(: offline-string (Boolean -> String))
|
||
|
|
(define (offline-string offline?)
|
||
|
|
(if offline? "---" "ooo"))
|
||
|
|
|
||
|
|
(: log (String * -> Void))
|
||
|
|
(define (log . entry)
|
||
|
|
;; create log entry string
|
||
|
|
(define full-entry (cons (get-date-iso8601) entry))
|
||
|
|
;; write to output port
|
||
|
|
(displayln (string-join full-entry ";") log-port)
|
||
|
|
;; flush output port to file (don't do this too frequently)
|
||
|
|
(when ((- (current-milliseconds) last-flush) . >= . flush-every-millis)
|
||
|
|
(flush-output log-port)
|
||
|
|
(set! last-flush (current-milliseconds))))
|
||
|
|
|
||
|
|
(: log-page-request (Boolean String String (U 'light 'dark 'default) -> Void))
|
||
|
|
(define (log-page-request offline? wikiname title theme)
|
||
|
|
(log "page" (offline-string offline?) wikiname title (symbol->string theme)))
|
||
|
|
|
||
|
|
(: log-styles-request (Boolean String String -> Void))
|
||
|
|
(define (log-styles-request offline? wikiname basename)
|
||
|
|
(log "style" (offline-string offline?) wikiname basename))
|
||
|
|
|
||
|
|
(: log-set-settings-request (Symbol -> Void))
|
||
|
|
(define (log-set-settings-request theme)
|
||
|
|
(log "settings" (symbol->string theme)))
|