[gnunet-scheme] 09/49: examples/web: Connect to the DHT service.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 6a5c59241461719da88b9f1eb6e90fa366c67643
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Sep 17 17:34:02 2021 +0200

    examples/web: Connect to the DHT service.
    
    * examples/web.scm (start)[dht-server]: New variable.
---
 examples/web.scm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/examples/web.scm b/examples/web.scm
index 8d9d810..be4fa7c 100644
--- a/examples/web.scm
+++ b/examples/web.scm
@@ -9,25 +9,29 @@
             (gnu gnunet config db)
             (gnu gnunet config fs)
             (rnrs hashtables)
-            (gnu gnunet nse client)
+            ((gnu gnunet nse client)
+             #:prefix #{nse:}#)
+            ((gnu gnunet dht client)
+             #:prefix #{dht:}#)
             (web server)
             (srfi srfi-11))
 
 (define config (load-configuration))
 
 (define (url-handler server request body)
-  (define current-estimate (estimate server))
+  (define current-estimate (nse:estimate server))
   (define body
     (if current-estimate
        (format #f "timestamp: ~a~%number peers: ~a~%stddev logarithm: ~a"
-               (estimate:timestamp current-estimate)
-               (estimate:number-peers current-estimate)
-               (estimate:standard-deviation current-estimate))
+               (nse:estimate:timestamp current-estimate)
+               (nse:estimate:number-peers current-estimate)
+               (nse:estimate:standard-deviation current-estimate))
        "no estimate available yet ..."))
   (values '((content-type text/plain)) body #f))
 
 (define (start config)
-  (define nse-server (connect config))
+  (define nse-server (nse:connect config))
+  (define dht-server (dht:connect config))
   (define impl (lookup-server-impl 'fiberized))
   (define server (open-server impl `(#:port 8089)))
   (define (url-handler* request body)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.