mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 10:02:47 +03:00
adds more details to dns generators, renames +dns/ip to request
This commit is contained in:
parent
97113f7e99
commit
b5beb4be63
@ -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 ~])
|
||||
|
@ -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 -
|
Loading…
Reference in New Issue
Block a user