content_string_ok_for_site_p text { table_name " " } { the_key " " }What it does:
Determines whether text being suggested for the site should be logged or bounced and if an administrator should be notifiedDefined in: /web/philip/tcl/ad-content-tagging.tcl
Source code:
set loggable_naughtiness [util_memoize naughty_loggable_naughtiness_mask] set bounceable_naughtiness [util_memoize naughty_bounceable_naughtiness_mask] set notifiable_naughtiness [util_memoize naughty_notifiable_naughtiness_mask] set user_id [ad_get_user_id] set content_tag [tag_content $text] if { $content_tag&$loggable_naughtiness && $user_id != 0 } { set db [ns_db gethandle subquery] ns_ora clob_dml $db "insert into naughty_events (table_name, the_key, offensive_text, creation_user, creation_date) values ('$table_name','[DoubleApos $the_key]',empty_clob(),$user_id, sysdate) returning offensive_text into :1" $text ns_db releasehandle $db } if { $content_tag&$notifiable_naughtiness } { set db [ns_db gethandle subquery] set selection [ns_db 0or1row $db "select first_names, last_name, email from users where user_id = $user_id"] if [empty_string_p $selection] { set user_description "unknown user" } else { set_variables_after_query set user_description "$first_names $last_name ($email)" } naughty_notify_admin "$user_description being naughty at [ad_url]" "Here's what $user_description posted at [ad_url]: $text Table: $table_name " ns_db releasehandle $db } if { $content_tag & $bounceable_naughtiness } { return 1 } else { return 0 }