(defun disable-dns-plesk (server-name servers-config domain) (let ((server-config (gethash server-name servers-config))) (when server-config (with-accessors ((ip ip) (api-key api-key) (site-ids site-ids) (site-alias-ids site-alias-ids)) server-config (drakma:http-request (uri->string *plesk-xml-uri-defaults* :host ip) :method :post :additional-headers (api-key->header api-key) :content (disable-dns-plesk-xml-packet (or (gethash domain site-ids) (gethash domain site-alias-ids))) :content-type "text/xml")))))