[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 02/02: examples/web: Stub a form for connecting via CADE
From: |
gnunet |
Subject: |
[gnunet-scheme] 02/02: examples/web: Stub a form for connecting via CADET. |
Date: |
Thu, 17 Mar 2022 20:28:34 +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 fba3c95372ac324759ec7811202690eeb5d4286a
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Mar 8 10:28:27 2022 +0000
examples/web: Stub a form for connecting via CADET.
* examples/web.scm (cadet-start-chat-form): New HTML form.
(cadet-chat-forms): New procedure.
(url-handler): Add 'cadet-server' argument. Rename 'server' to
'nse-server'.
(url-handler)[/]: Add a link for CADET.
(url-handler)[/network-size]: Adjust to new arguments.
(url-handler)[/cadet-chat]: New case.
(start)[©adet-server]: New variable.
(start)[url-handler*]: Adjust to new signature.
---
examples/web.scm | 29 ++++++++++++++++++++++++++---
1 file changed, 26 insertions(+), 3 deletions(-)
diff --git a/examples/web.scm b/examples/web.scm
index c73094b..d598118 100644
--- a/examples/web.scm
+++ b/examples/web.scm
@@ -96,6 +96,20 @@ for success is used."
(input (@ (type "text") (id "put-data") (name "data")))))
(input (@ (type "submit") (value "Put it into the DHT")))))
+(define cadet-start-chat-form
+ `(form
+ (@ (action "/start-cadet-chat") (method "post"))
+ (ul (li (label (@ (for "cadet-start-peer"))
+ "Identity of remote peer to connect to")
+ (input (@ (type "text") (id "cadet-start-peer") (name "peer"))))
+ (li (label (@ (for "cadet-port-name"))
+ "Name of the port to connect to (as a string)")
+ (input (@ (type "text") (id "cadet-port-name") (name "port")))))
+ (input (@ (type "submit") (value "Connect!")))))
+
+(define (cadet-chat-forms)
+ `(p "TODO!"))
+
(define (estimate->html estimate)
`(dl (dt "Timestamp")
(dd ,(number->string (nse:estimate:timestamp estimate)))
@@ -206,11 +220,12 @@ merely a race?")))
(slice-copy! slice s)
s)
-(define (url-handler dht-server server request body)
+(define (url-handler dht-server nse-server cadet-server request body)
(match (uri-path (request-uri request))
("/" (respond/html
`(div (p "A few links")
(ul (li (a (@ (href "/network-size")) "network size"))
+ (li (a (@ (href "/cadet-chat")) "basic chatting via CADET"))
(li (a (@ (href "/search-dht")) "search the DHT")
(li (a (@ (href "/put-dht")) "add things to the
DHT")))))))
("/reload" ; TODO form with PUT request?
@@ -218,10 +233,17 @@ merely a race?")))
(respond/html "reloaded!"))
("/network-size"
(respond/html
- (let ((current-estimate (nse:estimate server)))
+ (let ((current-estimate (nse:estimate nse-server)))
(if current-estimate
(estimate->html current-estimate)
'(p "No etimate yet")))))
+ ("/cadet-chat"
+ (respond/html `(div (p "You can only connect to a chat here, not start
new ones")
+ (p "Run gnunet-cadet --open-port=PORT to run a new
chat!")
+ (p "Connect to a chat!")
+ ,cadet-start-chat-form
+ (p "participate in a chat!")
+ ,@(cadet-chat-forms))))
("/search-dht" ; TODO check method and Content-Type, validation ...
(if (pk 'b body)
(process-search-dht dht-server (urlencoded->alist body))
@@ -237,10 +259,11 @@ merely a race?")))
(define (start config)
(define nse-server (nse:connect config))
(define dht-server (dht:connect config))
+ (define cadet-server (dht:connect config))
(define impl (lookup-server-impl 'fiberized))
(define server (open-server impl `(#:port 8089)))
(define (url-handler* request body)
- (url-handler dht-server nse-server request body))
+ (url-handler dht-server nse-server cadet-server request body))
(let loop ()
(let-values (((client request body)
(read-client impl server)))
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.