util::skip_suspicious_query_vars (private)
util::skip_suspicious_query_vars query
Defined in packages/acs-tcl/tcl/utilities-procs.tcl
Skip in a URL query suspicious looking variables (probably double encoded)
- Parameters:
- query (required)
- Returns:
- encoded HTTP query
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set pairs {} if {$query ne ""} { set encodeCmd {ns_urlencode --} foreach {key value} [ns_set array [ns_parsequery $query]] { if {[::util::suspicious_query_variable -proc suspicious_query_variable $key $value]} { continue } lappend pairs [{*}$encodeCmd $key]=[{*}$encodeCmd $value] } } return [join $pairs &]XQL Not present: PostgreSQL, Oracle Generic XQL file: packages/acs-tcl/tcl/utilities-procs.xql