diff options
Diffstat (limited to 'webstats/logparse.lisp')
| -rw-r--r-- | webstats/logparse.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/webstats/logparse.lisp b/webstats/logparse.lisp index 71864d8..b7e0577 100644 --- a/webstats/logparse.lisp +++ b/webstats/logparse.lisp @@ -26,7 +26,7 @@ (ppcre:register-groups-bind ((#'parse-integer date) month (#'parse-integer year hour min sec)) ("(\\d{2})/(\\w{3})/(\\d{4}):(\\d{2}):(\\d{2}):(\\d{2})" timestr) (- - (encode-universal-time sec min hour date (gethash month +short-month-names+) year) + (encode-universal-time sec min hour date (gethash month +short-month-names+) year 0) #.(encode-universal-time 0 0 0 1 1 1970 0)))) (= (time-to-posix "02/Mar/2025:00:00:16 +0000") 1740870016) @@ -37,7 +37,6 @@ "20.171.207.185 - - [02/Mar/2025:00:00:16 +0000] \"GET /pub/hi/scratch/plain/AoC2023/day02/input?h=simpler&id=e2f5b6c2d5bb67013ba1b612252781e4cd9b6fe1 HTTP/1.1\" 200 7017 \"-\" \"Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; GPTBot/1.2; +https://openai.com/gptbot)\"") (list ip remote-log userid date method path version status length referrer agent)) - (defvar *sqlite* (sqlite:connect "/scratch/titan/apache2/cgit-logs.sqlite")) (sqlite:disconnect *sqlite*) |