akas for localhost

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 #:when (not (member client localhost-names))
-               [client (format "from ~a" client)]))))
+                       (format "from ~a" client)]
+               [_ ""]))))
 
 ;; pass string args to route, then
 ;; package route into right format for web server

pollen/private/ts.rktd

@@ -1 +1 @@
-1587564275
+1587667269