Update to redirect logs to a file in /var/log/tomd

[tlb/tomd.git] / guile / tomd / job.scm

diff --git a/guile/tomd/job.scm b/guile/tomd/job.scm
index 94b0a9f..51492c0 100644 (file)
--- a/guile/tomd/job.scm
+++ b/guile/tomd/job.scm
@@ -22,12 +22,14 @@
             job-args c-job-args
             job-start-trigger c-job-start-trigger
             job-end-trigger c-job-end-trigger
+            job-name c-job-name
             c-check-job))
 
 ;;; records
 (define-record-type <job>
-  (make-job command-line args start-trigger end-trigger)
+  (make-job name command-line args start-trigger end-trigger)
   job?
+  (name job-name)
   (command-line job-command-line)
   (args job-args)
   (start-trigger job-start-trigger)
@@ -49,6 +51,9 @@
 (define (c-job-end-trigger obj)
   (job-end-trigger obj))
 
+(define (c-job-name obj)
+  (job-name obj))
+
 ;;; functions
 (define (get-keyword-value args keyword default)
   (let ((keyword-value (memq keyword args)))
@@ -60,7 +65,8 @@
   (let ((command-line  (get-keyword-value rest #:command-line  #f))
         (args          (get-keyword-value rest #:args          (list)))
         (start-trigger (get-keyword-value rest #:start-trigger 'login))
-        (end-trigger   (get-keyword-value rest #:end-trigger   #f)))
+        (end-trigger   (get-keyword-value rest #:end-trigger   #f))
+        (name          (get-keyword-value rest #:name          #f)))
     ;; do thing with keyword-ed variables
     ;; (display "settings:") (newline)
     ;; (format (current-output-port)
@@ -77,7 +83,8 @@
     ;; (newline)
 
     ;; create a new object that represents the args given.
-    (make-job command-line
+    (make-job name
+              command-line
               args
               start-trigger
               end-trigger)