util::var_subst_quotehtml (public)

 util::var_subst_quotehtml [ -ulevel ulevel ] string

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

Substitute in the provided string all variables with their values (like "subst -nobackslashes -nocommands ..."), and perform HTML quoting on the variable values before substitution. This command supports Tcl array syntax, and Tcl scalar variables with and without curly braces.

Switches:

-ulevel

(defaults to "1") (optional)

Where we should uplevel to when doing the subst's. Defaults to '1', meaning the caller's scope.

Parameters:

string

Author:

Gustaf Neumann

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    #
    # Protect evaluation characters
    #
    set escaped [string map {[ \\[ ] \\] \\ \\\\} $string]
    #
    # Handle array syntax:
    #
    regsub -all -- {\$([0-9a-zA-Z_:]*[\(][^\)]+[\)])} $escaped {[ns_quotehtml [set \1]]} escaped
    #
    # Handle plain variables:
    #
    regsub -all -- {\$([0-9a-zA-Z_:]+|[\{][^\}]+[\}])} $escaped {[ns_quotehtml $\1]} result
    #
    # Finally, "subst" the result.
    #
    return [uplevel $ulevel [list ::subst $result]]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/utilities-procs.xql