[dynamic] Guard some functions behind %debug-enabled

1 files changed, 12 insertions, 7 deletions

diff --git a/jakob/dynamic/util.scm b/jakob/dynamic/util.scm
index e34ae91..f18c497 100644
--- a/jakob/dynamic/util.scm
+++ b/jakob/dynamic/util.scm
@@ -16,6 +16,7 @@
 
 (define-module (jakob dynamic util)
   #:use-module (ice-9 match)
+  #:use-module (jakob dynamic config)
   #:use-module (rnrs bytevectors)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
@@ -117,16 +118,20 @@ to express my God-given constitutional rights!"
 
 (define (from-tor? request)
   "Return whether or not REQUEST was sent by the Tor daemon"
-  (let ((originating-ip (assoc-ref (request-headers request) 'x-forwarded-for)))
-    (or (string=? "127.0.0.1" originating-ip)
-        (string=? "::1" originating-ip))))
+  (if (%debug-enabled)
+      #f
+      (let ((originating-ip (assoc-ref (request-headers request) 'x-forwarded-for)))
+        (or (string=? "127.0.0.1" originating-ip)
+            (string=? "::1" originating-ip)))))
 
 (define (from-i2p? request)
   "Return whether or not REQUEST was sent by i2pd"
-  (let ((originating-ip (assoc-ref (request-headers request) 'x-forwarded-for)))
-    (and (or (string-prefix? "127." originating-ip)
-             (string-suffix? ":1" originating-ip))
-         (not (from-tor? request)))))
+  (if (%debug-enabled)
+      #f
+      (let ((originating-ip (assoc-ref (request-headers request) 'x-forwarded-for)))
+        (and (or (string-prefix? "127." originating-ip)
+                 (string-suffix? ":1" originating-ip))
+             (not (from-tor? request))))))
 
 (define (from-darknet? request)
   "Return whether or not REQUEST was sent by a darknet tunnel"