examples/tcp.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 stream.server 20000]
   5
   6 $s readable {
   7         set sock [$s accept]
   8
   9         # Make this server forking so we can accept multiple
  10         # simultaneous connections
  11         if {[os.fork] == 0} {
  12                 $s close
  13
  14                 # Get the request (max 80 chars) - need the source address
  15                 while {[$sock gets buf] >= 0} {
  16                         set buf [string trim $buf]
  17                         puts -nonewline "read '$buf'"
  18
  19                         try {
  20                                 set result "$buf = [expr $buf]"
  21                         } on error {msg} {
  22                                 set result "Error: $buf => $msg"
  23                         }
  24
  25                         puts ", sending '$result'"
  26
  27                         # Send the result back to where it came from
  28                         $sock puts $result
  29                         $sock flush
  30                 }
  31         }
  32
  33         $sock close
  34 }
  35
  36 vwait done