From 53ffc88be0031b924f4e2e3fd825e663504aeb30 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 23 Apr 2020 11:41:09 -0700 Subject: [PATCH] akas for localhost --- pollen/private/project-server-routes.rkt | 7 ++++--- pollen/private/ts.rktd | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/pollen/private/project-server-routes.rkt b/pollen/private/project-server-routes.rkt index ec1c19d..928259a 100644 --- a/pollen/private/project-server-routes.rkt +++ b/pollen/private/project-server-routes.rkt @@ -58,15 +58,16 @@ ;; print message to console about a request (define/contract (logger req) (request? . -> . void?) - (define localhost-client "::1") + (define localhost-names '("::1" "fe80::1%lo0" "127.0.0.1")) (define url-string (url->string (request-uri req))) (unless (ends-with? url-string "favicon.ico") (message (match url-string [(regexp #rx"/$") (string-append url-string " directory default page")] [_ (string-replace url-string (setup:main-pagetree) " dashboard")]) (match (request-client-ip req) - [(== localhost-client) ""] - [client (format "from ~a" client)])))) + [client #:when (not (member client localhost-names)) + (format "from ~a" client)] + [_ ""])))) ;; pass string args to route, then ;; package route into right format for web server diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index b2cceca..d064ade 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1587564275 +1587667269