(define (autodl-main args)
(let ((dc-server #f) (done #f) (retval 0) (filterexit ""))
- (let ((getopt (make-getopt (cdr args) "whs:S:e:p:t:a:I:")) (arg #f))
+ (let ((getopt (make-getopt (cdr args) "whs:S:e:p:t:a:I:E:")) (arg #f))
(do ((arg (getopt) (getopt))) ((not (and (pair? arg) (char? (car arg)))) (set! args arg))
(cond ((eq? (car arg) #\h)
(begin (display "usage: autodl [-s server] -S sessfile\n" (current-error-port))
(let* ((ires (dc-intresp resp)) (tr (and ires (assoc (car ires) trans))))
(if tr
(begin (if (eq? (cdr (assoc 'state (cdr tr))) 'done)
- (begin (logf (string-append "transfer " (number->string (car ires)) " done"))
+ (begin (logf (string-append "transfer " (number->string (car ires)) " done (" (cadr ires) ")"))
(set! trans (assq-remove! trans (car ires)))
(set! done #t)
- (set! filterexit (cadr tr))
+ (set! filterexit (cadr ires))
(throw 'sig 0))
(begin (logf (string-append "transfer " (number->string (car ires)) " disappeared"))
(set! trans (assq-remove! trans (car ires)))))))))
(logf "forcing quit")))
(if (assoc 'estat-file session)
(let ((op (open-output-file (cdr (assoc 'estat-file session)))))
- (write filterexit op)
+ (display filterexit op)
(newline op)
(close-port op)))
(exit retval)