Prepare for cgi_unquote_html API in cgi.tcl

This commit is contained in:
df 2020-05-08 10:30:24 +00:00 committed by HummyPkg
parent dcc0c9e886
commit 9fc5405abf
2 changed files with 2 additions and 10 deletions

View File

@ -34,11 +34,7 @@ if {$dir eq "" || $dir eq $root} {
} }
} }
set data [string map { set data [cgi_unquote_html [cgi_get data "-"]]
& &
&lt; <
&gt; >
} [cgi_get data "-"]]
if {$data eq "-" || $data eq ""} { if {$data eq "-" || $data eq ""} {
if {[file exists $cf]} { file delete $cf } if {[file exists $cf]} { file delete $cf }

View File

@ -10,11 +10,7 @@ set dryrun [cgi_get dryrun 1]
set cf "/tmp/sweepertest.cf" set cf "/tmp/sweepertest.cf"
set data [string map { set data [cgi_unquote_html [cgi_get data "-"]]
&amp; &
&lt; <
&gt; >
} [cgi_get data "-"]]
if {$data eq "-" || $data eq ""} { if {$data eq "-" || $data eq ""} {
puts "No data sent!" puts "No data sent!"