ad_page_contract_filter_proc_safetclchars (public)
ad_page_contract_filter_proc_safetclchars name value_varname
Defined in packages/acs-tcl/tcl/tcl-documentation-procs.tcl
Checks whether the value contains just characters, which can be used safely in a Tcl eval or subst command. This means, that the characters '$', '[', ']' and '\' disallowed,.
- Parameters:
- name
value_varname
- Author:
- Gustaf Neumann
- Created:
- 15 Mar 2023
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- ad_page_contract_filters
Source code: upvar $value_varname value if {[info commands ns_valid_utf8] ne "" && ![ns_valid_utf8 $value]} { ad_complain [_ acs-tcl.lt_name_contains_invalid] return 0 } if {[regexp {^[^\[\]\\\$]+$} $value]} { return 1 } ad_complain [_ acs-tcl.lt_name_contains_invalid] return 0XQL Not present: Generic, PostgreSQL, Oracle