blob: 0304fe8040640ef5b680204561789bc72c70d16b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
--- bin/httpd.tcl Wed Jun 14 13:25:50 2000
+++ bin/httpd.tcl Wed Jun 21 15:59:34 2000
@@ -82,21 +82,9 @@
# Search around for the Standard Tcl Library
-if {![catch {package require base64 2.0}]} {
- # Already available in environment
-} elseif {[file exist [file join $home ../tcllib]]} {
- lappend auto_path [file join $home ../tcllib]
-} else {
- # Look for the CVS development sources
- set cvs [lindex [lsort -decreasing \
- [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]"
- }
+if {[catch {package require tcllib} e]} {
+ error "Cannot find Standard Tcl Library in auto_path:\n\
+ [join $auto_path \n($e)\n]"
}
set Config(home) $home
@@ -130,3 +130,3 @@
} else {
- set Config(config) [file join $Config(home) tclhttpd.rc]
+ set Config(config) [file join $Config(home) ../etc/tclhttpd.rc]
}
|
