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