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 {
|
set data [cgi_unquote_html [cgi_get data "-"]]
|
||||||
& &
|
|
||||||
< <
|
|
||||||
> >
|
|
||||||
} [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 }
|
||||||
|
@ -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 "-"]]
|
||||||
& &
|
|
||||||
< <
|
|
||||||
> >
|
|
||||||
} [cgi_get data "-"]]
|
|
||||||
|
|
||||||
if {$data eq "-" || $data eq ""} {
|
if {$data eq "-" || $data eq ""} {
|
||||||
puts "No data sent!"
|
puts "No data sent!"
|
||||||
|
Loading…
Reference in New Issue
Block a user