2018-10-30 22:05:42 +03:00
|
|
|
:: DNS: configure ip address
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/authority/dns/gen
|
|
|
|
|
::
|
|
|
|
|
/- *dns, *sole
|
|
|
|
|
/+ *generators
|
|
|
|
|
:- %ask
|
|
|
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
|
|
|
[arg=$@(~ [addr=@if ~])]
|
|
|
|
|
~
|
|
|
|
|
==
|
2019-06-05 04:21:42 +03:00
|
|
|
^- (sole-result [%dns-address address])
|
2018-10-30 22:05:42 +03:00
|
|
|
=* our p.bec
|
2019-06-07 21:36:12 +03:00
|
|
|
=/ rac (clan:title our)
|
|
|
|
|
?: ?=(%czar rac)
|
|
|
|
|
:: XX what process?
|
|
|
|
|
=/ msg "galaxy domain requests must be made out-of-band"
|
|
|
|
|
(print leaf+msg no-product)
|
|
|
|
|
?: ?=(?(%earl %pawn) rac)
|
|
|
|
|
=/ msg "DNS for moons and comets is not supported"
|
|
|
|
|
(print leaf+msg no-product)
|
|
|
|
|
:: invoke parser with arg if present
|
|
|
|
|
::
|
2018-10-30 22:05:42 +03:00
|
|
|
=- ?~ arg -
|
|
|
|
|
(fun.q.q addr.arg)
|
|
|
|
|
%+ prompt
|
|
|
|
|
[%& %dns-address "ipv4 address: "]
|
|
|
|
|
%+ parse
|
2019-06-07 21:36:12 +03:00
|
|
|
^- $-(nail (like @if))
|
|
|
|
|
;~(pfix ;~(pose dot (easy ~)) lip:ag)
|
2018-10-30 22:05:42 +03:00
|
|
|
|= addr=@if
|
2018-11-03 08:17:34 +03:00
|
|
|
?: (reserved:eyre addr)
|
|
|
|
|
=/ msg "unable to bind reserved ipv4 address {(scow %if addr)}"
|
|
|
|
|
(print leaf+msg no-product)
|
2018-10-30 22:05:42 +03:00
|
|
|
%- produce
|
2019-06-05 04:21:42 +03:00
|
|
|
[%dns-address %if addr]
|
