require "authd"
require "yaml"

require "baguette-crystal-base"
require "ipc"

require "../src/network.cr"
require "../src/storage.cr"
require "../src/config"
require "../src/client/lib/*"

#
# Create a zone with errors then try to add it to dnsmanager.
# This also shows how to use IPC connections and the dnsmanager client library.
# Real dnsmanager client is in `src/client/`.
#

alias DSZ = DNSManager::Storage::Zone

if ARGV.size < 2
	puts "usage: username pass"
	exit 0
end

# Authentication
login = ARGV[0]
pass  = ARGV[1]

begin
	puts "authd: connection"
	authd = AuthD::Client.new
rescue e
	puts "cannot contact authd:"
	puts e.to_s
	exit 1
end

puts "authd: sending login"
token = authd.get_token? login, pass
puts "authd: after receiving token, disconnection"
authd.close

unless token
	puts "cannot obtain a token from authd"
	exit 1
end

begin
	puts "dnsmanager: connection"
	dnsmanagerd = DNSManager::Client.new
rescue e
	puts "cannot contact dnsmanagerd:"
	puts e.to_s
	exit 1
end

puts "dnsmanager: sending login"
dnsmanagerd.login token.not_nil!
puts "dnsmanager: receiving login response"

zone = DSZ.new "test.my-domain.com!!!"

#
# Invalid records
#

zone.resources << DSZ::A.new    "13931891",  600.to_u32, "127.0.0.1"
zone.resources << DSZ::AAAA.new "www",  600.to_u32, "::10000"
zone.resources << DSZ::MX.new   "mail", 600.to_u32, "!!", 5.to_u32
zone.resources << DSZ::MX.new   "mail", 1.to_u32, "::1", 5.to_u32

# PTR: 0.168.192.in-addr.net 60 example.com. 
zone.resources << DSZ::PTR.new   "1.10.20.80.in-addr.arpa", 60.to_u32, "::1"
zone.resources << DSZ::PTR.new   "1.10.20.80.mdr", 60.to_u32, "blah.com"

zone.resources << DSZ::SOA.new   "mail", 60.to_u32, "::1",
	"ma.zone.tld", "john\.doe.example.com"

zone.resources << DSZ::NS.new   "mail", 60.to_u32, "::1"

pp! dnsmanagerd.user_zone_add zone

puts "dnsmanager: close"
dnsmanagerd.close
exit 0