(define actions '())

(lambda (self objects options)
  (if (null? objects)
      ;;itself actions
      (let ((action (cond-plistq 'action options "write")))
        (cond
         ((string=? action "write")
          (let ((log (cond-plistq 'file options "/tmp/autoinstall.scm")))
            (or (null? actions)
                (call-with-output-file
                    (cond-plistq 'file options "/root/autoinstall.scm")
                  (lambda(port)
                        (map (lambda(x) (write x port) (newline port)) (reverse actions))
                        (set! actions '()))))
            '() ))
         (else (woo-throw "unknown action for autoinstall backend"))))
      (begin (set! actions (cons (cons objects options) actions))
             '())))

