Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add python dir to extra_dist.
[doldaconnect.git]
/
lib
/
guile
/
hubmgr
diff --git
a/lib/guile/hubmgr
b/lib/guile/hubmgr
index
daa5482
..
94b0e3f
100755
(executable)
--- a/
lib/guile/hubmgr
+++ b/
lib/guile/hubmgr
@@
-82,7
+82,8
@@
(dc-ecmd-assert 200 "notify" "fn:act" "on")
(dc-handle-fn)
(dc-fnproc-reg 'state (lambda (fn)
(dc-ecmd-assert 200 "notify" "fn:act" "on")
(dc-handle-fn)
(dc-fnproc-reg 'state (lambda (fn)
- (if (eq? (cdr (assq 'state fn)) 'dead)
+ (if (and (eq? (cdr (assq 'state fn)) 'dead)
+ (assq (cdr (assq 'id fn)) (map (lambda (o) (cons (cdr o) (car o))) connlist)))
(begin (logf "~a died" (cdr (assq 'id fn)))
(dc-qcmd (list "dcnct" (cdr (assq 'id fn))))))
(cklist)))
(begin (logf "~a died" (cdr (assq 'id fn)))
(dc-qcmd (list "dcnct" (cdr (assq 'id fn))))))
(cklist)))