[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 26/49: examples/web.scm: Parse the answer to the DHT ins
From: |
gnunet |
Subject: |
[gnunet-scheme] 26/49: examples/web.scm: Parse the answer to the DHT insertion form. |
Date: |
Sat, 25 Dec 2021 23:00:03 +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 4487ea15a6d23cb8f321359ed0bb6fad3bdb3422
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Sep 26 22:02:09 2021 +0200
examples/web.scm: Parse the answer to the DHT insertion form.
* examples/web.scm
(put-form)[action]: Correct target page.
(url-handler): Move the pk to ...
(url-handler)[put-dht]: ... here, and pk the parsed body instead.
---
examples/web.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/examples/web.scm b/examples/web.scm
index 94af733..08693e0 100644
--- a/examples/web.scm
+++ b/examples/web.scm
@@ -21,6 +21,7 @@
(web server)
(web uri)
(web request)
+ (web form)
(srfi srfi-11)
(ice-9 match)
(sxml simple))
@@ -68,7 +69,7 @@
;; TODO: make the form work, defaults, ...
(define put-form
`(form
- (@ (action "/put") (method "post"))
+ (@ (action "/put-dht") (method "post"))
(ul ,@(common-get/put-form-parts "put-")
(li (label (@ (for "put-data-encoding")) "Encoding of data: ")
,(data-encoding-input "data-encoding" "put-data-encoding"))
@@ -85,7 +86,6 @@
(dd ,(number->string (nse:estimate:standard-deviation estimate)))))
(define (url-handler server request body)
- (pk 'r request body)
(match (uri-path (request-uri request))
("/" (respond/html
`(div (p "A few links")
@@ -99,7 +99,9 @@
(estimate->html current-estimate)
'(p "No etimate yet")))))
("/search-dht" (respond/html search-form))
- ("/put-dht" (respond/html put-form))
+ ("/put-dht" ; TODO check method and Content-Type
+ (pk 'parameters (urlencoded->alist body))
+ (respond/html put-form))
(_ (respond/html '(p "not found"))))) ; TODO 404
(define (start config)
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 11/49: config: Define default UNIXPATH for DHT service., (continued)
- [gnunet-scheme] 11/49: config: Define default UNIXPATH for DHT service., gnunet, 2021/12/25
- [gnunet-scheme] 16/49: Merge branch 'master' into dht, gnunet, 2021/12/25
- [gnunet-scheme] 19/49: dht/client: Recognise client result messages., gnunet, 2021/12/25
- [gnunet-scheme] 38/49: examples/web: Implement searching form., gnunet, 2021/12/25
- [gnunet-scheme] 43/49: examples/web: Display UTF-8 keys and data as text., gnunet, 2021/12/25
- [gnunet-scheme] 32/49: crypto: Implement a wrapper for hashing with bytevector slices., gnunet, 2021/12/25
- [gnunet-scheme] 47/49: web: Extract HTTP implementation from Cuirass., gnunet, 2021/12/25
- [gnunet-scheme] 45/49: guix: Skip tests in guile-fibers/patched., gnunet, 2021/12/25
- [gnunet-scheme] 49/49: crypto: Fix type confusion in hash-slice [bugfix], gnunet, 2021/12/25
- [gnunet-scheme] 18/49: dht/client: Correct struct access when verifying messages., gnunet, 2021/12/25
- [gnunet-scheme] 26/49: examples/web.scm: Parse the answer to the DHT insertion form.,
gnunet <=
- [gnunet-scheme] 25/49: web/form: New module., gnunet, 2021/12/25
- [gnunet-scheme] 28/49: dht/client: Copy the key into the put message., gnunet, 2021/12/25
- [gnunet-scheme] 29/49: guix: Add guile-gcrypt., gnunet, 2021/12/25
- [gnunet-scheme] 44/49: guix: Skip tests in guile package., gnunet, 2021/12/25
- [gnunet-scheme] 37/49: examples/web: Correct destination of search form., gnunet, 2021/12/25
- [gnunet-scheme] 30/49: doc: Remove URLs., gnunet, 2021/12/25
- [gnunet-scheme] 39/49: examples/web: Dissect search result., gnunet, 2021/12/25
- [gnunet-scheme] 21/49: examples/web: Respond with HTML., gnunet, 2021/12/25
- [gnunet-scheme] 31/49: doc: Document dependency on Guile-Gcrypt., gnunet, 2021/12/25
- [gnunet-scheme] 41/49: dht/client: Impose some bounds on the replication level., gnunet, 2021/12/25