content_string_ok_for_site_p

one of the documented procedures in this installation of the ACS
Usage:
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 notified
Defined 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
    }


philg@mit.edu