REBOL [ ]

if "yes" = ask "Debug? " [debug?: yes]

recursion-level-alert: 3

site: http://www.colellachiara.com/soft/Libs/

do site/utility.r
do site/async-protocol.r
do site/async-http.r
do site/timers.r
do site/messaging.r
do site/relays.r
do site/chord.r

bootstrap-nodes: [
    ;"BOOTSTRAP Motoko (EV1)"     [ahttp://64.246.26.106:2222]
    "BOOTSTRAP IPERF1 (SURFnet)" [ahttp://192.87.116.71:2222]
    "BOOTSTRAP IPERF2 (SURFnet)" [ahttp://192.87.116.72:2222]
]

listen-messages/async tcp://:2222

;print "Will create ring in 10 seconds..."

;wait 10

print "Creating ring."

chord-create [ahttp://64.246.26.106:2222] "BOOTSTRAP Motoko (EV1)" bootstrap-nodes

do-every 0:01:00 [
    print "-----Ring status-----"
    print ["Myself:" myself/name]
    print ["My successor:" my-successor/name]
    print ["My predecessor:" if my-predecessor [my-predecessor/name]]
    print "---------------------"
    true
]

do-events