(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")))))