Protocols for Robotic Telescope Networks

Algorithm 5

set channel [socket -server socket_accept 5134]

proc socket_accept { channel ip port }{

 fconfigure $channel -buffering full -translation binary

 fconfigure $channel -encoding binary -buffersize 160

 fileevent $channel readable [list socket_read $channel]

}