Implement the DPoP proof

2 files changed, 355 insertions, 213 deletions

diff --git a/po/fr.po b/po/fr.po
index 4444391..e25ffb1 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -126,96 +126,96 @@ msgstr "Utilisation : generate-random [NOMBRE D'OCTETS]\n"
 msgid "Usage: generate-key [NUMBER OF BITS | CURVE]\n"
 msgstr "Utilisation : generate-key [NOMBRE DE BITS | COURBE]\n"
 
-#: src/scm/webid-oidc/errors.scm:378
+#: src/scm/webid-oidc/errors.scm:540
 msgid "that’s how it is"
 msgstr "c’est comme ça"
 
-#: src/scm/webid-oidc/errors.scm:383
+#: src/scm/webid-oidc/errors.scm:545
 #, scheme-format
 msgid "the value ~s is not a base64 string (because ~a)"
 msgstr "la valeur ~s n’est pas une chaîne base64 (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:386
+#: src/scm/webid-oidc/errors.scm:548
 #, scheme-format
 msgid "the value ~s is not JSON (because ~a)"
 msgstr "la valeur ~s n’est pas du JSON (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:389
+#: src/scm/webid-oidc/errors.scm:551
 #, scheme-format
 msgid "the value ~s does not identify an elleptic curve"
 msgstr "la valeur ~s n’identifie pas une courbe elliptique"
 
-#: src/scm/webid-oidc/errors.scm:394
+#: src/scm/webid-oidc/errors.scm:556
 #, scheme-format
 msgid "the value ~s does not identify a JWK (because ~a)"
 msgstr "la valeur ~s n’identifie pas une JWK (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:396
+#: src/scm/webid-oidc/errors.scm:558
 #, scheme-format
 msgid "the value ~s does not identify a JWK"
 msgstr "la valeur ~s n’identifie pas une JWK"
 
-#: src/scm/webid-oidc/errors.scm:401
+#: src/scm/webid-oidc/errors.scm:563
 #, scheme-format
 msgid "the value ~s does not identify a public JWK (because ~a)"
 msgstr "la valeur ~s n’identifie pas une JWK publique (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:403
+#: src/scm/webid-oidc/errors.scm:565
 #, scheme-format
 msgid "the value ~s does not identify a public JWK"
 msgstr "la valeur ~s n’identifie pas une JWK publique"
 
-#: src/scm/webid-oidc/errors.scm:408
+#: src/scm/webid-oidc/errors.scm:570
 #, scheme-format
 msgid "the value ~s does not identify a private JWK (because ~a)"
 msgstr "la valeur ~s n’identifie pas une JWK privée (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:410
+#: src/scm/webid-oidc/errors.scm:572
 #, scheme-format
 msgid "the value ~s does not identify a private JWK"
 msgstr "la valeur ~s n’identifie pas une JWK privée"
 
-#: src/scm/webid-oidc/errors.scm:415
+#: src/scm/webid-oidc/errors.scm:577
 #, scheme-format
 msgid "the value ~s does not identify a JWKS (because ~a)"
 msgstr "la valeur ~s n’identifie pas un JWKS (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:417
+#: src/scm/webid-oidc/errors.scm:579
 #, scheme-format
 msgid "the value ~s does not identify a JWKS"
 msgstr "la valeur ~s n’identifie pas un JWKS"
 
-#: src/scm/webid-oidc/errors.scm:420
+#: src/scm/webid-oidc/errors.scm:582
 #, scheme-format
 msgid "the value ~s does not identify a hash algorithm"
 msgstr "la valeur ~s n’identifie pas un algorithme de hachage"
 
-#: src/scm/webid-oidc/errors.scm:423
+#: src/scm/webid-oidc/errors.scm:585
 #, scheme-format
 msgid "the value ~s is not an alist or misses key ~s"
 msgstr "la valeur ~s n’est pas une alist ou il manque la clé ~s"
 
-#: src/scm/webid-oidc/errors.scm:426
+#: src/scm/webid-oidc/errors.scm:588
 #, scheme-format
 msgid "the value ~s is not a JWS header (because ~a)"
 msgstr "la valeur ~s n’est pas un header JWS (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:429
+#: src/scm/webid-oidc/errors.scm:591
 #, scheme-format
 msgid "the value ~s is not a JWS payload (because ~a)"
 msgstr "la valeur ~s n’est pas un contenu JWS (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:432
+#: src/scm/webid-oidc/errors.scm:594
 #, scheme-format
 msgid "the value ~s is not a JWS (because ~a)"
 msgstr "la valeur ~s n’est pas un JWS (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:435
+#: src/scm/webid-oidc/errors.scm:597
 #, scheme-format
 msgid "the string ~s cannot be split in 3 parts with ~s"
 msgstr "la chaîne ~s ne peut pas être découpée en 3 parties avec ~s"
 
-#: src/scm/webid-oidc/errors.scm:438
+#: src/scm/webid-oidc/errors.scm:600
 #, scheme-format
 msgid ""
 "all key candidates failed to verify signature ~s with algorithm ~s and "
@@ -224,17 +224,17 @@ msgstr ""
 "aucune clé candidate n’a pu vérifier la signature ~s avec l’algorithme ~s et "
 "le contenu ~a (il y en avait ~a : ~s)"
 
-#: src/scm/webid-oidc/errors.scm:441
+#: src/scm/webid-oidc/errors.scm:603
 #, scheme-format
 msgid "I cannot decode JWS ~a (because ~a)"
 msgstr "je n’ai pas pu décoder le JWS encodé par ~a (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:444
+#: src/scm/webid-oidc/errors.scm:606
 #, scheme-format
 msgid "I cannot encode JWS ~a (because ~a)"
 msgstr "je n’ai pas pu encoder le JWS ~a (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:447
+#: src/scm/webid-oidc/errors.scm:609
 #, scheme-format
 msgid ""
 "the server request unexpectedly failed with code ~a and reason phrase ~s"
@@ -242,179 +242,298 @@ msgstr ""
 "la requête au serveur a échoué de façon inattendue avec un code ~a et une "
 "raison ~s"
 
-#: src/scm/webid-oidc/errors.scm:452
+#: src/scm/webid-oidc/errors.scm:614
 #, scheme-format
 msgid "the header ~a should not have the value ~s"
 msgstr "l’en-tête ~a ne devrait pas avoir la valeur ~s"
 
-#: src/scm/webid-oidc/errors.scm:454
+#: src/scm/webid-oidc/errors.scm:616
 #, scheme-format
 msgid "the header ~a should be present"
 msgstr "l’en-tête ~a devrait être présent"
 
-#: src/scm/webid-oidc/errors.scm:457
+#: src/scm/webid-oidc/errors.scm:619
 #, scheme-format
 msgid "the server response wasn't expected: ~s (because ~a)"
 msgstr "la réponse du serveur est inattendue : ~s (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:463
+#: src/scm/webid-oidc/errors.scm:625
 #, scheme-format
 msgid "the value ~s is not an OIDC configuration (because ~a)"
 msgstr "la valeur ~s n’est pas une configuration OIDC (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:468
+#: src/scm/webid-oidc/errors.scm:630
 #, scheme-format
 msgid "the webid field is incorrect: ~s"
 msgstr "le champ webid est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:469
+#: src/scm/webid-oidc/errors.scm:631
 msgid "the webid field is missing"
 msgstr "le champ webid est manquant"
 
-#: src/scm/webid-oidc/errors.scm:473
+#: src/scm/webid-oidc/errors.scm:635
 #, scheme-format
 msgid "the iss field is incorrect: ~s"
 msgstr "le champ iss est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:474
+#: src/scm/webid-oidc/errors.scm:636
 msgid "the iss field is missing"
 msgstr "le champ iss est manquant"
 
-#: src/scm/webid-oidc/errors.scm:478
+#: src/scm/webid-oidc/errors.scm:640
 #, scheme-format
 msgid "the aud field is incorrect: ~s"
 msgstr "le champ aud est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:479
+#: src/scm/webid-oidc/errors.scm:641
 msgid "the aud field is missing"
 msgstr "le champ aud est manquant"
 
-#: src/scm/webid-oidc/errors.scm:483
+#: src/scm/webid-oidc/errors.scm:645
 #, scheme-format
 msgid "the iat field is incorrect: ~s"
 msgstr "le champ iat est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:484
+#: src/scm/webid-oidc/errors.scm:646
 msgid "the iat field is missing"
 msgstr "le champ iat est manquant"
 
-#: src/scm/webid-oidc/errors.scm:488
+#: src/scm/webid-oidc/errors.scm:650
 #, scheme-format
 msgid "the exp field is incorrect: ~s"
 msgstr "le champ exp est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:489
+#: src/scm/webid-oidc/errors.scm:651
 msgid "the exp field is missing"
 msgstr "le champ exp est manquant"
 
-#: src/scm/webid-oidc/errors.scm:493
+#: src/scm/webid-oidc/errors.scm:655
 #, scheme-format
 msgid "the cnf/jkt field is incorrect: ~s"
 msgstr "le champ cnf/jkt est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:494
+#: src/scm/webid-oidc/errors.scm:656
 msgid "the cnf/jkt field is missing"
 msgstr "le champ cnf/jkt est manquant"
 
-#: src/scm/webid-oidc/errors.scm:498
+#: src/scm/webid-oidc/errors.scm:660
 #, scheme-format
 msgid "the client-id field is incorrect: ~s"
 msgstr "le champ client-id est incorrect : ~s"
 
-#: src/scm/webid-oidc/errors.scm:499
+#: src/scm/webid-oidc/errors.scm:661
 msgid "the client-id field is missing"
 msgstr "le champ client-id est manquant"
 
-#: src/scm/webid-oidc/errors.scm:501
+#: src/scm/webid-oidc/errors.scm:665
+#, scheme-format
+msgid "the typ field is incorrect: ~s"
+msgstr "le champ typ est incorrect : ~s"
+
+#: src/scm/webid-oidc/errors.scm:666
+msgid "the typ field is missing"
+msgstr "le champ typ est manquant"
+
+#: src/scm/webid-oidc/errors.scm:670
+#, scheme-format
+msgid "the jwk field is incorrect: ~s (because ~a)"
+msgstr "le champ jwk est incorrect : ~s (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:672
+msgid "the jwk field is missing"
+msgstr "le champ jwk est manquant"
+
+#: src/scm/webid-oidc/errors.scm:676
+#, scheme-format
+msgid "the jti field is incorrect: ~s"
+msgstr "le champ jti est incorrect : ~s"
+
+#: src/scm/webid-oidc/errors.scm:677
+msgid "the jti field is missing"
+msgstr "le champ jti est manquant"
+
+#: src/scm/webid-oidc/errors.scm:681
+#, scheme-format
+msgid "the htm field is incorrect: ~s"
+msgstr "le champ htm est incorrect : ~s"
+
+#: src/scm/webid-oidc/errors.scm:682
+msgid "the htm field is missing"
+msgstr "le champ htm est manquant"
+
+#: src/scm/webid-oidc/errors.scm:686
+#, scheme-format
+msgid "the htu field is incorrect: ~s"
+msgstr "le champ htu est incorrect : ~s"
+
+#: src/scm/webid-oidc/errors.scm:687
+msgid "the htu field is missing"
+msgstr "le champ htu est manquant"
+
+#: src/scm/webid-oidc/errors.scm:689
 #, scheme-format
 msgid "~s is not an access token (because ~a)"
 msgstr "~s n’est pas un jeton d’accès (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:504
+#: src/scm/webid-oidc/errors.scm:692
 #, scheme-format
 msgid "~s is not an access token header (because ~a)"
 msgstr "~s n’est pas un en-tête de jeton d’accès (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:507
+#: src/scm/webid-oidc/errors.scm:695
 #, scheme-format
 msgid "~s is not an access token payload (because ~a)"
 msgstr "~s n’est pas un contenu de jeton d’accès (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:510
+#: src/scm/webid-oidc/errors.scm:698
+#, scheme-format
+msgid "~s is not a DPoP proof (because ~a)"
+msgstr "~s n’est pas une preuve DPoP (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:701
+#, scheme-format
+msgid "~s is not a DPoP proof header (because ~a)"
+msgstr "~s n’est pas un en-tête de preuve DPoP (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:704
+#, scheme-format
+msgid "~s is not a DPoP proof payload (because ~a)"
+msgstr "~s n’est pas un contenu de preuve DPoP (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:707
 #, scheme-format
 msgid "I cannot fetch the issuer configuration of ~a (because ~a)"
 msgstr ""
 "je n’ai pas pu récupérer la configuration de l’émetteur ~a (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:517
+#: src/scm/webid-oidc/errors.scm:714
 #, scheme-format
 msgid "I cannot fetch the JWKS of ~a at ~a (because ~a)"
 msgstr "je n’ai pas pu récupérer le JWKS de ~a à ~a (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:528
+#: src/scm/webid-oidc/errors.scm:725
+#, scheme-format
+msgid "the HTTP method is signed for ~s, but ~s was requested"
+msgstr "la méthode HTTP a été signée pour ~s, mais ~s a été demandé"
+
+#: src/scm/webid-oidc/errors.scm:728
+#, scheme-format
+msgid "the HTTP uri is signed for ~a, but ~a was requested"
+msgstr "l’uri HTTP a été signé pour ~a, mais ~a a été demandé"
+
+#: src/scm/webid-oidc/errors.scm:731
+#, scheme-format
+msgid "the date is ~a, but the DPoP proof is signed in the future at ~a"
+msgstr "la date est ~a, mais la preuve DPoP a été signée dans le futur à ~a"
+
+#: src/scm/webid-oidc/errors.scm:735
+#, scheme-format
+msgid "the date is ~a, but the DPoP proof was signed too long ago at ~a"
+msgstr ""
+"la date est ~a, mais la preuve DPoP a été signée il y a trop longtemps à ~a"
+
+#: src/scm/webid-oidc/errors.scm:744
+#, scheme-format
+msgid "the key ~s does not hash to ~a"
+msgstr "la clé ~s ne donne pas un hash de ~a"
+
+#: src/scm/webid-oidc/errors.scm:746
+#, scheme-format
+msgid "the key confirmation of ~s failed (because ~a)"
+msgstr "la confirmation de clé de ~s a échoué (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:748
+#, scheme-format
+msgid "the key confirmation of ~s failed"
+msgstr "la confirmation de la clé ~s a échoué"
+
+#: src/scm/webid-oidc/errors.scm:750
+#, scheme-format
+msgid "the jti ~s has already been found (because ~a)"
+msgstr "le jti ~s a déjà été trouvé (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:753
 #, scheme-format
 msgid "I cannot decode ~s as an access token (because ~a)"
 msgstr "je n’ai pas pu décoder ~s comme jeton d’accès (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:531
+#: src/scm/webid-oidc/errors.scm:756
 #, scheme-format
 msgid "I cannot encode ~s as an access token with key ~s (because ~a)"
 msgstr ""
 "je n’ai pas pu encoder ~s comme un jeton d’accès avec la clé ~s (parce que "
 "~a)"
 
-#: src/scm/webid-oidc/errors.scm:536
+#: src/scm/webid-oidc/errors.scm:759
+#, scheme-format
+msgid "I cannot decode ~s as a DPoP proof (because ~a)"
+msgstr "je n’ai pas pu décoder ~s comme preuve DPoP (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:762
+#, scheme-format
+msgid "I cannot encode ~s as a DPoP proof (because ~a)"
+msgstr "je n’ai pas pu encoder ~s comme une preuve DPoP (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:767
 msgid "that’s it"
 msgstr "c’est tout"
 
-#: src/scm/webid-oidc/errors.scm:540
+#: src/scm/webid-oidc/errors.scm:771
 #, scheme-format
 msgid "~a and ~a"
 msgstr "~a et ~a"
 
-#: src/scm/webid-oidc/errors.scm:543
+#: src/scm/webid-oidc/errors.scm:774
 #, scheme-format
 msgid "~a, ~a"
 msgstr "~a, ~a"
 
-#: src/scm/webid-oidc/errors.scm:547
+#: src/scm/webid-oidc/errors.scm:778
 #, scheme-format
 msgid "the signature ~a does not match key ~s with payload ~a"
 msgstr "la signature ~a ne correspond pas à la clé ~s avec le contenu ~a"
 
-#: src/scm/webid-oidc/errors.scm:550
+#: src/scm/webid-oidc/errors.scm:781
 msgid "there is an undefined variable"
 msgstr "il y a une variable non définie"
 
-#: src/scm/webid-oidc/errors.scm:552
+#: src/scm/webid-oidc/errors.scm:783
 #, scheme-format
 msgid "the origin is ~a"
 msgstr "l’origine est ~a"
 
-#: src/scm/webid-oidc/errors.scm:555
+#: src/scm/webid-oidc/errors.scm:786
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr "un message est attaché : ~a"
 
-#: src/scm/webid-oidc/errors.scm:558
+#: src/scm/webid-oidc/errors.scm:789
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr "les valeurs ~s sont problématiques"
 
-#: src/scm/webid-oidc/errors.scm:561
+#: src/scm/webid-oidc/errors.scm:792
 msgid "there is a kind and args"
 msgstr "il y a un type et des arguments"
 
-#: src/scm/webid-oidc/errors.scm:563
+#: src/scm/webid-oidc/errors.scm:794
 msgid "there is an assertion failure"
 msgstr "il y a un échec d’assertion"
 
-#: src/scm/webid-oidc/errors.scm:565
+#: src/scm/webid-oidc/errors.scm:796
 #, scheme-format
 msgid "the program quits with code ~a"
 msgstr "le programme quitte avec le code ~a"
 
-#: src/scm/webid-oidc/errors.scm:568
+#: src/scm/webid-oidc/errors.scm:799
+msgid "the program cannot recover from this exception"
+msgstr "le programme ne peut pas récupérer après cette exception"
+
+#: src/scm/webid-oidc/errors.scm:801
+msgid "there is an error"
+msgstr "il y a une erreur"
+
+#: src/scm/webid-oidc/errors.scm:803
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr "Type d’exception non pris en charge ~a."
@@ -438,27 +557,6 @@ msgstr "Type d’exception non pris en charge ~a."
 #~ msgstr "le champ redirect_uris est manquant"
 
 #, scheme-format
-#~ msgid "the typ field is incorrect: ~s"
-#~ msgstr "le champ typ est incorrect : ~s"
-
-#~ msgid "the typ field is missing"
-#~ msgstr "le champ typ est manquant"
-
-#, scheme-format
-#~ msgid "the jwk field is incorrect: ~s (because ~a)"
-#~ msgstr "le champ jwk est incorrect : ~s (parce que ~a)"
-
-#~ msgid "the jwk field is missing"
-#~ msgstr "le champ jwk est manquant"
-
-#, scheme-format
-#~ msgid "the jti field is incorrect: ~s"
-#~ msgstr "le champ jti est incorrect : ~s"
-
-#~ msgid "the jti field is missing"
-#~ msgstr "le champ jti est manquant"
-
-#, scheme-format
 #~ msgid "the nonce field is incorrect: ~s"
 #~ msgstr "le champ nonce est incorrect : ~s"
 
@@ -466,74 +564,6 @@ msgstr "Type d’exception non pris en charge ~a."
 #~ msgstr "le champ nonce est manquant"
 
 #, scheme-format
-#~ msgid "the htm field is incorrect: ~s"
-#~ msgstr "le champ htm est incorrect : ~s"
-
-#~ msgid "the htm field is missing"
-#~ msgstr "le champ htm est manquant"
-
-#, scheme-format
-#~ msgid "the htu field is incorrect: ~s"
-#~ msgstr "le champ htu est incorrect : ~s"
-
-#~ msgid "the htu field is missing"
-#~ msgstr "le champ htu est manquant"
-
-#, scheme-format
-#~ msgid "~s is not a DPoP proof (because ~a)"
-#~ msgstr "~s n’est pas une preuve DPoP (parce que ~a)"
-
-#, scheme-format
-#~ msgid "~s is not a DPoP proof header (because ~a)"
-#~ msgstr "~s n’est pas un en-tête de preuve DPoP (parce que ~a)"
-
-#, scheme-format
-#~ msgid "~s is not a DPoP proof payload (because ~a)"
-#~ msgstr "~s n’est pas un contenu de preuve DPoP (parce que ~a)"
-
-#, scheme-format
-#~ msgid "the HTTP method is signed for ~s, but ~s was requested"
-#~ msgstr "la méthode HTTP a été signée pour ~s, mais ~s a été demandé"
-
-#, scheme-format
-#~ msgid "the HTTP uri is signed for ~a, but ~a was requested"
-#~ msgstr "l’uri HTTP a été signé pour ~a, mais ~a a été demandé"
-
-#, scheme-format
-#~ msgid "the date is ~a, but the DPoP proof is signed in the future at ~a"
-#~ msgstr "la date est ~a, mais la preuve DPoP a été signée dans le futur à ~a"
-
-#, scheme-format
-#~ msgid "the date is ~a, but the DPoP proof was signed too long ago at ~a"
-#~ msgstr ""
-#~ "la date est ~a, mais la preuve DPoP a été signée il y a trop longtemps à "
-#~ "~a"
-
-#, scheme-format
-#~ msgid "the key ~s does not hash to ~a"
-#~ msgstr "la clé ~s ne donne pas un hash de ~a"
-
-#, scheme-format
-#~ msgid "the key confirmation of ~s failed (because ~a)"
-#~ msgstr "la confirmation de clé de ~s a échoué (parce que ~a)"
-
-#, scheme-format
-#~ msgid "the key confirmation of ~s failed"
-#~ msgstr "la confirmation de la clé ~s a échoué"
-
-#, scheme-format
-#~ msgid "the jti ~s has already been found (because ~a)"
-#~ msgstr "le jti ~s a déjà été trouvé (parce que ~a)"
-
-#, scheme-format
-#~ msgid "I cannot decode ~s as a DPoP proof (because ~a)"
-#~ msgstr "je n’ai pas pu décoder ~s comme preuve DPoP (parce que ~a)"
-
-#, scheme-format
-#~ msgid "I cannot encode ~s as a DPoP proof (because ~a)"
-#~ msgstr "je n’ai pas pu encoder ~s comme une preuve DPoP (parce que ~a)"
-
-#, scheme-format
 #~ msgid "I could not fetch a RDF graph at ~a (because ~a)"
 #~ msgstr "je n’ai pas pu récupérer de graphe RDF à ~a (parce que ~a)"
 
@@ -722,12 +752,6 @@ msgstr "Type d’exception non pris en charge ~a."
 #~ msgid "the container ~s should be emptied before being deleted"
 #~ msgstr "le conteneur ~s doit être vidé avant d’être détruit"
 
-#~ msgid "the program cannot recover from this exception"
-#~ msgstr "le programme ne peut pas récupérer après cette exception"
-
-#~ msgid "there is an error"
-#~ msgstr "il y a une erreur"
-
 #~ msgid "there is an external error"
 #~ msgstr "il y a une erreur externe"
 
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index e008e38..1ab669d 100644
--- a/po/webid-oidc.pot
+++ b/po/webid-oidc.pot
@@ -122,288 +122,406 @@ msgstr ""
 msgid "Usage: generate-key [NUMBER OF BITS | CURVE]\n"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:378
+#: src/scm/webid-oidc/errors.scm:540
 msgid "that’s how it is"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:383
+#: src/scm/webid-oidc/errors.scm:545
 #, scheme-format
 msgid "the value ~s is not a base64 string (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:386
+#: src/scm/webid-oidc/errors.scm:548
 #, scheme-format
 msgid "the value ~s is not JSON (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:389
+#: src/scm/webid-oidc/errors.scm:551
 #, scheme-format
 msgid "the value ~s does not identify an elleptic curve"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:394
+#: src/scm/webid-oidc/errors.scm:556
 #, scheme-format
 msgid "the value ~s does not identify a JWK (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:396
+#: src/scm/webid-oidc/errors.scm:558
 #, scheme-format
 msgid "the value ~s does not identify a JWK"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:401
+#: src/scm/webid-oidc/errors.scm:563
 #, scheme-format
 msgid "the value ~s does not identify a public JWK (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:403
+#: src/scm/webid-oidc/errors.scm:565
 #, scheme-format
 msgid "the value ~s does not identify a public JWK"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:408
+#: src/scm/webid-oidc/errors.scm:570
 #, scheme-format
 msgid "the value ~s does not identify a private JWK (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:410
+#: src/scm/webid-oidc/errors.scm:572
 #, scheme-format
 msgid "the value ~s does not identify a private JWK"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:415
+#: src/scm/webid-oidc/errors.scm:577
 #, scheme-format
 msgid "the value ~s does not identify a JWKS (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:417
+#: src/scm/webid-oidc/errors.scm:579
 #, scheme-format
 msgid "the value ~s does not identify a JWKS"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:420
+#: src/scm/webid-oidc/errors.scm:582
 #, scheme-format
 msgid "the value ~s does not identify a hash algorithm"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:423
+#: src/scm/webid-oidc/errors.scm:585
 #, scheme-format
 msgid "the value ~s is not an alist or misses key ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:426
+#: src/scm/webid-oidc/errors.scm:588
 #, scheme-format
 msgid "the value ~s is not a JWS header (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:429
+#: src/scm/webid-oidc/errors.scm:591
 #, scheme-format
 msgid "the value ~s is not a JWS payload (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:432
+#: src/scm/webid-oidc/errors.scm:594
 #, scheme-format
 msgid "the value ~s is not a JWS (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:435
+#: src/scm/webid-oidc/errors.scm:597
 #, scheme-format
 msgid "the string ~s cannot be split in 3 parts with ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:438
+#: src/scm/webid-oidc/errors.scm:600
 #, scheme-format
 msgid ""
 "all key candidates failed to verify signature ~s with algorithm ~s and "
 "payload ~a (there were ~a: ~s)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:441
+#: src/scm/webid-oidc/errors.scm:603
 #, scheme-format
 msgid "I cannot decode JWS ~a (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:444
+#: src/scm/webid-oidc/errors.scm:606
 #, scheme-format
 msgid "I cannot encode JWS ~a (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:447
+#: src/scm/webid-oidc/errors.scm:609
 #, scheme-format
 msgid ""
 "the server request unexpectedly failed with code ~a and reason phrase ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:452
+#: src/scm/webid-oidc/errors.scm:614
 #, scheme-format
 msgid "the header ~a should not have the value ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:454
+#: src/scm/webid-oidc/errors.scm:616
 #, scheme-format
 msgid "the header ~a should be present"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:457
+#: src/scm/webid-oidc/errors.scm:619
 #, scheme-format
 msgid "the server response wasn't expected: ~s (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:463
+#: src/scm/webid-oidc/errors.scm:625
 #, scheme-format
 msgid "the value ~s is not an OIDC configuration (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:468
+#: src/scm/webid-oidc/errors.scm:630
 #, scheme-format
 msgid "the webid field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:469
+#: src/scm/webid-oidc/errors.scm:631
 msgid "the webid field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:473
+#: src/scm/webid-oidc/errors.scm:635
 #, scheme-format
 msgid "the iss field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:474
+#: src/scm/webid-oidc/errors.scm:636
 msgid "the iss field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:478
+#: src/scm/webid-oidc/errors.scm:640
 #, scheme-format
 msgid "the aud field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:479
+#: src/scm/webid-oidc/errors.scm:641
 msgid "the aud field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:483
+#: src/scm/webid-oidc/errors.scm:645
 #, scheme-format
 msgid "the iat field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:484
+#: src/scm/webid-oidc/errors.scm:646
 msgid "the iat field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:488
+#: src/scm/webid-oidc/errors.scm:650
 #, scheme-format
 msgid "the exp field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:489
+#: src/scm/webid-oidc/errors.scm:651
 msgid "the exp field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:493
+#: src/scm/webid-oidc/errors.scm:655
 #, scheme-format
 msgid "the cnf/jkt field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:494
+#: src/scm/webid-oidc/errors.scm:656
 msgid "the cnf/jkt field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:498
+#: src/scm/webid-oidc/errors.scm:660
 #, scheme-format
 msgid "the client-id field is incorrect: ~s"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:499
+#: src/scm/webid-oidc/errors.scm:661
 msgid "the client-id field is missing"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:501
+#: src/scm/webid-oidc/errors.scm:665
+#, scheme-format
+msgid "the typ field is incorrect: ~s"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:666
+msgid "the typ field is missing"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:670
+#, scheme-format
+msgid "the jwk field is incorrect: ~s (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:672
+msgid "the jwk field is missing"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:676
+#, scheme-format
+msgid "the jti field is incorrect: ~s"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:677
+msgid "the jti field is missing"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:681
+#, scheme-format
+msgid "the htm field is incorrect: ~s"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:682
+msgid "the htm field is missing"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:686
+#, scheme-format
+msgid "the htu field is incorrect: ~s"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:687
+msgid "the htu field is missing"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:689
 #, scheme-format
 msgid "~s is not an access token (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:504
+#: src/scm/webid-oidc/errors.scm:692
 #, scheme-format
 msgid "~s is not an access token header (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:507
+#: src/scm/webid-oidc/errors.scm:695
 #, scheme-format
 msgid "~s is not an access token payload (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:510
+#: src/scm/webid-oidc/errors.scm:698
+#, scheme-format
+msgid "~s is not a DPoP proof (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:701
+#, scheme-format
+msgid "~s is not a DPoP proof header (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:704
+#, scheme-format
+msgid "~s is not a DPoP proof payload (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:707
 #, scheme-format
 msgid "I cannot fetch the issuer configuration of ~a (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:517
+#: src/scm/webid-oidc/errors.scm:714
 #, scheme-format
 msgid "I cannot fetch the JWKS of ~a at ~a (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:528
+#: src/scm/webid-oidc/errors.scm:725
+#, scheme-format
+msgid "the HTTP method is signed for ~s, but ~s was requested"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:728
+#, scheme-format
+msgid "the HTTP uri is signed for ~a, but ~a was requested"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:731
+#, scheme-format
+msgid "the date is ~a, but the DPoP proof is signed in the future at ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:735
+#, scheme-format
+msgid "the date is ~a, but the DPoP proof was signed too long ago at ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:744
+#, scheme-format
+msgid "the key ~s does not hash to ~a"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:746
+#, scheme-format
+msgid "the key confirmation of ~s failed (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:748
+#, scheme-format
+msgid "the key confirmation of ~s failed"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:750
+#, scheme-format
+msgid "the jti ~s has already been found (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:753
 #, scheme-format
 msgid "I cannot decode ~s as an access token (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:531
+#: src/scm/webid-oidc/errors.scm:756
 #, scheme-format
 msgid "I cannot encode ~s as an access token with key ~s (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:536
+#: src/scm/webid-oidc/errors.scm:759
+#, scheme-format
+msgid "I cannot decode ~s as a DPoP proof (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:762
+#, scheme-format
+msgid "I cannot encode ~s as a DPoP proof (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:767
 msgid "that’s it"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:540
+#: src/scm/webid-oidc/errors.scm:771
 #, scheme-format
 msgid "~a and ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:543
+#: src/scm/webid-oidc/errors.scm:774
 #, scheme-format
 msgid "~a, ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:547
+#: src/scm/webid-oidc/errors.scm:778
 #, scheme-format
 msgid "the signature ~a does not match key ~s with payload ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:550
+#: src/scm/webid-oidc/errors.scm:781
 msgid "there is an undefined variable"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:552
+#: src/scm/webid-oidc/errors.scm:783
 #, scheme-format
 msgid "the origin is ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:555
+#: src/scm/webid-oidc/errors.scm:786
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:558
+#: src/scm/webid-oidc/errors.scm:789
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:561
+#: src/scm/webid-oidc/errors.scm:792
 msgid "there is a kind and args"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:563
+#: src/scm/webid-oidc/errors.scm:794
 msgid "there is an assertion failure"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:565
+#: src/scm/webid-oidc/errors.scm:796
 #, scheme-format
 msgid "the program quits with code ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:568
+#: src/scm/webid-oidc/errors.scm:799
+msgid "the program cannot recover from this exception"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:801
+msgid "there is an error"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:803
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr ""