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

Index: httpd.tcl
===================================================================
RCS file: /cvsroot/tclhttpd/tclhttpd/lib/httpd.tcl,v
retrieving revision 1.73
diff -c -r1.73 httpd.tcl
*** httpd.tcl   3 Dec 2002 07:20:30 -0000       1.73
--- httpd.tcl   7 Feb 2003 18:42:14 -0000
***************
*** 190,197 ****
      if {[string length $name] == 0} {
        set Httpd(name) [info hostname]
      }
!     set cmd [list socket -server [list HttpdAccept \
!           [list http $name $port]]]
      if {[string length $ipaddr] != 0} {
          lappend cmd -myaddr $ipaddr
      }
--- 190,207 ----
      if {[string length $name] == 0} {
        set Httpd(name) [info hostname]
      }
!
!     ### davygrvy mod for Lyris.
!     if {[catch {package require Iocpsock}]} {
!       ### Use the stock socket command.
!       set cmd socket
!     } else {
!       ### Use the field patch.
!       set cmd socket2
!     }
!
!     lappend cmd -server [list HttpdAccept \
!           [list http $name $port]]
      if {[string length $ipaddr] != 0} {
          lappend cmd -myaddr $ipaddr
      }