[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 09/49: examples/web: Connect to the DHT service.
From: |
gnunet |
Subject: |
[gnunet-scheme] 09/49: examples/web: Connect to the DHT service. |
Date: |
Sat, 25 Dec 2021 22:59:46 +0100 |
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.
- [gnunet-scheme] branch master updated (6c136b9 -> 5c7bf08), gnunet, 2021/12/25
- [gnunet-scheme] 04/49: dht/struct: New module., gnunet, 2021/12/25
- [gnunet-scheme] 01/49: Rename messge type 156., gnunet, 2021/12/25
- [gnunet-scheme] 06/49: dht/client: Implement message verifiers., gnunet, 2021/12/25
- [gnunet-scheme] 02/49: bv-slice: Support signed integers., gnunet, 2021/12/25
- [gnunet-scheme] 05/49: Define block types., gnunet, 2021/12/25
- [gnunet-scheme] 03/49: netstruct/procedural: Support signed integers., gnunet, 2021/12/25
- [gnunet-scheme] 08/49: examples: Consider extending the web interface with other services., gnunet, 2021/12/25
- [gnunet-scheme] 07/49: dht/client: Implement reconnecting., gnunet, 2021/12/25
- [gnunet-scheme] 09/49: examples/web: Connect to the DHT service.,
gnunet <=
- [gnunet-scheme] 10/49: dht/client: Register new get operations for processing., gnunet, 2021/12/25
- [gnunet-scheme] 12/49: dht/client: Send messages for new get operations., gnunet, 2021/12/25
- [gnunet-scheme] 13/49: dht/client: Send PUT messages., gnunet, 2021/12/25
- [gnunet-scheme] 24/49: examples/web: Put different information on separate pages., gnunet, 2021/12/25
- [gnunet-scheme] 20/49: dht/client: Call the callback on the client result., gnunet, 2021/12/25
- [gnunet-scheme] 17/49: dht/struct: Fix typo in synopsis., gnunet, 2021/12/25
- [gnunet-scheme] 14/49: Merge branch 'master' into dht, gnunet, 2021/12/25
- [gnunet-scheme] 22/49: examples/web: Make a non-functional web form for searching the DHT., gnunet, 2021/12/25
- [gnunet-scheme] 27/49: examples/web: Process DHT insertion forms., gnunet, 2021/12/25
- [gnunet-scheme] 40/49: examples/web: Don't hash the data., gnunet, 2021/12/25