Posted to tcl by patthoyts at Sun Jul 30 20:19:44 GMT 2006view raw

  1. Index: httpd.tcl
  2. ===================================================================
  3. RCS file: /cvsroot/tclhttpd/tclhttpd/lib/httpd.tcl,v
  4. retrieving revision 1.73
  5. diff -c -r1.73 httpd.tcl
  6. *** httpd.tcl 3 Dec 2002 07:20:30 -0000 1.73
  7. --- httpd.tcl 7 Feb 2003 18:42:14 -0000
  8. ***************
  9. *** 190,197 ****
  10. if {[string length $name] == 0} {
  11. set Httpd(name) [info hostname]
  12. }
  13. ! set cmd [list socket -server [list HttpdAccept \
  14. ! [list http $name $port]]]
  15. if {[string length $ipaddr] != 0} {
  16. lappend cmd -myaddr $ipaddr
  17. }
  18. --- 190,207 ----
  19. if {[string length $name] == 0} {
  20. set Httpd(name) [info hostname]
  21. }
  22. !
  23. ! ### davygrvy mod for Lyris.
  24. ! if {[catch {package require Iocpsock}]} {
  25. ! ### Use the stock socket command.
  26. ! set cmd socket
  27. ! } else {
  28. ! ### Use the field patch.
  29. ! set cmd socket2
  30. ! }
  31. !
  32. ! lappend cmd -server [list HttpdAccept \
  33. ! [list http $name $port]]
  34. if {[string length $ipaddr] != 0} {
  35. lappend cmd -myaddr $ipaddr
  36. }
  37.  
  38.  
  39.  
  40.  
  41.