mirror of
https://git.jami.net/savoirfairelinux/jami-daemon.git
synced 2025-08-12 22:09:25 +08:00
21 lines
730 B
Scheme
21 lines
730 B
Scheme
;;; This is an example of a passive agent.
|
|
;;;
|
|
;;; The passive agent ensure that an account is created and then wait for
|
|
;;; incomming call of any peer.
|
|
|
|
(use-modules ((agent) #:prefix agent:)
|
|
((jami signal) #:prefix jami:)
|
|
((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)
|
|
(jami:info
|
|
"Incoming [call:~a] from peer ~a~%"
|
|
call-id peer-display-name)
|
|
(call:accept call-id media-list))
|
|
#t))
|