From e7266f399cd29eaff771b127f429f20a6b731e65 Mon Sep 17 00:00:00 2001
From: Al Beano <albino@autistici.org>
Date: Sun, 20 Aug 2017 20:57:46 +0100
Subject: [PATCH] Destroy records when domain is deleted

---
 lib/cyberman/Domains.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/cyberman/Domains.pm b/lib/cyberman/Domains.pm
index ac61cf5..3759d06 100644
--- a/lib/cyberman/Domains.pm
+++ b/lib/cyberman/Domains.pm
@@ -115,6 +115,12 @@ post '/domains/:name/remove' => sub {
 			"name" => param("name"),
 		},
 	);
+	database->quick_delete(
+		"record",
+		{
+			"domainid" => $domain->{"id"},
+		},
+	);
 
 	template redir => {
 		redir => "../../domains?removed=$domain->{name}",