From dce156e2f6c6ae1fb142f7b1ebd542763a09cedf Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 8 Jan 2024 14:27:24 +0100 Subject: Remove leftover files --- guile/email-key-rotation/openstmpd.scm | 60 ---------------------------------- 1 file changed, 60 deletions(-) delete mode 100644 guile/email-key-rotation/openstmpd.scm diff --git a/guile/email-key-rotation/openstmpd.scm b/guile/email-key-rotation/openstmpd.scm deleted file mode 100644 index 9ca2fab..0000000 --- a/guile/email-key-rotation/openstmpd.scm +++ /dev/null @@ -1,60 +0,0 @@ -(define-module (email-key-rotation gandi) - #:use-module (srfi srfi-26) - #:use-module (srfi srfi-9 gnu) - #:use-module (ice-9 optargs) - #:export ( - make-openstmpd-configuration - opensmtpd-configuration? - api-key set-api-key - domain set-domain - gandi-livedns-request) - #:declarative? #t) - -(define-immutable-record-type - (make-gandi-configuration api-key domain) - gandi-configuration? - (api-key api-key set-api-key) - (domain domain set-domain)) - -(define* (gandi-livedns-request configuration - path-under-domain - #:key - (headers '()) - (body #f) - (http-request http-request)) - (with-exception-handler - (lambda (exn) - (raise-exception - (make-exception - (make-exception-with-origin 'gandi-http-request) - (make-exception-with-irritants (list configuration - path-under-domain - headers - body)) - (make-exception-with-message - "cannot request Gandi livedns.") - exn))) - (lambda () - (unless (list? path-under-domain) - (raise-exception - (make-error) - (make-exception-with-irritants (list path-under-domain)) - (make-exception-with-message - "the PATH-UNDER-DOMAIN argument must be a list of path items."))) - (let ((uri (build-uri - 'https - #:host "api.gandi.net" - #:path - (string-append - "/" - (encode-and-join-uri-path - `("v5" - "livedns" - "domains" - ,domain - ,@path-under-domain))))) - (headers - `((Authorization - . ,(string-append "ApiKey " (api-key configuration))) - ,@headers))) - (http-request uri #:headers headers #:body body))))) -- cgit v1.2.3