From ce74c1c2c12fdf72707cc891629debf19e142165 Mon Sep 17 00:00:00 2001
From: Karchnu <karchnu@karchnu.fr>
Date: Wed, 9 Dec 2020 23:40:24 +0100
Subject: [PATCH] Adding simple tools, just to show how to use classes.

---
 tools/test-storage.cr   | 28 ++++++++++++++++++++++++++++
 tools/zone_from_json.cr |  7 +++++++
 2 files changed, 35 insertions(+)
 create mode 100644 tools/test-storage.cr
 create mode 100644 tools/zone_from_json.cr

diff --git a/tools/test-storage.cr b/tools/test-storage.cr
new file mode 100644
index 0000000..1c1c90f
--- /dev/null
+++ b/tools/test-storage.cr
@@ -0,0 +1,28 @@
+require "./src/storage.cr"
+
+alias DSZ = DNSManager::Storage::Zone
+
+storage = DNSManager::Storage.new "STORAGE"
+
+user_data = DNSManager::Storage::UserData.new 1004
+storage.user_data << user_data rescue nil
+
+zone = DSZ.new "test.my-domain.com"
+
+a_record    = DSZ::A.new    "www",  600.to_u32, "127.0.0.1"
+aaaa_record = DSZ::AAAA.new "www",  600.to_u32, "::1"
+mx_record   = DSZ::MX.new   "mail", 600.to_u32, "127.0.0.1", 5.to_u32
+
+zone.resources << a_record
+zone.resources << aaaa_record
+zone.resources << mx_record
+
+storage.new_domain 1004, zone
+
+pp! storage.user_data
+puts "Zones !!!"
+pp! storage.zones
+storage.zones.to_a.each do |z|
+	pp! z
+end
+
diff --git a/tools/zone_from_json.cr b/tools/zone_from_json.cr
new file mode 100644
index 0000000..b7bbe9d
--- /dev/null
+++ b/tools/zone_from_json.cr
@@ -0,0 +1,7 @@
+require "./src/storage.cr"
+
+
+alias DSZ = DNSManager::Storage::Zone
+
+zone = DSZ.from_json File.read(ARGV[0])
+pp! zone