# 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 )
(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