home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 21_12.tcl < prev    next >
Text File  |  2003-04-15  |  386b  |  19 lines
  1. #
  2. # Example 21-12
  3. # The main program for TclHttpd Starkit, version 3.
  4. #
  5.  
  6. package require starkit
  7. starkit::startup
  8. set my_topdir $starkit::topdir
  9. set path [file join [file dirname $my_topdir] tcllib.kit]
  10. if {![file exists $path]} {
  11.     puts stderr "Please install tcllib.kit in \
  12.         [file dirname $my_topdir]"
  13.     exit 1
  14. }
  15. source $path
  16. source [file join $my_topdir tclhttpd3.4/bin/httpd.tcl]
  17.  
  18.  
  19.