mirror of
https://github.com/urbit/shrub.git
synced 2024-12-30 15:44:03 +03:00
34 lines
827 B
Plaintext
34 lines
827 B
Plaintext
|
/- spider
|
||
|
|
/+ strandio, dns
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
::
|
||
|
|
;< our=ship bind:m get-our:strandio
|
||
|
|
?. ?=(%czar (clan:title our))
|
||
|
|
~| %not-galaxy !!
|
||
|
|
::
|
||
|
|
;< now=@da bind:m get-time:strandio
|
||
|
|
=/ ames-domains=(list turf)
|
||
|
|
.^((list turf) %j /(scot %p our)/turf/(scot %da now))
|
||
|
|
::
|
||
|
|
|- ^- form:m
|
||
|
|
=* loop $
|
||
|
|
?~ ames-domains
|
||
|
|
(pure:m *vase)
|
||
|
|
::
|
||
|
|
=/ =turf
|
||
|
|
(weld i.ames-domains /(crip +:(scow %p our)))
|
||
|
|
;< good=? bind:m (turf-confirm-install:dns turf)
|
||
|
|
=/ msg=(pair cord tang)
|
||
|
|
?: good
|
||
|
|
[(cat 3 'confirmed access via ' (en-turf:html turf)) ~]
|
||
|
|
:- (cat 3 'unable to access via ' (en-turf:html turf))
|
||
|
|
:~ leaf+"XX check via nslookup"
|
||
|
|
leaf+"XX confirm port 80"
|
||
|
|
==
|
||
|
|
;< ~ bind:m (app-message:strandio %dns msg)
|
||
|
|
loop(ames-domains t.ames-domains)
|