diff options
Diffstat (limited to 'guile/email-key-rotation/dkim.scm')
-rw-r--r-- | guile/email-key-rotation/dkim.scm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/guile/email-key-rotation/dkim.scm b/guile/email-key-rotation/dkim.scm index 69c1a74..f13d5b4 100644 --- a/guile/email-key-rotation/dkim.scm +++ b/guile/email-key-rotation/dkim.scm @@ -9,6 +9,7 @@ #:use-module (ice-9 exceptions) #:use-module (ice-9 match) #:use-module (ice-9 rdelim) + #:use-module (ice-9 i18n) #:use-module (srfi srfi-9 gnu) #:use-module (sxml match) #:export (<key> @@ -26,6 +27,8 @@ dns-records) #:declarative? #t) +(define (G_ msg) (gettext msg "email-key-rotation")) + (define-immutable-record-type <key> (make-key current-selector next-selectors current-private-key expired-private-key) key? @@ -43,7 +46,7 @@ (make-exception-with-origin 'sxml->key) (make-exception-with-irritants (list sxml)) (make-exception-with-message - "cannot read the XML fragment as a key.") + (G_ "cannot read the XML fragment as a key.")) exn))) (lambda () (sxml-match @@ -78,7 +81,7 @@ (make-exception-with-origin 'key->sxml) (make-exception-with-irritants (list key)) (make-exception-with-message - "when converting a DKIM key to SXML:") + (G_ "when converting a DKIM key to SXML:")) exn))) (lambda () (match key @@ -106,7 +109,7 @@ (make-exception-with-origin 'initialize) (make-exception-with-irritants (list selectors)) (make-exception-with-message - "when initializing a new DKIM key:") + (G_ "when initializing a new DKIM key:")) exn))) (lambda () (make-key (car selectors) @@ -122,7 +125,7 @@ (make-exception-with-origin 'rotate) (make-exception-with-irritants (list key)) (make-exception-with-message - "when rotating a DKIM key:") + (G_ "when rotating a DKIM key:")) exn))) (lambda () (match key @@ -140,7 +143,7 @@ (make-exception-with-origin 'write-current-selector) (make-exception-with-irritants (list key port)) (make-exception-with-message - "when writing the DKIM selector to file:") + (G_ "when writing the DKIM selector to file:")) exn))) (lambda () (seek port 0 SEEK_SET) @@ -155,7 +158,7 @@ (make-exception-with-origin 'write-private-key) (make-exception-with-irritants (list key port)) (make-exception-with-message - "when saving a private DKIM key:") + (G_ "when saving a private DKIM key:")) exn))) (lambda () (unless (port? port) @@ -163,7 +166,7 @@ (make-exception (make-error) (make-exception-with-message - "the port to write must be a port object.")))) + (G_ "the port to write must be a port object."))))) (when (file-port? port) (chmod port #o600)) (seek port 0 SEEK_SET) @@ -207,7 +210,7 @@ (make-exception-with-origin 'dns-records) (make-exception-with-irritants (list key)) (make-exception-with-message - "when computing the DKIM DNS records:") + (G_ "when computing the DKIM DNS records:")) exn))) (lambda () (match key |