tclhttpd

Check-in [db7e720db5]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Documentation update to reflect a flag (-secure) that wasn't in the procedure docs before.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: db7e720db5bd3ef4f5859983f520b257b6278ac2
User & Date: clif 2014-08-14 19:08:59
Context
2014-08-14
19:09
Documentation update to reflect changes to behavior that were put in place a long time ago. check-in: 87c43ea178 user: clif tags: trunk
19:08
Documentation update to reflect a flag (-secure) that wasn't in the procedure docs before. check-in: db7e720db5 user: clif tags: trunk
2014-08-08
15:21
(no comment) check-in: c833e75716 user: hypnotoad tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

bin/httpd.tcl became executable.

Changes to lib/cookie.tcl.

109
110
111
112
113
114
115

116
117
118
119
120
121
122
# Arguments:
#	args	Name value pairs, where the names are:
#@a		-name	Cookie name
#@a		-value	Cookie value
#@a		-path	Path restriction
#@a		-domain	domain restriction
#@a		-expires	Time restriction

#@r	a formatted cookie

proc Cookie_Make {args} {
    array set opt $args
    set line "$opt(-name)=$opt(-value) ;"
    foreach extra {path domain} {
	if {[info exist opt(-$extra)]} {






>







109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
# Arguments:
#	args	Name value pairs, where the names are:
#@a		-name	Cookie name
#@a		-value	Cookie value
#@a		-path	Path restriction
#@a		-domain	domain restriction
#@a		-expires	Time restriction
#@a		-secure Append "secure" to cookie attributes
#@r	a formatted cookie

proc Cookie_Make {args} {
    array set opt $args
    set line "$opt(-name)=$opt(-value) ;"
    foreach extra {path domain} {
	if {[info exist opt(-$extra)]} {