diff --git a/test/agent/agent.scm b/test/agent/agent.scm index 2a8266d94639b4772c653c17f745b88958991125..38877a50a30894f7092bfd9180e9570696b2ce4a 100644 --- a/test/agent/agent.scm +++ b/test/agent/agent.scm @@ -18,6 +18,7 @@ (define-module (agent) #:use-module (ice-9 threads) + #:use-module ((jami logger) #:prefix jami:) #:use-module ((jami account) #:prefix account:) #:use-module ((jami call) #:prefix call:) #:use-module ((jami signal) #:prefix jami:) @@ -53,6 +54,7 @@ (fluid-set! peer-id (assoc-ref details "Account.username")))) (define* (ensure-account #:key (wait-for-announcement? #t)) + (jami:info "Ensure account") (ensure-account% (fluid-ref account-id) '(("Account.type" . "RING") ("Account.displayName" . "AGENT") ("Account.alias" . "AGENT") @@ -62,6 +64,7 @@ wait-for-announcement?)) (define* (ensure-account-from-archive path #:key (wait-for-announcement? #t)) + (jami:info "Ensure account from archive ~a" path) (ensure-account% (fluid-ref account-id) `(("Account.type" . "RING") ("Account.displayName" . "AGENT") ("Account.alias" . "AGENT") diff --git a/test/agent/examples/active-agent.scm b/test/agent/examples/active-agent.scm index 90eada6256252ceaf9c7f3454b46f308281cca66..35a02a105f0cad260b7fc415cfaf1c855bae13a3 100644 --- a/test/agent/examples/active-agent.scm +++ b/test/agent/examples/active-agent.scm @@ -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))) diff --git a/test/agent/examples/passive-agent.scm b/test/agent/examples/passive-agent.scm index 20e6c1edbd31e511de9223a61b815c406ffa7461..cd7dc9ab24f423f98485d0bd8c2bc12a599e508c 100644 --- a/test/agent/examples/passive-agent.scm +++ b/test/agent/examples/passive-agent.scm @@ -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))