Check-in [d545ab71bf]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:rivetcgi 0.5.1.5
Timelines: family | ancestors | descendants | both | trunk | 0.5.1.5
Files: files | file ages | folders
SHA1:d545ab71bf13a798869277999158e53b01056a5d
User & Date: rkeene 2014-11-04 23:39:52
Context
2014-11-05
16:40
Fixed bug with redirects in standalone server mode check-in: 311a223fc7 user: rkeene tags: trunk
2014-11-04
23:39
rivetcgi 0.5.1.5 check-in: d545ab71bf user: rkeene tags: trunk, 0.5.1.5
23:20
rivetcgi 0.5.1.4 check-in: 3038f5cae3 user: rkeene tags: trunk, 0.5.1.4
Changes

Changes to build/makearch.info.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# This lists the name of files that are required to exist
REQS="init.tcl"

# Version of utility, if empty it will be guessed.
# If set to "auto" it will be maintained in a file called .version
# in the source directory and the revision will be incremented
# each time a "makearch" is done.
VERS="0.5.1.4"

# Space sperated list of documents, if they exist, they will be
# prefixed with the contents of the DOC_HDR file and substitution
# will occur:
#     @@UTIL@@ becomes the utility name ${UTIL}
#     @@VERS@@ becomes the utility version
#     @@DATE@@ becomes the current date







|







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# This lists the name of files that are required to exist
REQS="init.tcl"

# Version of utility, if empty it will be guessed.
# If set to "auto" it will be maintained in a file called .version
# in the source directory and the revision will be incremented
# each time a "makearch" is done.
VERS="0.5.1.5"

# Space sperated list of documents, if they exist, they will be
# prefixed with the contents of the DOC_HDR file and substitution
# will occur:
#     @@UTIL@@ becomes the utility name ${UTIL}
#     @@VERS@@ becomes the utility version
#     @@DATE@@ becomes the current date

Changes to packages/tclrivet/tclrivet.tcl.

819
820
821
822
823
824
825



826
827
828
829
830
831
832
	}

	if {![info exists ::rivet::header_redirect]} {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
	} else {



		tcl_puts $outchan "Location: $::rivet::header_redirect"
		tcl_puts $outchan ""
		abort_page
	}

	tcl_puts $outchan ""
}







>
>
>







819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
	}

	if {![info exists ::rivet::header_redirect]} {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
	} else {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
		tcl_puts $outchan "Location: $::rivet::header_redirect"
		tcl_puts $outchan ""
		abort_page
	}

	tcl_puts $outchan ""
}