fixes; first version

[rrq/hourglass.git] / listener.lsp

diff --git a/listener.lsp b/listener.lsp
index ceefed46da0b86bfec0e5549aebce86f6b9f9e40..388486f6a14d5badcd5ff10e392fbc58d1facf60 100644 (file)
--- 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