From 490384875e50c35e010992e84eda0aca25b7f381 Mon Sep 17 00:00:00 2001
From: Olivier Dion <olivier.dion@savoirfairelinux.com>
Date: Fri, 15 Oct 2021 10:36:35 -0400
Subject: [PATCH] agent: Add logging to (agent) and examples
Change-Id: I39c2bca72f8b6feb1578aecf32f97738eadfd235
---
test/agent/agent.scm | 3 +++
test/agent/examples/active-agent.scm | 6 +++++-
test/agent/examples/passive-agent.scm | 9 +++++----
3 files changed, 13 insertions(+), 5 deletions(-)
diff --git a/test/agent/agent.scm b/test/agent/agent.scm
index 2a8266d946..38877a50a3 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 90eada6256..35a02a105f 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 20e6c1edbd..cd7dc9ab24 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))
--
GitLab