dnsmanager/tools/send-zone-with-errors.cr

87 lines
1.8 KiB
Crystal

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