examples/udp.server

   1 # Example of a udp server which sends a response
   2
   3 # Listen on port 20000. No host specified means 0.0.0.0
   4 set s [socket dgram.server 20000]
   5
   6 # For each request...
   7 $s readable {
   8         # Get the request (max 80 chars) - need the source address
   9         set buf [$s recvfrom 80 addr]
  10
  11         puts -nonewline "read '$buf' from $addr"
  12
  13         try {
  14                 set result "$buf = [expr $buf]"
  15         } on error {msg} {
  16                 set result "Error: $buf => $msg"
  17         }
  18
  19         puts ", sending '$result' to $addr"
  20
  21         # Send the result back to where it came from
  22         $s sendto $result $addr
  23 }
  24
  25 vwait done