X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=listener.lsp;h=388486f6a14d5badcd5ff10e392fbc58d1facf60;hb=refs%2Fheads%2Fmaster;hp=ceefed46da0b86bfec0e5549aebce86f6b9f9e40;hpb=4466d2ec250322c1b603d041703259586e213b22;p=rrq%2Fhourglass.git

diff --git a/listener.lsp b/listener.lsp
index ceefed4..388486f 100644
--- a/listener.lsp
+++ b/listener.lsp
@@ -33,10 +33,10 @@
 # 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:listener.tundev "u")
+ 'IFD (open SITE:tundev "u")
  'ACTNAMEFMT "%d%02d%02d-network.dat"
  'ACTDIR SITE:listener.activity.dir
  'ACTFILEFMT (format "%s/%s" ACTDIR ACTNAMEFMT )
@@ -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