[Zarutian] 2005-07-27-01:15 Here is a super simple peer-to-peer system:

  set listening_port 8050
  rename send old_send
  proc log {message {level 5}} {
    # levels
    #   1 mind numbing detail
    #   2 less numbing
    #   3 noteworthy
    #   4 milestone
    #   5 landmark
    puts "[clock seconds]:[set level]: $message"
  }
  proc send {chan data} {
    log [info level 0] 1
    catch {
      puts $chan $data
      flush $chan
    }
  }
  proc accept {chan ipnr portnr} {
    log [info level 0] 2
    fconfigure $chan -encoding utf-8
    send $chan "hello $ipnr $portnr"
    send $chan "comment This is a super simple peer to peer node"
    send $chan "ready"
    fileevent $chan readable [list handle_connection $chan $ipnr $portnr ]
  }
...work in progress