send_all_group_spam_messages group_idWhat it does:
This procedure sends all approved spam messages of a specific groupDefined 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"