87 lines
1.8 KiB
Crystal
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
|
|
|
|
|