diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2024-01-08 14:23:22 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2024-01-08 14:23:22 +0100 |
commit | 6381be77a1b91e2dc3c566cfedc889188c1fb65f (patch) | |
tree | 3452aa4b8c5de97404575af2f332434872a2d057 | |
parent | ea1defefd014b3d81313df0ce2750f50b5007d9e (diff) |
Remove leftover file0.0.1
-rw-r--r-- | guile/email-key-rotation/rotation.scm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/guile/email-key-rotation/rotation.scm b/guile/email-key-rotation/rotation.scm deleted file mode 100644 index a6e9593..0000000 --- a/guile/email-key-rotation/rotation.scm +++ /dev/null @@ -1,64 +0,0 @@ -(define-module (email-key-rotation rotation) - #:use-module (email-key-rotation state) - #:use-module (email-key-rotation openssl) - #:use-module (ice-9 exceptions) - #:use-module (ice-9 match) - #:use-module (oop goops) - #:export (initialize-rotation rotate-key) - #:declarative? #t - #:duplicates (merge-generics)) - -(define (initialize-rotation private-key-file private-opensmtpd-config selectors) - (with-exception-handler - (lambda (exn) - (raise-exception - (make-exception - (make-exception-with-origin 'initialize-key-rotation) - (make-exception-with-irritants (list private-key-file private-opensmtpd-config selectors)) - (make-exception-with-message - "cannot initialize the key rotation.") - exn))) - (lambda () - (the-email-key-rotation-state - (make <email-key-rotation-state> - #:private-key-file private-key-file - #:private-opensmtpd-config private-opensmtpd-config - #:selectors selectors - #:current-dkim-selector (car selectors) - #:current-dkim-private-key - (generate-key 2048) - #:current-srs-secret (random-hex 32)))))) - -(define-method (rotate-key (s <email-key-rotation-state>)) - (with-exception-handler - (lambda (exn) - (raise-exception - (make-exception - (make-exception-with-origin 'rotate-dkim-key) - (make-exception-with-irritants (list s)) - (make-exception-with-message - "cannot rotate the email keys.") - exn))) - (lambda () - (let ((ret (shallow-clone (the-email-key-rotation-state s)))) - (slot-set! ret 'expired-dkim-private-key - (slot-ref s 'current-dkim-private-key)) - (slot-set! ret 'current-dkim-private-key - (generate-key 2048)) - (slot-set! - ret 'current-dkim-selector - (match (memq (current-dkim-selector s) - (selectors s)) - (#f - (error "cannot happen, the state has been validated")) - ((_) - ;; The current selector is the last, start from the head - ;; again. - (car (selectors s))) - ((_ next _ ...) - next))) - (slot-set! ret 'expired-srs-secret - (slot-ref s 'current-srs-secret)) - (slot-set! ret 'current-srs-secret - (random-hex 32)) - ret)))) |