2019-06-05 04:21:42 +03:00
|
|
|
:: DNS: configure automatically
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/auto/dns/gen
|
|
|
|
|
::
|
2019-06-15 01:15:29 +03:00
|
|
|
/- *sole
|
|
|
|
|
/+ *generators
|
|
|
|
|
:- %ask
|
2019-06-05 04:21:42 +03:00
|
|
|
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
|
2019-07-03 01:11:03 +03:00
|
|
|
^- (sole-result [%dns-auto (list turf)])
|
2019-06-15 01:15:29 +03:00
|
|
|
=* our p.bec
|
|
|
|
|
=/ rac (clan:title our)
|
|
|
|
|
::
|
|
|
|
|
?: ?=(?(%earl %pawn) rac)
|
|
|
|
|
=/ msg1 "domain names are not provided for comets and moons"
|
|
|
|
|
=/ msg2 "see XX for BYOD"
|
|
|
|
|
%+ print leaf+msg2
|
|
|
|
|
(print leaf+msg1 no-product)
|
|
|
|
|
::
|
|
|
|
|
?. ?=(%czar rac)
|
|
|
|
|
=/ msg1 ":dns|auto is only supported for galaxies"
|
|
|
|
|
=/ msg2 "use :dns|request with your ship's public IP address"
|
|
|
|
|
=/ msg3 "see XX for more details, or to BYOD"
|
|
|
|
|
%+ print leaf+msg3
|
|
|
|
|
%+ print leaf+msg2
|
|
|
|
|
(print leaf+msg1 no-product)
|
2019-07-03 01:11:03 +03:00
|
|
|
::
|
|
|
|
|
=/ ames-domains=(list turf)
|
|
|
|
|
.^((list turf) %j /(scot %p our)/turf/(scot %da now))
|
|
|
|
|
(produce [%dns-auto ames-domains])
|
