Looks like it isn't finding tcllib correctly. You can do either of two things.
First, simply install tcllib by running its "install.sh" script. You'll need
to pass it the correct installation location.
(the default is /usr/local, which results in
it being installed in /usr/local/lib/tcllib0.4)
Second, you can apply the attached patch to bin/httpd.tcl
so it looks in the distributed tcllib directory properly.
>>>YOO said:
> Dear Ms or Sir,
>
> I have used TclPro1.3 to create a grafical user interface for my project
> and am satisfied with it. Now I will use the TclPro1.3 to generate dynamic
> Web pages. For that purpose the Web server TclHttp was downloaded and tested
> on Windows NT. However, the Web server can not yet be run because an error
> is made. Would you help me run the Web server ?
>
> I have done in the directory e:\tclhttpd3.0.0-dist\tclhttpd3.0.0\bin as foll
ows:
>
> prowish82 httpd.tcl
>
>
> Then I get an error message, "Cannot find Standard Tcl Library in auto_path:
> \n [join $auto_path\n]". I think that the command line, file join $cvs modu
les,
> may be a error source. The directory e:\tclhttpd3.0.0-dist\tcllib0.4 has no
> subdirectory modules. It obtains subdirectories base64, cmdline, fileutil, h
tml. math,
> mime, ncgi, pop3, profiler, struct.
>
> I would be very grateful if you would reply.
>
>
> =============================
> Dr. Seung-Deog Yoo
> R & D Project Manager
> Intering GmbH
> Stettiner Str. 3
> 22850 Norderstedt
> Germany
>
> Tel.: +49 40 4105745
> E-mail: [EMAIL PROTECTED]
> =============================
>
-- Brent Welch <[EMAIL PROTECTED]>
http://www.scriptics.com
Scriptics: The Tcl Platform Company
Index: httpd.tcl
===================================================================
RCS file: /home/cvs/external/tclhttpd/bin/httpd.tcl,v
retrieving revision 1.17
diff -c -c -r1.17 httpd.tcl
*** httpd.tcl 2000/04/25 01:39:18 1.17
--- httpd.tcl 2000/05/02 18:11:47
***************
*** 85,90 ****
--- 85,92 ----
[glob -nocomplain [file join $home ../../tcllib*]]] 0]
if {[file exist [file join $cvs modules]]} {
lappend auto_path [file join $cvs modules]
+ } elseif {[file exist [file join $cvs pkgIndex.tcl]]} {
+ lappend auto_path $cvs
} else {
error "Cannot find Standard Tcl Library in auto_path:\n[join $auto_path \n]"
}
