mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
30 lines
793 B
Plaintext
30 lines
793 B
Plaintext
|
:: DNS: configure automatically
|
||
|
|
::
|
||
|
|
:::: /hoon/auto/dns/gen
|
||
|
|
::
|
||
|
|
/- *sole
|
||
|
|
/+ *generators
|
||
|
|
:- %ask
|
||
|
|
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
|
||
|
|
^- (sole-result [%dns-auto (list turf)])
|
||
|
|
=* 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)
|
||
|
|
::
|
||
|
|
=/ ames-domains=(list turf)
|
||
|
|
.^((list turf) %j /(scot %p our)/turf/(scot %da now))
|
||
|
|
(produce [%dns-auto ames-domains])
|