'ACTDIR SITE:listener.activity.dir
'CONTROL.DAT SITE:control.dat
'EXTRA.DAT SITE:control.extra.dat
- 'USAGE.DAT SITE:usage.dat
- 'USAGE.TMP SITE:usage.tmp
+ 'USAGE.DAT SITE:control.usage.dat
+ 'USAGE.TMP SITE:control.usage.tmp
+ 'ACTION SITE:control.action
)
# Set current time variables in local timezone
)
# Load CONTROL.DAT
-# ( (control "file") (gap minutes) ( weekday start limit stop ) ... )
+# (( weekday start limit stop ) ... )
(setf CONTROL (read-expr (or (read-file CONTROL.DAT)
(die "** Missing " CONTROL.DAT " ** Exiting."))
))
+
+(write-line 2 (string (list CONTROL DOW)))
+
(map set '(dow MODE START LIMIT END)
(or (assoc DOW CONTROL)
(assoc 'policy CONTROL)
)
# Load the configured control mechanism
-(if (lookup 'control CONTROL) (load $it)
+(if (file? ACTION) (load ACTION)
(die "** Unknown control mechanism. Exiting!!"))
(unless control
- (die "** Control function (control cmd reason) not defined. Exiting!!"))
+ (die "** Control function (control cmd reason) not defined. Exiting!!"))
;; Apply control command with reason, then exit
(define (do-control x r) (control x r) (exit 0))