fixup! Define the web pages for the authorization endpoint0.4.9

3 files changed, 32 insertions, 31 deletions

diff --git a/po/fr.po b/po/fr.po
index da6ed93..5a89cc8 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,7 +2,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-05-18 00:44+0200\n"
+"POT-Creation-Date: 2021-05-18 00:46+0200\n"
 "PO-Revision-Date: 2021-05-18 00:41+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
@@ -340,13 +340,13 @@ msgid "the client-id field is missing"
 msgstr "le champ client-id est manquant"
 
 #: src/scm/webid-oidc/errors.scm:1070
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:132
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:133
 #, scheme-format
 msgid "the redirect_uris field is incorrect: ~s"
 msgstr "le champ redirect_uris est incorrect : ~s"
 
 #: src/scm/webid-oidc/errors.scm:1071
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:133
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:134
 msgid "the redirect_uris field is missing"
 msgstr "le champ redirect_uris est manquant"
 
@@ -1109,48 +1109,48 @@ msgstr "l’en-tête ~a ne devrait pas avoir la valeur ~s.\n"
 msgid "the header ~a should be present."
 msgstr "l’en-tête ~a devrait être présent."
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:117
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:118
 msgid "the server response wasn’t expected:"
 msgstr "la réponse du serveur est inattendue :"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:126
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:127
 #, scheme-format
 msgid "the client_id field is incorrect: ~s"
 msgstr "le champ client_id est incorrect : ~s"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:127
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:128
 msgid "the client_id field is missing"
 msgstr "le champ client_id est manquant"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:136
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:137
 #, scheme-format
 msgid "I could not fetch a RDF graph at ~a;"
 msgstr "je n’ai pas pu récupérer de graphe RDF à ~a;"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:140
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:141
 msgid "this is not a client manifest:"
 msgstr "ceci n’est pas un manifeste client :"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:145
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:146
 #, scheme-format
 msgid "the manifest does not authorize redirection URI ~a:"
 msgstr "le manifeste n’autorise pas l’URI de redirection ~a :"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:150
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:151
 #, scheme-format
 msgid "the client manifest at ~a is advertised for ~a;"
 msgstr "le manifeste client ~a est publié pour ~a ;"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:155
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:156
 #, scheme-format
 msgid "I could not fetch the client manifest of ~a;"
 msgstr "je n’ai pas pu récupérer le manifeste client de ~a ;"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:160
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:161
 msgid "I could not issue an authorization code for you;"
 msgstr "je n’ai pas pu émettre un code d’autorisation pour vous ;"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:168
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:169
 msgid ""
 "The application you are trying to authorize behaved unexpectedly. Here is "
 "the explanation of the error:"
@@ -1158,11 +1158,11 @@ msgstr ""
 "L’application que vous essayez d’autoriser se comporte de façon inattendue. "
 "Ci-après une explication de l’erreur :"
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:177
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:178
 msgid "Redirecting..."
 msgstr "Redirection..."
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:182
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:183
 #, scheme-format
 msgid ""
 "<a href=~s>~a</a> can now log in on your behalf. You still need to adjust "
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index c8122b1..0ac532f 100644
--- a/po/webid-oidc.pot
+++ b/po/webid-oidc.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-05-18 00:44+0200\n"
+"POT-Creation-Date: 2021-05-18 00:46+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"
@@ -332,13 +332,13 @@ msgid "the client-id field is missing"
 msgstr ""
 
 #: src/scm/webid-oidc/errors.scm:1070
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:132
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:133
 #, scheme-format
 msgid "the redirect_uris field is incorrect: ~s"
 msgstr ""
 
 #: src/scm/webid-oidc/errors.scm:1071
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:133
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:134
 msgid "the redirect_uris field is missing"
 msgstr ""
 
@@ -1008,58 +1008,58 @@ msgstr ""
 msgid "the header ~a should be present."
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:117
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:118
 msgid "the server response wasn’t expected:"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:126
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:127
 #, scheme-format
 msgid "the client_id field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:127
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:128
 msgid "the client_id field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:136
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:137
 #, scheme-format
 msgid "I could not fetch a RDF graph at ~a;"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:140
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:141
 msgid "this is not a client manifest:"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:145
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:146
 #, scheme-format
 msgid "the manifest does not authorize redirection URI ~a:"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:150
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:151
 #, scheme-format
 msgid "the client manifest at ~a is advertised for ~a;"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:155
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:156
 #, scheme-format
 msgid "I could not fetch the client manifest of ~a;"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:160
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:161
 msgid "I could not issue an authorization code for you;"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:168
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:169
 msgid ""
 "The application you are trying to authorize behaved unexpectedly. Here is "
 "the explanation of the error:"
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:177
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:178
 msgid "Redirecting..."
 msgstr ""
 
-#: src/scm/webid-oidc/authorization-page-unsafe.scm:182
+#: src/scm/webid-oidc/authorization-page-unsafe.scm:183
 #, scheme-format
 msgid ""
 "<a href=~s>~a</a> can now log in on your behalf. You still need to adjust "
diff --git a/src/scm/webid-oidc/authorization-page-unsafe.scm b/src/scm/webid-oidc/authorization-page-unsafe.scm
index e3370a9..f969caf 100644
--- a/src/scm/webid-oidc/authorization-page-unsafe.scm
+++ b/src/scm/webid-oidc/authorization-page-unsafe.scm
@@ -111,7 +111,8 @@
                     (if value
                         (format #f (G_ "the header ~a should not have the value ~s.\n")
                                 (get 'header) value)
-                        (format #f (G_ "the header ~a should be present.")))))))
+                        (format #f (G_ "the header ~a should be present.")
+                                (get 'header)))))))
           ((&unexpected-response)
            (cons
             `(li ,(format #f (G_ "the server response wasn’t expected:"))