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):
%3 export_vars export_vars (public) util::skip_suspicious_query_vars util::skip_suspicious_query_vars export_vars->util::skip_suspicious_query_vars util::suspicious_query_variable util::suspicious_query_variable (public) util::skip_suspicious_query_vars->util::suspicious_query_variable

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

[ hide source ] | [ make this the default ]
Show another procedure: