diff options
-rw-r--r-- | po/disfluid.pot | 18 | ||||
-rw-r--r-- | po/fr.po | 22 | ||||
-rw-r--r-- | src/scm/webid-oidc/hello-world.scm | 22 |
3 files changed, 49 insertions, 13 deletions
diff --git a/po/disfluid.pot b/po/disfluid.pot index 52e94eb..216b0c9 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-08-12 23:45+0200\n" +"POT-Creation-Date: 2021-08-13 00:49+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" @@ -808,11 +808,27 @@ msgstr "" msgid "reason-phrase|Unauthorized" msgstr "" +#: src/scm/webid-oidc/hello-world.scm:169 +msgid "<h1>Please authenticate</h1>" +msgstr "" + +#: src/scm/webid-oidc/hello-world.scm:173 +msgid "<p>This page requires authentication with Solid.</p>" +msgstr "" + #: src/scm/webid-oidc/hello-world.scm:177 #: src/scm/webid-oidc/resource-server.scm:328 msgid "reason-phrase|Method Not Allowed" msgstr "" +#: src/scm/webid-oidc/hello-world.scm:189 +msgid "<h1>Method not allowed</h1>" +msgstr "" + +#: src/scm/webid-oidc/hello-world.scm:193 +msgid "<p>You can only use the <emph>GET</emph> method on this resource.</p>" +msgstr "" + #: src/scm/webid-oidc/identity-provider.scm:72 msgid "Warning: generating a new key pair." msgstr "" @@ -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-08-12 23:45+0200\n" -"PO-Revision-Date: 2021-08-12 23:44+0200\n" +"POT-Creation-Date: 2021-08-13 00:49+0200\n" +"PO-Revision-Date: 2021-08-13 00:50+0200\n" "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n" "Language-Team: French <vivien@planete-kraus.eu>\n" "Language: fr\n" @@ -870,11 +870,29 @@ msgstr "Le port doit être un nombre entre 0 et 65535.\n" msgid "reason-phrase|Unauthorized" msgstr "Non Autorisé" +#: src/scm/webid-oidc/hello-world.scm:169 +msgid "<h1>Please authenticate</h1>" +msgstr "<h1>Veuillez vous authentifier</h1>" + +#: src/scm/webid-oidc/hello-world.scm:173 +msgid "<p>This page requires authentication with Solid.</p>" +msgstr "<p>Cette page requiert une authentification avec Solid.</p>" + #: src/scm/webid-oidc/hello-world.scm:177 #: src/scm/webid-oidc/resource-server.scm:328 msgid "reason-phrase|Method Not Allowed" msgstr "Méthode Non Autorisée" +#: src/scm/webid-oidc/hello-world.scm:189 +msgid "<h1>Method not allowed</h1>" +msgstr "<h1>Méthode non autorisée</h1>" + +#: src/scm/webid-oidc/hello-world.scm:193 +msgid "<p>You can only use the <emph>GET</emph> method on this resource.</p>" +msgstr "" +"<p>Vous pouvez uniquement utiliser la méthode <emph>GET</emph> pour cette " +"ressource.</p>" + #: src/scm/webid-oidc/identity-provider.scm:72 msgid "Warning: generating a new key pair." msgstr "Attention : génération d'une nouvelle paire de clé." diff --git a/src/scm/webid-oidc/hello-world.scm b/src/scm/webid-oidc/hello-world.scm index 0451ee9..98b4703 100644 --- a/src/scm/webid-oidc/hello-world.scm +++ b/src/scm/webid-oidc/hello-world.scm @@ -41,15 +41,17 @@ (body ,(sxml-match (xml->sxml - (W_ (format #f (W_ "<h1>Hello, ~a!</h1>") - (uri->string id)) - (sxml->xml - `(a (@ (href ,(uri->string id))) - ,(uri->string id))))) + (format #f (W_ "<h1>Hello, ~a!</h1>") + (uri->string id) + (with-output-to-string + (lambda () + (sxml->xml + `(a (@ (href ,(uri->string id))) + ,(uri->string id))))))) ((*TOP* ,title) title)) ,(sxml-match (xml->sxml - (W_ (format #f (W_ "<p>The client is compatible with Solid.</p>")))) + (format #f (W_ "<p>The client is compatible with Solid.</p>"))) ((*TOP* ,p) p)))))) (define-public (main) @@ -166,11 +168,11 @@ Options: (body ,(sxml-match (xml->sxml - (W_ (format #f "<h1>Please authenticate</h1>"))) + (format #f (W_ "<h1>Please authenticate</h1>"))) ((*TOP* ,title) title)) ,(sxml-match (xml->sxml - (W_ (format #f "<p>This page requires authentication with Solid.</p>"))) + (format #f (W_ "<p>This page requires authentication with Solid.</p>"))) ((*TOP* ,p) p))))))))))) (values (build-response #:code 405 @@ -186,11 +188,11 @@ Options: (body ,(sxml-match (xml->sxml - (W_ (format #f "<h1>Method not allowed</h1>"))) + (format #f (W_ "<h1>Method not allowed</h1>"))) ((*TOP* ,title) title)) ,(sxml-match (xml->sxml - (W_ (format #f "<p>You can only use the <emph>GET</emph> method on this resource.</p>"))) + (format #f (W_ "<p>You can only use the <emph>GET</emph> method on this resource.</p>"))) ((*TOP* ,p) p)))))))))))))) (install-suspendable-ports!) (run-server handler 'http (list #:port (string->number port-string)))))))))) |