diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-14 13:14:10 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-14 13:14:10 (GMT) |
commit | c393791ed58a2404db6365b8f76c9e8cf038ff70 (patch) | |
tree | 5949146e0615fd6f2af462fafcfc2f2500ba1c3e /library/http/http.tcl | |
parent | 239ba78ee454f3184deca7019c7bb76c8a1d0cde (diff) | |
download | tcl-c393791ed58a2404db6365b8f76c9e8cf038ff70.zip tcl-c393791ed58a2404db6365b8f76c9e8cf038ff70.tar.gz tcl-c393791ed58a2404db6365b8f76c9e8cf038ff70.tar.bz2 |
Added documentation
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r-- | library/http/http.tcl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index e843ec8..7236bae 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -20,6 +20,7 @@ namespace eval http { if {![info exists http]} { array set http { -accept */* + -cookiejar {} -pipeline 1 -postfresh 0 -proxyhost {} @@ -28,7 +29,6 @@ namespace eval http { -repost 0 -urlencoding utf-8 -zip 1 - -cookiejar {} } # We need a useragent string of this style or various servers will # refuse to send us compressed content even when we ask for it. This @@ -129,7 +129,16 @@ namespace eval http { } # Regular expression used to parse cookies - variable CookieRE {\s*([^][\u0000- ()<>@,;:\\""/?={}\u007f-\uffff]+)=([!\u0023-+\u002D-:<-\u005B\u005D-~]*)(?:\s*;\s*([^\u0000]+))?} + variable CookieRE {(?x) # EXPANDED SYNTAX + \s* # Ignore leading spaces + ([^][\u0000- ()<>@,;:\\""/?={}\u007f-\uffff]+) # Match the name + = # LITERAL: Equal sign + ([!\u0023-+\u002D-:<-\u005B\u005D-~]*) # Match the value + (?: + \s* ; \s* # LITERAL: semicolon + ([^\u0000]+) # Match the options + )? + } namespace export geturl config reset wait formatQuery quoteString namespace export register unregister registerError |