client: allow non-GET methods

3 files changed, 36 insertions, 35 deletions

diff --git a/po/disfluid.pot b/po/disfluid.pot
index 54b5150..4249dd2 100644
--- a/po/disfluid.pot
+++ b/po/disfluid.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: disfluid SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-10-12 22:41+0200\n"
+"POT-Creation-Date: 2021-10-12 22:45+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -277,8 +277,8 @@ msgid ""
 msgstr ""
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:52
-#: src/scm/webid-oidc/client.scm:311 src/scm/webid-oidc/client.scm:328
-#: src/scm/webid-oidc/client.scm:345 src/scm/webid-oidc/hello-world.scm:40
+#: src/scm/webid-oidc/client.scm:312 src/scm/webid-oidc/client.scm:329
+#: src/scm/webid-oidc/client.scm:346 src/scm/webid-oidc/hello-world.scm:40
 #: src/scm/webid-oidc/hello-world.scm:167
 #: src/scm/webid-oidc/hello-world.scm:187
 #: src/scm/webid-oidc/identity-provider.scm:136
@@ -289,7 +289,7 @@ msgid "xml-lang|en"
 msgstr ""
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:67
-#: src/scm/webid-oidc/client.scm:313
+#: src/scm/webid-oidc/client.scm:314
 msgid "page-title|Authorization"
 msgstr ""
 
@@ -471,57 +471,57 @@ msgstr ""
 msgid "accept-language-header|en-us"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:181
+#: src/scm/webid-oidc/client.scm:182
 msgid "Example application"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:208
+#: src/scm/webid-oidc/client.scm:209
 msgid "#:client-name should be a string"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:215
+#: src/scm/webid-oidc/client.scm:216
 msgid "#:client-uri should be an URI"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:224
+#: src/scm/webid-oidc/client.scm:225
 msgid "#:response-types should be a list of symbols"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:233
+#: src/scm/webid-oidc/client.scm:234
 msgid "#:grant-types should be a list of symbols"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:285 src/scm/webid-oidc/resource-server.scm:177
+#: src/scm/webid-oidc/client.scm:286 src/scm/webid-oidc/resource-server.scm:177
 msgid "reason-phrase|Not Modified"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:315
+#: src/scm/webid-oidc/client.scm:316
 msgid ""
 "You have been authorized. Please paste the following code in the application:"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:320
+#: src/scm/webid-oidc/client.scm:321
 msgid "reason-phrase|Invalid Request"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:330
+#: src/scm/webid-oidc/client.scm:331
 msgid "page-title|Error"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:332
+#: src/scm/webid-oidc/client.scm:333
 msgid "Your identity provider did not authorize you. :("
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:337
+#: src/scm/webid-oidc/client.scm:338
 #: src/scm/webid-oidc/identity-provider.scm:129
 msgid "reason-phrase|Not Found"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:347
+#: src/scm/webid-oidc/client.scm:348
 msgid "page-title|Not Found"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:349
+#: src/scm/webid-oidc/client.scm:350
 msgid "This page does not exist on the server."
 msgstr ""
 
diff --git a/po/fr.po b/po/fr.po
index a220264..be669ea 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,8 +2,8 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-10-12 22:41+0200\n"
-"PO-Revision-Date: 2021-10-12 22:43+0200\n"
+"POT-Creation-Date: 2021-10-12 22:45+0200\n"
+"PO-Revision-Date: 2021-10-12 22:45+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
 "Language: fr\n"
@@ -308,8 +308,8 @@ msgstr ""
 "requis (#:webid et #:client-id), soit (#:jwt-header et #:jwt-payload)"
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:52
-#: src/scm/webid-oidc/client.scm:311 src/scm/webid-oidc/client.scm:328
-#: src/scm/webid-oidc/client.scm:345 src/scm/webid-oidc/hello-world.scm:40
+#: src/scm/webid-oidc/client.scm:312 src/scm/webid-oidc/client.scm:329
+#: src/scm/webid-oidc/client.scm:346 src/scm/webid-oidc/hello-world.scm:40
 #: src/scm/webid-oidc/hello-world.scm:167
 #: src/scm/webid-oidc/hello-world.scm:187
 #: src/scm/webid-oidc/identity-provider.scm:136
@@ -320,7 +320,7 @@ msgid "xml-lang|en"
 msgstr "fr"
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:67
-#: src/scm/webid-oidc/client.scm:313
+#: src/scm/webid-oidc/client.scm:314
 msgid "page-title|Authorization"
 msgstr "Autorisation"
 
@@ -513,59 +513,59 @@ msgstr "impossible de servir le manifeste public"
 msgid "accept-language-header|en-us"
 msgstr "fr-fr"
 
-#: src/scm/webid-oidc/client.scm:181
+#: src/scm/webid-oidc/client.scm:182
 msgid "Example application"
 msgstr "Application exemple"
 
-#: src/scm/webid-oidc/client.scm:208
+#: src/scm/webid-oidc/client.scm:209
 msgid "#:client-name should be a string"
 msgstr "#:client-name doit être une chaîne de caractères"
 
-#: src/scm/webid-oidc/client.scm:215
+#: src/scm/webid-oidc/client.scm:216
 msgid "#:client-uri should be an URI"
 msgstr "#:client-uri doit être une URI"
 
-#: src/scm/webid-oidc/client.scm:224
+#: src/scm/webid-oidc/client.scm:225
 msgid "#:response-types should be a list of symbols"
 msgstr "#:response-types doit être une liste de symboles"
 
-#: src/scm/webid-oidc/client.scm:233
+#: src/scm/webid-oidc/client.scm:234
 msgid "#:grant-types should be a list of symbols"
 msgstr "#:grant-types doit être une liste de symboles"
 
-#: src/scm/webid-oidc/client.scm:285 src/scm/webid-oidc/resource-server.scm:177
+#: src/scm/webid-oidc/client.scm:286 src/scm/webid-oidc/resource-server.scm:177
 msgid "reason-phrase|Not Modified"
 msgstr "Non Modifié"
 
-#: src/scm/webid-oidc/client.scm:315
+#: src/scm/webid-oidc/client.scm:316
 msgid ""
 "You have been authorized. Please paste the following code in the application:"
 msgstr ""
 "Vous avez été autorisé. Veuillez coller le code suivant dans votre "
 "application :"
 
-#: src/scm/webid-oidc/client.scm:320
+#: src/scm/webid-oidc/client.scm:321
 msgid "reason-phrase|Invalid Request"
 msgstr "Requête Invalide"
 
-#: src/scm/webid-oidc/client.scm:330
+#: src/scm/webid-oidc/client.scm:331
 msgid "page-title|Error"
 msgstr "Erreur"
 
-#: src/scm/webid-oidc/client.scm:332
+#: src/scm/webid-oidc/client.scm:333
 msgid "Your identity provider did not authorize you. :("
 msgstr "Votre fournisseur d’identité ne vous a pas autorisé. :("
 
-#: src/scm/webid-oidc/client.scm:337
+#: src/scm/webid-oidc/client.scm:338
 #: src/scm/webid-oidc/identity-provider.scm:129
 msgid "reason-phrase|Not Found"
 msgstr "Non Trouvé"
 
-#: src/scm/webid-oidc/client.scm:347
+#: src/scm/webid-oidc/client.scm:348
 msgid "page-title|Not Found"
 msgstr "Non Trouvé"
 
-#: src/scm/webid-oidc/client.scm:349
+#: src/scm/webid-oidc/client.scm:350
 msgid "This page does not exist on the server."
 msgstr "Cette page n’existe pas sur le serveur."
 
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm
index 7af9a59..5322af1 100644
--- a/src/scm/webid-oidc/client.scm
+++ b/src/scm/webid-oidc/client.scm
@@ -137,6 +137,7 @@
                ,@headers)))
         (receive (response body)
             (apply (p:anonymous-http-request) uri
+                   #:method method
                    #:headers all-headers
                    non-header-args)
           (let ((code (response-code response)))