get_content_tagsWhat it does:
Load the naughty words into a shared tcl array entitled tag_arrayDefined in: /web/philip/tcl/ad-content-tagging.tcl
Source code:
set db [ns_db gethandle subquery] ns_share tag_array set sql "select word, tag from content_tags order by tag desc" set selection [ns_db select $db $sql] while {[ns_db getrow $db $selection]} { set_variables_after_query set tag_array($word) $tag } ns_db releasehandle $db