jami/jami-daemon
1
0
Fork 0
mirror of https://git.jami.net/savoirfairelinux/jami-daemon.git synced 2025-08-12 22:09:25 +08:00
Code Issues Projects Releases Wiki Activity

agent: Add logging to (agent) and examples

Browse Source 
Change-Id: I39c2bca72f8b6feb1578aecf32f97738eadfd235
This commit is contained in:
Olivier Dion
2021-10-15 10:36:35 -04:00
committed by Adrien Béraud
parent 7a71ff44b2
commit 490384875e
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/agent/examples/active-agent.scm
View File

@ -8,9 +8,11 @@
((agent) #:prefix agent:)
((jami account) #:prefix account:)
((jami signal) #:prefix jami:)
((jami call) #:prefix call:))
((jami call) #:prefix call:)
((jami logger) #:prefix jami:))
(define (make-a-call from to)
(jami:info "Placing call from:~a to:~a" from to)
(let ((mtx (make-mutex))
(cnd (make-condition-variable))
(this-call-id "")
@ -53,7 +55,9 @@
(while #t
(begin
(make-a-call agent:account-id "bcebc2f134fc15eb06c64366c1882de2e0f1e54f")
(jami:info "Disabling account")
(account:send-register agent:account-id #f)
(sleep 30)
(jami:info "Enabling account")
(account:send-register agent:account-id #t)
(sleep 30)))

9
test/agent/examples/passive-agent.scm
View File

@ -5,15 +5,16 @@
(use-modules ((agent) #:prefix agent:)
((jami signal) #:prefix jami:)
((jami call) #:prefix call:))
((jami call) #:prefix call:)
((jami logger) #:prefix jami:))
(agent:ensure-account)
(jami:on-signal 'incomming-call
(lambda (account-id call-id peer-display-name media-list)
(when (string= account-id agent:account-id)
(format #t
"Incoming [call:~a] from peer ~a~%"
call-id peer-display-name)
(jami:info
"Incoming [call:~a] from peer ~a~%"
call-id peer-display-name)
(call:accept call-id media-list))
#t))