Log request paths, methods, and response codes

3 files changed, 128 insertions, 117 deletions

diff --git a/po/fr.po b/po/fr.po
index 142caf2..d4f75d6 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-07-02 10:57+0200\n"
-"PO-Revision-Date: 2021-07-02 10:59+0200\n"
+"POT-Creation-Date: 2021-07-02 11:34+0200\n"
+"PO-Revision-Date: 2021-07-02 11:34+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
 "Language: fr\n"
@@ -986,17 +986,12 @@ msgstr "~a : échec d’authentificationn : ~a\n"
 msgid "Warning: ~a\n"
 msgstr "Avertissement : ~a\n"
 
-#: src/scm/webid-oidc/resource-server.scm:240
-#, scheme-format
-msgid "Error: ~a\n"
-msgstr "Erreur : ~a\n"
-
 #: src/scm/webid-oidc/hello-world.scm:47 src/scm/webid-oidc/example-app.scm:116
-#: src/scm/webid-oidc/program.scm:111
+#: src/scm/webid-oidc/program.scm:118
 msgid "command-line|version"
 msgstr "version"
 
-#: src/scm/webid-oidc/hello-world.scm:49 src/scm/webid-oidc/program.scm:113
+#: src/scm/webid-oidc/hello-world.scm:49 src/scm/webid-oidc/program.scm:120
 msgid "command-line|complete-corresponding-source"
 msgstr "code-source-correspondant-complet"
 
@@ -1055,12 +1050,12 @@ msgstr ""
 "      définit le port à lier.\n"
 
 #: src/scm/webid-oidc/hello-world.scm:90 src/scm/webid-oidc/example-app.scm:159
-#: src/scm/webid-oidc/program.scm:401
+#: src/scm/webid-oidc/program.scm:408
 #, scheme-format
 msgid "~a version ~a\n"
 msgstr "~a version ~a\n"
 
-#: src/scm/webid-oidc/hello-world.scm:99 src/scm/webid-oidc/program.scm:409
+#: src/scm/webid-oidc/hello-world.scm:99 src/scm/webid-oidc/program.scm:416
 msgid ""
 "You are legally required to link to the complete corresponding source code.\n"
 msgstr ""
@@ -1232,75 +1227,80 @@ msgstr ""
 "La locale du client ~s ne peut pas être approchée par la locale système ~s "
 "(parce que ~a), on utilise C.\n"
 
-#: src/scm/webid-oidc/program.scm:115
+#: src/scm/webid-oidc/program.scm:92
+#, scheme-format
+msgid "~a: ~s ~a ~s ~a\n"
+msgstr "~a : ~s ~a ~s ~a\n"
+
+#: src/scm/webid-oidc/program.scm:122
 msgid "command-line|help"
 msgstr "aide"
 
-#: src/scm/webid-oidc/program.scm:117
+#: src/scm/webid-oidc/program.scm:124
 msgid "command-line|server|port"
 msgstr "port"
 
-#: src/scm/webid-oidc/program.scm:119
+#: src/scm/webid-oidc/program.scm:126
 msgid "command-line|server|server-name"
 msgstr "nom-du-serveur"
 
-#: src/scm/webid-oidc/program.scm:121
+#: src/scm/webid-oidc/program.scm:128
 msgid "command-line|server|reverse-proxy|backend-uri"
 msgstr "uri-arrière-plan"
 
-#: src/scm/webid-oidc/program.scm:123
+#: src/scm/webid-oidc/program.scm:130
 msgid "command-line|server|reverse-proxy|header"
 msgstr "en-tête"
 
-#: src/scm/webid-oidc/program.scm:125
+#: src/scm/webid-oidc/program.scm:132
 msgid "command-line|server|issuer|key-file"
 msgstr "fichier-clé"
 
-#: src/scm/webid-oidc/program.scm:127
+#: src/scm/webid-oidc/program.scm:134
 msgid "command-line|server|issuer|subject"
 msgstr "sujet"
 
-#: src/scm/webid-oidc/program.scm:129
+#: src/scm/webid-oidc/program.scm:136
 msgid "command-line|server|issuer|password"
 msgstr "mot-de-passe"
 
-#: src/scm/webid-oidc/program.scm:131
+#: src/scm/webid-oidc/program.scm:138
 msgid "command-line|server|issuer|jwks-uri"
 msgstr "uri-jwks"
 
-#: src/scm/webid-oidc/program.scm:133
+#: src/scm/webid-oidc/program.scm:140
 msgid "command-line|server|issuer|authorization-endpoint-uri"
 msgstr "uri-terminal-autorisation"
 
-#: src/scm/webid-oidc/program.scm:135
+#: src/scm/webid-oidc/program.scm:142
 msgid "command-line|server|issuer|token-endpoint-uri"
 msgstr "uri-terminal-jeton"
 
-#: src/scm/webid-oidc/program.scm:137
+#: src/scm/webid-oidc/program.scm:144
 msgid "command-line|server|client-id"
 msgstr "id-client"
 
-#: src/scm/webid-oidc/program.scm:139
+#: src/scm/webid-oidc/program.scm:146
 msgid "command-line|server|redirect-uri"
 msgstr "uri-redirection"
 
-#: src/scm/webid-oidc/program.scm:141
+#: src/scm/webid-oidc/program.scm:148
 msgid "command-line|server|client-name"
 msgstr "nom-client"
 
-#: src/scm/webid-oidc/program.scm:143
+#: src/scm/webid-oidc/program.scm:150
 msgid "command-line|server|client-uri"
 msgstr "uri-client"
 
-#: src/scm/webid-oidc/program.scm:145
+#: src/scm/webid-oidc/program.scm:152
 msgid "command-line|log-file"
 msgstr "fichier-journal"
 
-#: src/scm/webid-oidc/program.scm:147
+#: src/scm/webid-oidc/program.scm:154
 msgid "command-line|error-file"
 msgstr "fichier-erreur"
 
-#: src/scm/webid-oidc/program.scm:172
+#: src/scm/webid-oidc/program.scm:179
 #, scheme-format
 msgid ""
 "Usage: ~a COMMAND [OPTIONS]...\n"
@@ -1612,57 +1612,57 @@ msgstr ""
 "Si vous trouvez une erreur dans le programme, envoyez-en un rapport à\n"
 "~a.\n"
 
-#: src/scm/webid-oidc/program.scm:322 src/scm/webid-oidc/program.scm:380
-#: src/scm/webid-oidc/program.scm:491
+#: src/scm/webid-oidc/program.scm:329 src/scm/webid-oidc/program.scm:387
+#: src/scm/webid-oidc/program.scm:498
 msgid "command-line|command|reverse-proxy"
 msgstr "proxy-inversé"
 
-#: src/scm/webid-oidc/program.scm:323 src/scm/webid-oidc/program.scm:387
-#: src/scm/webid-oidc/program.scm:511
+#: src/scm/webid-oidc/program.scm:330 src/scm/webid-oidc/program.scm:394
+#: src/scm/webid-oidc/program.scm:518
 msgid "command-line|command|identity-provider"
 msgstr "fournisseur-identité"
 
-#: src/scm/webid-oidc/program.scm:324 src/scm/webid-oidc/program.scm:394
-#: src/scm/webid-oidc/program.scm:552
+#: src/scm/webid-oidc/program.scm:331 src/scm/webid-oidc/program.scm:401
+#: src/scm/webid-oidc/program.scm:559
 msgid "command-line|command|client-service"
 msgstr "service-client"
 
-#: src/scm/webid-oidc/program.scm:325 src/scm/webid-oidc/program.scm:578
+#: src/scm/webid-oidc/program.scm:332 src/scm/webid-oidc/program.scm:585
 msgid "command-line|command|server"
 msgstr "serveur"
 
-#: src/scm/webid-oidc/program.scm:361 src/scm/webid-oidc/program.scm:365
-#: src/scm/webid-oidc/program.scm:369 src/scm/webid-oidc/program.scm:373
+#: src/scm/webid-oidc/program.scm:368 src/scm/webid-oidc/program.scm:372
+#: src/scm/webid-oidc/program.scm:376 src/scm/webid-oidc/program.scm:380
 #, scheme-format
 msgid "an environment variable| It is currently set to ~s."
 msgstr " Elle vaut actuellement ~s."
 
-#: src/scm/webid-oidc/program.scm:363 src/scm/webid-oidc/program.scm:367
-#: src/scm/webid-oidc/program.scm:371 src/scm/webid-oidc/program.scm:375
+#: src/scm/webid-oidc/program.scm:370 src/scm/webid-oidc/program.scm:374
+#: src/scm/webid-oidc/program.scm:378 src/scm/webid-oidc/program.scm:382
 msgid "an environment variable| It is currently unset."
 msgstr " Elle n’est actuellement pas définie."
 
-#: src/scm/webid-oidc/program.scm:416
+#: src/scm/webid-oidc/program.scm:423
 #, scheme-format
 msgid "The --~a argument must be a number, not ~s.\n"
 msgstr "L’argument de --~a doit être un nombre, pas ~s.\n"
 
-#: src/scm/webid-oidc/program.scm:422
+#: src/scm/webid-oidc/program.scm:429
 #, scheme-format
 msgid "The --~a argument must be an integer, not ~s.\n"
 msgstr "L’argument de --~a doit être un entier, pas ~s.\n"
 
-#: src/scm/webid-oidc/program.scm:428
+#: src/scm/webid-oidc/program.scm:435
 #, scheme-format
 msgid "The --~a argument must be positive, ~s is invalid.\n"
 msgstr "L’argument de --~a doit être positif, ~s est invalide.\n"
 
-#: src/scm/webid-oidc/program.scm:433
+#: src/scm/webid-oidc/program.scm:440
 #, scheme-format
 msgid "The --~a argument must be less than 65536, ~s is invalid.\n"
 msgstr "L’argument de --~a doit être inférieur à 65536, ~s est invalide.\n"
 
-#: src/scm/webid-oidc/program.scm:475
+#: src/scm/webid-oidc/program.scm:482
 #, scheme-format
 msgid ""
 "Usage: ~a COMMAND [OPTIONS]...\n"
@@ -1671,18 +1671,18 @@ msgstr ""
 "Utilisation : ~a COMMANDE [OPTIONS]...\n"
 "Voir --~a (-h).\n"
 
-#: src/scm/webid-oidc/program.scm:494 src/scm/webid-oidc/program.scm:514
-#: src/scm/webid-oidc/program.scm:580
+#: src/scm/webid-oidc/program.scm:501 src/scm/webid-oidc/program.scm:521
+#: src/scm/webid-oidc/program.scm:587
 #, scheme-format
 msgid "You must pass --~a to set the server name.\n"
 msgstr "Vous devez passer --~a pour définir le nom du serveur.\n"
 
-#: src/scm/webid-oidc/program.scm:498
+#: src/scm/webid-oidc/program.scm:505
 #, scheme-format
 msgid "You must pass --~a to set the backend URI.\n"
 msgstr "Vous devez passer --~a pour définir l'URI du service d’arrière-plan.\n"
 
-#: src/scm/webid-oidc/program.scm:518 src/scm/webid-oidc/program.scm:584
+#: src/scm/webid-oidc/program.scm:525 src/scm/webid-oidc/program.scm:591
 #, scheme-format
 msgid ""
 "You must pass --~a to set the file where to store the identity provider "
@@ -1691,63 +1691,67 @@ msgstr ""
 "Vous devez passer --~a pour définir le nom du fichier pour sauvegarder\n"
 "la clé du fournisseur d’identité.\n"
 
-#: src/scm/webid-oidc/program.scm:522 src/scm/webid-oidc/program.scm:588
+#: src/scm/webid-oidc/program.scm:529 src/scm/webid-oidc/program.scm:595
 #, scheme-format
 msgid "You must pass --~a to set the subject of the identity provider.\n"
 msgstr ""
 "Vous devez passer --~a pour définir le sujet du fournisseur d’identité.\n"
 
-#: src/scm/webid-oidc/program.scm:526 src/scm/webid-oidc/program.scm:592
+#: src/scm/webid-oidc/program.scm:533 src/scm/webid-oidc/program.scm:599
 #, scheme-format
 msgid "You must pass --~a to set the subject’s password.\n"
 msgstr "Vous devez passer --~a pour définir le mot de passe du sujet.\n"
 
-#: src/scm/webid-oidc/program.scm:530 src/scm/webid-oidc/program.scm:596
+#: src/scm/webid-oidc/program.scm:537 src/scm/webid-oidc/program.scm:603
 #, scheme-format
 msgid "You must pass --~a to set the JWKS URI.\n"
 msgstr "Vous devez passer --~a pour définir l'URI du JWKS.\n"
 
-#: src/scm/webid-oidc/program.scm:534 src/scm/webid-oidc/program.scm:600
+#: src/scm/webid-oidc/program.scm:541 src/scm/webid-oidc/program.scm:607
 #, scheme-format
 msgid "You must pass --~a to set the authorization endpoint URI.\n"
 msgstr ""
 "Vous devez passer --~a pour définir l'URI du terminal d'autorisation.\n"
 
-#: src/scm/webid-oidc/program.scm:538 src/scm/webid-oidc/program.scm:604
+#: src/scm/webid-oidc/program.scm:545 src/scm/webid-oidc/program.scm:611
 #, scheme-format
 msgid "You must pass --~a to set the token endpoint URI.\n"
 msgstr "Vous devez passer --~a pour définir l'URI du terminal de jeton.\n"
 
-#: src/scm/webid-oidc/program.scm:555
+#: src/scm/webid-oidc/program.scm:562
 #, scheme-format
 msgid "You must pass --~a to set the application web ID.\n"
 msgstr ""
 "Vous devez passer --~a pour définir l'identifiant web de l’application.\n"
 
-#: src/scm/webid-oidc/program.scm:559
+#: src/scm/webid-oidc/program.scm:566
 #, scheme-format
 msgid "You must pass --~a to set the redirection URI.\n"
 msgstr "Vous devez passer --~a pour définir l'URI de redirection.\n"
 
-#: src/scm/webid-oidc/program.scm:563
+#: src/scm/webid-oidc/program.scm:570
 #, scheme-format
 msgid "You must pass --~a to set the informative client name.\n"
 msgstr ""
 "Vous devez passer --~a pour donner un nom pour l’application à titre "
 "informatif.\n"
 
-#: src/scm/webid-oidc/program.scm:567
+#: src/scm/webid-oidc/program.scm:574
 #, scheme-format
 msgid "You must pass --~a to set the informative client URI.\n"
 msgstr ""
 "Vous devez passer --~a pour définir l'URI du client, à titre informatif.\n"
 
-#: src/scm/webid-oidc/program.scm:649
+#: src/scm/webid-oidc/program.scm:656
 #, scheme-format
 msgid "Unknown command ~s\n"
 msgstr "Commande inconnue ~s\n"
 
 #, scheme-format
+#~ msgid "Error: ~a\n"
+#~ msgstr "Erreur : ~a\n"
+
+#, scheme-format
 #~ msgid ""
 #~ "~a [OPTIONS]...\n"
 #~ "\n"
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index 985c688..bff1956 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-07-02 10:57+0200\n"
+"POT-Creation-Date: 2021-07-02 11:34+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"
@@ -944,17 +944,12 @@ msgstr ""
 msgid "Warning: ~a\n"
 msgstr ""
 
-#: src/scm/webid-oidc/resource-server.scm:240
-#, scheme-format
-msgid "Error: ~a\n"
-msgstr ""
-
 #: src/scm/webid-oidc/hello-world.scm:47 src/scm/webid-oidc/example-app.scm:116
-#: src/scm/webid-oidc/program.scm:111
+#: src/scm/webid-oidc/program.scm:118
 msgid "command-line|version"
 msgstr ""
 
-#: src/scm/webid-oidc/hello-world.scm:49 src/scm/webid-oidc/program.scm:113
+#: src/scm/webid-oidc/hello-world.scm:49 src/scm/webid-oidc/program.scm:120
 msgid "command-line|complete-corresponding-source"
 msgstr ""
 
@@ -992,12 +987,12 @@ msgid ""
 msgstr ""
 
 #: src/scm/webid-oidc/hello-world.scm:90 src/scm/webid-oidc/example-app.scm:159
-#: src/scm/webid-oidc/program.scm:401
+#: src/scm/webid-oidc/program.scm:408
 #, scheme-format
 msgid "~a version ~a\n"
 msgstr ""
 
-#: src/scm/webid-oidc/hello-world.scm:99 src/scm/webid-oidc/program.scm:409
+#: src/scm/webid-oidc/hello-world.scm:99 src/scm/webid-oidc/program.scm:416
 msgid ""
 "You are legally required to link to the complete corresponding source code.\n"
 msgstr ""
@@ -1124,75 +1119,80 @@ msgid ""
 "using C.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:115
+#: src/scm/webid-oidc/program.scm:92
+#, scheme-format
+msgid "~a: ~s ~a ~s ~a\n"
+msgstr ""
+
+#: src/scm/webid-oidc/program.scm:122
 msgid "command-line|help"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:117
+#: src/scm/webid-oidc/program.scm:124
 msgid "command-line|server|port"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:119
+#: src/scm/webid-oidc/program.scm:126
 msgid "command-line|server|server-name"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:121
+#: src/scm/webid-oidc/program.scm:128
 msgid "command-line|server|reverse-proxy|backend-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:123
+#: src/scm/webid-oidc/program.scm:130
 msgid "command-line|server|reverse-proxy|header"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:125
+#: src/scm/webid-oidc/program.scm:132
 msgid "command-line|server|issuer|key-file"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:127
+#: src/scm/webid-oidc/program.scm:134
 msgid "command-line|server|issuer|subject"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:129
+#: src/scm/webid-oidc/program.scm:136
 msgid "command-line|server|issuer|password"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:131
+#: src/scm/webid-oidc/program.scm:138
 msgid "command-line|server|issuer|jwks-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:133
+#: src/scm/webid-oidc/program.scm:140
 msgid "command-line|server|issuer|authorization-endpoint-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:135
+#: src/scm/webid-oidc/program.scm:142
 msgid "command-line|server|issuer|token-endpoint-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:137
+#: src/scm/webid-oidc/program.scm:144
 msgid "command-line|server|client-id"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:139
+#: src/scm/webid-oidc/program.scm:146
 msgid "command-line|server|redirect-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:141
+#: src/scm/webid-oidc/program.scm:148
 msgid "command-line|server|client-name"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:143
+#: src/scm/webid-oidc/program.scm:150
 msgid "command-line|server|client-uri"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:145
+#: src/scm/webid-oidc/program.scm:152
 msgid "command-line|log-file"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:147
+#: src/scm/webid-oidc/program.scm:154
 msgid "command-line|error-file"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:172
+#: src/scm/webid-oidc/program.scm:179
 #, scheme-format
 msgid ""
 "Usage: ~a COMMAND [OPTIONS]...\n"
@@ -1347,127 +1347,127 @@ msgid ""
 "If you find a bug, then please send a report to ~a.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:322 src/scm/webid-oidc/program.scm:380
-#: src/scm/webid-oidc/program.scm:491
+#: src/scm/webid-oidc/program.scm:329 src/scm/webid-oidc/program.scm:387
+#: src/scm/webid-oidc/program.scm:498
 msgid "command-line|command|reverse-proxy"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:323 src/scm/webid-oidc/program.scm:387
-#: src/scm/webid-oidc/program.scm:511
+#: src/scm/webid-oidc/program.scm:330 src/scm/webid-oidc/program.scm:394
+#: src/scm/webid-oidc/program.scm:518
 msgid "command-line|command|identity-provider"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:324 src/scm/webid-oidc/program.scm:394
-#: src/scm/webid-oidc/program.scm:552
+#: src/scm/webid-oidc/program.scm:331 src/scm/webid-oidc/program.scm:401
+#: src/scm/webid-oidc/program.scm:559
 msgid "command-line|command|client-service"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:325 src/scm/webid-oidc/program.scm:578
+#: src/scm/webid-oidc/program.scm:332 src/scm/webid-oidc/program.scm:585
 msgid "command-line|command|server"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:361 src/scm/webid-oidc/program.scm:365
-#: src/scm/webid-oidc/program.scm:369 src/scm/webid-oidc/program.scm:373
+#: src/scm/webid-oidc/program.scm:368 src/scm/webid-oidc/program.scm:372
+#: src/scm/webid-oidc/program.scm:376 src/scm/webid-oidc/program.scm:380
 #, scheme-format
 msgid "an environment variable| It is currently set to ~s."
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:363 src/scm/webid-oidc/program.scm:367
-#: src/scm/webid-oidc/program.scm:371 src/scm/webid-oidc/program.scm:375
+#: src/scm/webid-oidc/program.scm:370 src/scm/webid-oidc/program.scm:374
+#: src/scm/webid-oidc/program.scm:378 src/scm/webid-oidc/program.scm:382
 msgid "an environment variable| It is currently unset."
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:416
+#: src/scm/webid-oidc/program.scm:423
 #, scheme-format
 msgid "The --~a argument must be a number, not ~s.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:422
+#: src/scm/webid-oidc/program.scm:429
 #, scheme-format
 msgid "The --~a argument must be an integer, not ~s.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:428
+#: src/scm/webid-oidc/program.scm:435
 #, scheme-format
 msgid "The --~a argument must be positive, ~s is invalid.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:433
+#: src/scm/webid-oidc/program.scm:440
 #, scheme-format
 msgid "The --~a argument must be less than 65536, ~s is invalid.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:475
+#: src/scm/webid-oidc/program.scm:482
 #, scheme-format
 msgid ""
 "Usage: ~a COMMAND [OPTIONS]...\n"
 "See --~a (-h).\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:494 src/scm/webid-oidc/program.scm:514
-#: src/scm/webid-oidc/program.scm:580
+#: src/scm/webid-oidc/program.scm:501 src/scm/webid-oidc/program.scm:521
+#: src/scm/webid-oidc/program.scm:587
 #, scheme-format
 msgid "You must pass --~a to set the server name.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:498
+#: src/scm/webid-oidc/program.scm:505
 #, scheme-format
 msgid "You must pass --~a to set the backend URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:518 src/scm/webid-oidc/program.scm:584
+#: src/scm/webid-oidc/program.scm:525 src/scm/webid-oidc/program.scm:591
 #, scheme-format
 msgid ""
 "You must pass --~a to set the file where to store the identity provider "
 "key.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:522 src/scm/webid-oidc/program.scm:588
+#: src/scm/webid-oidc/program.scm:529 src/scm/webid-oidc/program.scm:595
 #, scheme-format
 msgid "You must pass --~a to set the subject of the identity provider.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:526 src/scm/webid-oidc/program.scm:592
+#: src/scm/webid-oidc/program.scm:533 src/scm/webid-oidc/program.scm:599
 #, scheme-format
 msgid "You must pass --~a to set the subject’s password.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:530 src/scm/webid-oidc/program.scm:596
+#: src/scm/webid-oidc/program.scm:537 src/scm/webid-oidc/program.scm:603
 #, scheme-format
 msgid "You must pass --~a to set the JWKS URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:534 src/scm/webid-oidc/program.scm:600
+#: src/scm/webid-oidc/program.scm:541 src/scm/webid-oidc/program.scm:607
 #, scheme-format
 msgid "You must pass --~a to set the authorization endpoint URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:538 src/scm/webid-oidc/program.scm:604
+#: src/scm/webid-oidc/program.scm:545 src/scm/webid-oidc/program.scm:611
 #, scheme-format
 msgid "You must pass --~a to set the token endpoint URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:555
+#: src/scm/webid-oidc/program.scm:562
 #, scheme-format
 msgid "You must pass --~a to set the application web ID.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:559
+#: src/scm/webid-oidc/program.scm:566
 #, scheme-format
 msgid "You must pass --~a to set the redirection URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:563
+#: src/scm/webid-oidc/program.scm:570
 #, scheme-format
 msgid "You must pass --~a to set the informative client name.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:567
+#: src/scm/webid-oidc/program.scm:574
 #, scheme-format
 msgid "You must pass --~a to set the informative client URI.\n"
 msgstr ""
 
-#: src/scm/webid-oidc/program.scm:649
+#: src/scm/webid-oidc/program.scm:656
 #, scheme-format
 msgid "Unknown command ~s\n"
 msgstr ""
diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm
index a9c1a0f..4d431da 100644
--- a/src/scm/webid-oidc/program.scm
+++ b/src/scm/webid-oidc/program.scm
@@ -88,6 +88,13 @@
              (lambda ()
                (receive (response response-body)
                    (handler request request-body)
+                 (format (current-error-port)
+                         (G_ "~a: ~s ~a ~s ~a\n")
+                         (date->string (time-utc->date (current-time)))
+                         (request-method request)
+                         (uri-path (request-uri request))
+                         (response-code response)
+                         (response-reason-phrase response))
                  (return
                   (build-response
                    #:version (response-version response)