mirror of
https://github.com/urbit/shrub.git
synced 2024-12-16 23:04:16 +03:00
23 lines
443 B
Plaintext
23 lines
443 B
Plaintext
|
:: DNS: configure ip address
|
||
|
|
::
|
||
|
|
:::: /hoon/authority/dns/gen
|
||
|
|
::
|
||
|
|
/- *dns, *sole
|
||
|
|
/+ *generators
|
||
|
|
:- %ask
|
||
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
||
|
|
[arg=$@(~ [addr=@if ~])]
|
||
|
|
~
|
||
|
|
==
|
||
|
|
^- (sole-result [%dns-command command])
|
||
|
|
=* our p.bec
|
||
|
|
=- ?~ arg -
|
||
|
|
(fun.q.q addr.arg)
|
||
|
|
%+ prompt
|
||
|
|
[%& %dns-address "ipv4 address: "]
|
||
|
|
%+ parse
|
||
|
|
`$-(nail (like @if))`;~(pfix dot lip:ag)
|
||
|
|
|= addr=@if
|
||
|
|
%- produce
|
||
|
|
[%dns-command %ip %if addr]
|