bulkmail_queue_message

bulkmail_queue_message   message

Handle the queuing of a message

Source code:

    ns_share bulkmail_message_queue_mutex
    ns_share bulkmail_message_queue
    ns_share bulkmail_threads_sema

    ns_mutex lock $bulkmail_message_queue_mutex

    # Following the example in the docs, let's wrap all activities in
    # a catch so an error won't leave things locked
    if { [catch {
	lappend bulkmail_message_queue $message

	# Check to see if we've reached our threshold
	if { [llength $bulkmail_message_queue] >= [bulkmail_queue_threshold] } {
	    # If we have, we want to process the queue
	    bulkmail_process_message_queue

	}
    } errmsg] } {
	ns_log Notice "Caught error: $errmsg" 
    }
    ns_mutex unlock $bulkmail_message_queue_mutex

    bulkmail_record_queued_message [bulkmail_message_bulkmail_id $message]