[gnunet-scheme] 02/02: examples/web: Stub a form for connecting via CADET.

[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 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.