From 0f935dbb098bf88848b8ac164f4ad4153054572e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Anton=20Luka=20=C5=A0ijanec?= Date: Mon, 8 Aug 2022 01:09:48 +0200 Subject: not working, implemented captcha a bit --- www.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'www.tcl') 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] } } -- cgit v1.2.3