send_all_group_spam_messages

one of the documented procedures in this installation of the ACS
Usage:
send_all_group_spam_messages   group_id
What it does:
This procedure sends all approved spam messages of a specific group
Defined in: /web/philip/tcl/user-group-defs.tcl

Source code:



    ns_log Notice "running send_all_group_spam_messages"
    
    set db [ns_db gethandle]
    
    # Get information related to these spams from the group_spam_history table
    
    set selection [ns_db select $db "select *
                                     from group_spam_history
                                     where group_id = $group_id
                                     and approved_p = 't'
                                     and send_date is null"]

    set counter 0
    set spam_id_list [list]

    # build a list of spam_ids to send 

    while { [ns_db getrow $db $selection] } {
	set_variables_after_query

	incr counter

	lappend spam_id_list $spam_id
    }
    
    ns_db releasehandle $db

    if { $counter == 0 } {
	# no sendable spam 
	ns_log Notice "send_all_group_spam_messages : no spam to send"
	return 
    } 
    
    foreach spam_id $spam_id_list {
	# send each spam message
	send_one_group_spam_message $spam_id 
    }
    
    ns_log Notice "send_all_group_spam_messages : finished sending group spams for group id $group_id"


philg@mit.edu