summaryrefslogtreecommitdiffstats
path: root/www.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'www.tcl')
-rwxr-xr-xwww.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/www.tcl b/www.tcl
index e5cd36f..0e20f7a 100755
--- a/www.tcl
+++ b/www.tcl
@@ -103,7 +103,7 @@ namespace eval www {
my destroy
}
if {[string length $to_parse] == [dict get $headers content-length]} {
- lappend arguments {*}[split $to_parse "%=;"]
+ lappend arguments {*}[split $to_parse "&=;"]
set body $to_parse
set stage read
my request_complete
@@ -117,7 +117,7 @@ namespace eval www {
method request_complete {} {
my variable actions headers arguments uri body path
dict for {key value} $actions {
- if [string match -nocase $key $uri] {
+ if [string match -nocase $key $path] {
return [{*}$value [self] $path $arguments $headers $body $uri]
}
}