ad_page_contract_filter_proc_html (public)
ad_page_contract_filter_proc_html name value_varname
Defined in packages/acs-tcl/tcl/tcl-documentation-procs.tcl
Checks whether the value contains naughty HTML
- Parameters:
- name
value_varname
- Author:
- Lars Pind <lars@pinds.com>
- Created:
- 25 July 2000
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- ad_page_contract_filters
Source code: upvar $value_varname value # # Reject the NUL character # if {[string first \u00 $value] != -1} { ns_log notice "--- found NUL" ad_complain [_ acs-tcl.lt_name_contains_invalid] return 0 } set naughty_prompt [ad_html_security_check $value] if { $naughty_prompt ne "" } { ad_complain $naughty_prompt return 0 } return 1XQL Not present: Generic, PostgreSQL, Oracle