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 1}} {
# levels
# 1 mind numbing detail
# 2 less numbing
# 3 noteworthy for causual debuging
puts "[clock seconds]:[set level]: $message"
}
proc send {chan data} {
log
catch {
puts $chan $data
flush $chan
}
}
proc accept {chan ipnr portnr} {...work in progress