X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=listener.lsp;h=388486f6a14d5badcd5ff10e392fbc58d1facf60;hb=a0971e1ea5dd4963e51a5dd0c24d90c443c1dc84;hp=6652ed456c22f928cd2d7df78fbeb98ebd1aa263;hpb=71a0489975b6126f6a3129d1837b63912c4c427a;p=rrq%2Fhourglass.git

diff --git a/listener.lsp b/listener.lsp
index 6652ed4..388486f 100644
--- a/listener.lsp
+++ b/listener.lsp
@@ -33,7 +33,7 @@
 # default. Then make a TUNSETIFF call to initialize it (as
 # IFF_TAP|IFF_NO_PI).
 (constant
- 'listener-log-ip SITE:listener.ip
+ 'listener-log-ip SITE:listener.log.ip
  'IFNAME SITE:listener.tap
  'PORTS SITE:listener.ports
  'IFD (open SITE:tundev "u")
@@ -116,8 +116,8 @@
 
 (define (udp-handler) ; buffer ihl
   (let ((ports (map ntohs (unpack "uu" ((+ ihl 14) buffer)))))
-    (when (intersect ports PORTS) (mark-active (date-value)))))
-    
+    (when PORTS (intersect ports PORTS) (mark-active (date-value)))))
+
 # Handle an IPv4 packet. It recognises the IPv4 protocol concerned,
 # and dispatches to the associated handler, if any.
 (define (ipv4-handler) ; buffer