adds more details to dns generators, renames +dns/ip to request

This commit is contained in:
Joe Bryan 2019-06-14 15:15:29 -07:00
parent 97113f7e99
commit b5beb4be63
2 changed files with 34 additions and 8 deletions

View File

@ -2,6 +2,25 @@
::
:::: /hoon/auto/dns/gen
::
:- %say
/- *sole
/+ *generators
:- %ask
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
[%dns-auto ~]
^- (sole-result [%dns-auto ~])
=* 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)
(produce [%dns-auto ~])

View File

@ -1,6 +1,6 @@
:: DNS: configure ip address
::
:::: /hoon/authority/dns/gen
:::: /hoon/request/dns/gen
::
/- *dns, *sole
/+ *generators
@ -12,13 +12,20 @@
^- (sole-result [%dns-address address])
=* our p.bec
=/ rac (clan:title our)
::
?: ?=(%czar rac)
:: XX what process?
=/ msg "galaxy domain requests must be made out-of-band"
(print leaf+msg no-product)
=/ msg1 "galaxy domain requests must be made out-of-band"
=/ msg2 "use :dns|auto if you already have an urbit domain"
=/ msg3 "see XX for more details or to BYOD"
%+ print leaf+msg3
%+ print leaf+msg2
(print leaf+msg1 no-product)
::
?: ?=(?(%earl %pawn) rac)
=/ msg "DNS for moons and comets is not supported"
(print leaf+msg no-product)
=/ msg1 "domain names are not provided for comets and moons"
=/ msg2 "see XX for BYOD"
%+ print leaf+msg2
(print leaf+msg1 no-product)
:: invoke parser with arg if present
::
=- ?~ arg -