39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
-
+
|
# Copyright (c) 1997 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Scriptics Corporation
# Copyright (c) 2001-2002 Panasas
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: httpd.tcl,v 1.40 2002/08/04 06:03:35 welch Exp $
# RCS: @(#) $Id: httpd.tcl,v 1.41 2002/08/19 05:15:21 welch Exp $
#
# \
exec tclsh8.3 "$0" ${1+"$@"}
############
# auto_path
############
|
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
-
-
+
+
|
proc Thread_Enabled {} {return 0}
}
##################################
# Main application initialization
##################################
foreach {host file} $Config(virtual) {
Httpd_VirtualHost $host $file
foreach {hostNames file} $Config(virtual) {
Httpd_VirtualHosts $hostNames $file
}
if {[catch {source $Config(main)} message]} then {
global errorInfo
set error "Error processing main startup script \"[file nativename $Config(main)]\"."
append error "\n$errorInfo"
error $error
|