forked from hummypkg/sweeper
Prepare for cgi_unquote_html API in cgi.tcl
This commit is contained in:
parent
dcc0c9e886
commit
9fc5405abf
@ -34,11 +34,7 @@ if {$dir eq "" || $dir eq $root} {
|
||||
}
|
||||
}
|
||||
|
||||
set data [string map {
|
||||
& &
|
||||
< <
|
||||
> >
|
||||
} [cgi_get data "-"]]
|
||||
set data [cgi_unquote_html [cgi_get data "-"]]
|
||||
|
||||
if {$data eq "-" || $data eq ""} {
|
||||
if {[file exists $cf]} { file delete $cf }
|
||||
|
@ -10,11 +10,7 @@ set dryrun [cgi_get dryrun 1]
|
||||
|
||||
set cf "/tmp/sweepertest.cf"
|
||||
|
||||
set data [string map {
|
||||
& &
|
||||
< <
|
||||
> >
|
||||
} [cgi_get data "-"]]
|
||||
set data [cgi_unquote_html [cgi_get data "-"]]
|
||||
|
||||
if {$data eq "-" || $data eq ""} {
|
||||
puts "No data sent!"
|
||||
|
Loading…
Reference in New Issue
Block a user