Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v diff -u -r1.57 -r1.58 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 17 Nov 2006 15:14:57 -0000 1.57 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl 2 Dec 2006 09:17:16 -0000 1.58 @@ -194,7 +194,7 @@ @option bounce_address bounce address to be checked @returns tcl-list of user_id package_id bounce_signature } { - set regexp_str "\[[bounce_prefix]\]-(\[0-9\]+)-(\[^-\]+)-(\[0-9\]+)\@" + set regexp_str "\[[bounce_prefix]\]-(\[0-9\]+)-(\[^-\]+)-(\[0-9\]*)\@" if {![regexp $regexp_str $bounce_address all user_id signature package_id]} { ns_log Notice "acs-mail-lite: bounce address not found for $bounce_address" return "" @@ -570,8 +570,10 @@ # Try to invoke package-specific procedure for special treatment # of mail bounces - catch {acs_sc::invoke -contract AcsMailLite -operation MailBounce -impl [string map {- _} [apm_package_key_from_id $package_id]] -call_args [list [array get email_headers] $body]} - + if {$package_id ne ""} { + catch {acs_sc::invoke -contract AcsMailLite -operation MailBounce -impl [string map {- _} [apm_package_key_from_id $package_id]] -call_args [list [array get email_headers] $body]} + } + # Okay, we have a bounce for a system user # Check if the user has been marked as bouncing mail # if the user is bouncing mail, we simply disgard the @@ -1026,737 +1028,6 @@ #--------------------------------------- - # complex_send - # created ... by ... - # modified 2006/07/25 by nfl: new param. alternative_part_p - # and creation of multipart/alternative - # 2006/../.. new created as an frontend to the old complex_send that now is called complex_send_immediatly - # 2006/11/17 modified (nfl) - #--------------------------------------- - ad_proc -public complex_send { - -send_immediately:boolean - -valid_email:boolean - {-to_party_ids ""} - {-cc_party_ids ""} - {-bcc_party_ids ""} - {-to_group_ids ""} - {-cc_group_ids ""} - {-bcc_group_ids ""} - {-to_addr ""} - {-cc_addr ""} - {-bcc_addr ""} - -from_addr:required - {-subject ""} - -body:required - {-package_id ""} - {-files ""} - {-file_ids ""} - {-folder_ids ""} - {-mime_type "text/plain"} - {-object_id ""} - {-single_email_p ""} - {-no_callback_p ""} - {-extraheaders ""} - {-alternative_part_p ""} - -single_email:boolean - -no_callback:boolean - -use_sender:boolean - } { - - Prepare an email to be send with the option to pass in a list - of file_ids as well as specify an html_body and a mime_type. It also supports multiple "TO" recipients as well as CC - and BCC recipients. Runs entirely off MIME and SMTP to achieve this. - For backward compatibility a switch "single_email_p" is added. - - @param send_immediately The email is send immediately and not stored in the acs_mail_lite_queue - - @param to_party_ids list of party ids to whom we send this email - - @param cc_party_ids list of party ids to whom we send this email in "CC" - - @param bcc_party_ids list of party ids to whom we send this email in "BCC" - - @param to_party_ids list of group_ids to whom we send this email - - @param cc_party_ids list of group_ids to whom we send this email in "CC" - - @param bcc_party_ids list of group_ids to whom we send this email in "BCC" - - @param to_addr List of e-mail addresses to send this mail to. We will figure out the name if possible. - - @param from_addr E-Mail address of the sender. We will try to figure out the name if possible. - - @param subject of the email - - @param body Text body of the email - - @param cc_addr List of CC Users e-mail addresses to send this mail to. We will figure out the name if possible. Only useful if single_email is provided. Otherwise the CC users will be send individual emails. - - @param bcc_addr List of CC Users e-mail addresses to send this mail to. We will figure out the name if possible. Only useful if single_email is provided. Otherwise the CC users will be send individual emails. - - @param package_id Package ID of the sending package - - @param files List of file_title, mime_type, file_path (as in full path to the file) combination of files to be attached - - @param folder_ids ID of the folder who's content will be send along with the e-mail. - - @param file_ids List of file ids (items or revisions) to be send as attachments. This will only work with files stored in the file system. - - @param mime_type MIME Type of the mail to send out. Can be "text/plain", "text/html". - - @param object_id The ID of the object that is responsible for sending the mail in the first place - - @param extraheaders List of keywords and their values passed in for headers. Interesting ones are: "Precedence: list" to disable autoreplies and mark this as a list message. This is as list of lists !! - - @param single_email Boolean that indicates that only one mail will be send (in contrast to one e-mail per recipient). - - @param no_callback Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks - @param single_email_p Boolean that indicates that only one mail will be send (in contrast to one e-mail per recipient). Used so we can set a variable in the callers environment to call complex_send. - - @param no_callback_p Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks. Used so we can set a variable in the callers environment to call complex_send. - - @param use_sender Boolean indicating that from_addr should be used regardless of fixed-sender parameter - - @param alternative_part_p Boolean whether or not the code generates a multipart/alternative mail (text/html) - } { - - # check, if send_immediately is set - # if not, take global parameter - if {$send_immediately_p} { - set send_p $send_immediately_p - } else { - # if parameter is not set, get the global setting - set send_p [parameter::get -package_id [get_package_id] -parameter "send_immediately" -default 0] - } - - # if send_p true, then start acs_mail_lite::send_immediately, so mail is not stored in the db before delivery - if { $send_p } { - acs_mail_lite::complex_send_immediately \ - -to_party_ids $to_party_ids \ - -cc_party_ids $cc_party_ids \ - -bcc_party_ids $bcc_party_ids \ - -to_group_ids $to_group_ids \ - -cc_group_ids $cc_group_ids \ - -bcc_group_ids $bcc_group_ids \ - -to_addr $to_addr \ - -cc_addr $cc_addr \ - -bcc_addr $bcc_addr \ - -from_addr $from_addr \ - -subject $subject \ - -body $body \ - -package_id $package_id \ - -files $files \ - -file_ids $file_ids \ - -folder_ids $folder_ids \ - -mime_type $mime_type \ - -object_id $object_id \ - -single_email_p $single_email_p \ - -no_callback_p $no_callback_p \ - -extraheaders $extraheaders \ - -alternative_part_p $alternative_part_p \ - -use_sender_p $use_sender_p - } else { - # else, store it in the db and let the sweeper deliver the mail - set creation_date [clock format [clock seconds] -format "%Y.%m.%d %H:%M:%S"] - set locking_server "" - db_dml create_complex_queue_entry {} - } - } - - #--------------------------------------- - # complex_send - # created ... by ... - # modified 2006/07/25 by nfl: new param. alternative_part_p - # and creation of multipart/alternative - # 2006/../.. Renamed to complex_send_immediately - #--------------------------------------- - ad_proc -public complex_send_immediately { - -valid_email:boolean - {-to_party_ids ""} - {-cc_party_ids ""} - {-bcc_party_ids ""} - {-to_group_ids ""} - {-cc_group_ids ""} - {-bcc_group_ids ""} - {-to_addr ""} - {-cc_addr ""} - {-bcc_addr ""} - -from_addr:required - {-subject ""} - -body:required - {-package_id ""} - {-files ""} - {-file_ids ""} - {-folder_ids ""} - {-mime_type "text/plain"} - {-object_id ""} - {-single_email_p ""} - {-no_callback_p ""} - {-extraheaders ""} - {-alternative_part_p ""} - {-use_sender_p ""} - } { - - Prepare an email to be send immediately with the option to pass in a list - of file_ids as well as specify an html_body and a mime_type. It also supports multiple "TO" recipients as well as CC - and BCC recipients. Runs entirely off MIME and SMTP to achieve this. - For backward compatibility a switch "single_email_p" is added. - - - @param to_party_ids list of party ids to whom we send this email - - @param cc_party_ids list of party ids to whom we send this email in "CC" - - @param bcc_party_ids list of party ids to whom we send this email in "BCC" - - @param to_party_ids list of group_ids to whom we send this email - - @param cc_party_ids list of group_ids to whom we send this email in "CC" - - @param bcc_party_ids list of group_ids to whom we send this email in "BCC" - - @param to_addr List of e-mail addresses to send this mail to. We will figure out the name if possible. - - @param from_addr E-Mail address of the sender. We will try to figure out the name if possible. - - @param subject of the email - - @param body Text body of the email - - @param cc_addr List of CC Users e-mail addresses to send this mail to. We will figure out the name if possible. Only useful if single_email is provided. Otherwise the CC users will be send individual emails. - - @param bcc_addr List of CC Users e-mail addresses to send this mail to. We will figure out the name if possible. Only useful if single_email is provided. Otherwise the CC users will be send individual emails. - - @param package_id Package ID of the sending package - - @param files List of file_title, mime_type, file_path (as in full path to the file) combination of files to be attached - - @param folder_ids ID of the folder who's content will be send along with the e-mail. - - @param file_ids List of file ids (items or revisions) to be send as attachments. This will only work with files stored in the file system. - - @param mime_type MIME Type of the mail to send out. Can be "text/plain", "text/html". - - @param object_id The ID of the object that is responsible for sending the mail in the first place - - @param extraheaders List of keywords and their values passed in for headers. Interesting ones are: "Precedence: list" to disable autoreplies and mark this as a list message. This is as list of lists !! - - @param single_email Boolean that indicates that only one mail will be send (in contrast to one e-mail per recipient). - - @param no_callback Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks - @param single_email_p Boolean that indicates that only one mail will be send (in contrast to one e-mail per recipient). Used so we can set a variable in the callers environment to call complex_send. - - @param no_callback_p Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks. Used so we can set a variable in the callers environment to call complex_send. - - @param use_sender Boolean indicating that from_addr should be used regardless of fixed-sender parameter - - @param alternative_part_p Boolean whether or not the code generates a multipart/alternative mail (text/html) - } { - - set mail_package_id [apm_package_id_from_key "acs-mail-lite"] - if {[empty_string_p $package_id]} { - set package_id $mail_package_id - } - - # We check if the parameter - set fixed_sender [parameter::get -parameter "FixedSenderEmail" \ - -package_id $mail_package_id] - - if { ![empty_string_p $fixed_sender] && !$use_sender_p} { - set sender_addr $fixed_sender - } else { - set sender_addr $from_addr - } - - # Get the SMTP Parameters - set smtp [parameter::get -parameter "SMTPHost" \ - -package_id $mail_package_id -default [ns_config ns/parameters mailhost]] - if {[empty_string_p $smtp]} { - set smtp localhost - } - - set timeout [parameter::get -parameter "SMTPTimeout" \ - -package_id $mail_package_id -default [ns_config ns/parameters smtptimeout]] - if {[empty_string_p $timeout]} { - set timeout 60 - } - - set smtpport [parameter::get -parameter "SMTPPort" \ - -package_id [apm_package_id_from_key "acs-mail-lite"] -default 25] - - set smtpuser [parameter::get -parameter "SMTPUser" \ - -package_id [apm_package_id_from_key "acs-mail-lite"]] - - set smtppassword [parameter::get -parameter "SMTPPassword" \ - -package_id [apm_package_id_from_key "acs-mail-lite"]] - - # default values for alternative_part_p - # TRUE on mime_type text/html - # FALSE on mime_type text/plain - # if { [empty_string_p $alternative_part_p] } { ...} - if { $alternative_part_p eq "" } { - if { $mime_type eq "text/plain" } { - #set alternative_part_p FALSE - set alternative_part_p "0" - } else { - #set alternative_part_p TRUE - set alternative_part_p "1" - } - } - - set party_id($from_addr) [party::get_by_email -email $from_addr] - - # Deal with the sender address. Only change the from string if we find a party_id - # This should take care of anyone parsing in an email which is already formated with <>. - set party_id($sender_addr) [party::get_by_email -email $sender_addr] - if {[exists_and_not_null party_id($sender_addr)]} { - set from_string "\"[party::name -email $sender_addr]\" <${sender_addr}>" - } else { - set from_string $sender_addr - } - - # decision between normal or multipart/alternative body - if { $alternative_part_p eq "0"} { - # Set the message token - set message_token [mime::initialize -canonical "$mime_type" -string "$body"] - } else { - # build multipart/alternative - if { $mime_type eq "text/plain" } { - set message_text_part [mime::initialize -canonical "text/plain" -string "$body"] - set converted [ad_text_to_html "$body"] - set message_html_part [mime::initialize -canonical "text/html" -string "$converted"] - } else { - set message_html_part [mime::initialize -canonical "text/html" -string "$body"] - set converted [ad_html_to_text "$body"] - set message_text_part [mime::initialize -canonical "text/plain" -string "$converted"] - } - set message_token [mime::initialize -canonical multipart/alternative -parts [list $message_text_part $message_html_part]] - # see RFC 2046, 5.1.4. Alternative Subtype, for further information/reference (especially order of parts) - } - - - # encode all attachments in base64 - - set tokens [list $message_token] - set item_ids [list] - - if {[exists_and_not_null file_ids]} { - - # Check if we are dealing with revisions or items. - foreach file_id $file_ids { - set item_id [content::revision::item_id -revision_id $file_id] - if {[string eq "" $item_id]} { - lappend item_ids $file_id - } else { - lappend item_ids $item_id - } - } - - db_foreach get_file_info "select r.mime_type,r.title, r.content as filename - from cr_revisions r, cr_items i - where r.revision_id = i.latest_revision - and i.item_id in ([join $item_ids ","])" { - lappend tokens [mime::initialize -param [list name "[ad_quotehtml $title]"] -header [list "Content-Disposition" "attachment; filename=$title"] -header [list Content-Description $title] -canonical $mime_type -file "[cr_fs_path]$filename"] - } - } - - if {![string eq "" $files]} { - foreach file $files { - lappend tokens [mime::initialize -param [list name "[ad_quotehtml [lindex $file 0]]"] -canonical [lindex $file 1] -file "[lindex $file 2]"] - } - } - - if {[exists_and_not_null folder_ids]} { - - foreach folder_id $folder_ids { - db_foreach get_file_info {select r.revision_id,r.mime_type,r.title, i.item_id, r.content as filename - from cr_revisions r, cr_items i - where r.revision_id = i.latest_revision and i.parent_id = :folder_id} { - lappend tokens [mime::initialize -param [list name "[ad_quotehtml $title]"] -canonical $mime_type -file "[cr_fs_path]$filename"] - lappend item_ids $item_id - } - } - } - - - #### Now we start with composing the mail message #### - - set multi_token [mime::initialize -canonical multipart/mixed -parts "$tokens"] - - # Set the message_id - set message_id "[mime::uniqueID]" - mime::setheader $multi_token "message-id" "[mime::uniqueID]" - - # Set the date - mime::setheader $multi_token date "[mime::parsedatetime -now proper]" - - # 2006/09/25 nfl/cognovis - # subject: convert 8-bit characters into MIME encoded words - # see http://tools.ietf.org/html/rfc2047 - # note: we always assume ISO-8859-15 !!! - set subject_encoded $subject - for {set i 128} {$i<256} {incr i} { - set eight_bit_char [format %c $i] - set mime_encoded_word "=?" - append mime_encoded_word "ISO-8859-15" - append mime_encoded_word "?" - append mime_encoded_word "B" - append mime_encoded_word "?" - append mime_encoded_word [base64::encode $eight_bit_char] - append mime_encoded_word "?=" - set subject_encoded [regsub -all $eight_bit_char $subject_encoded $mime_encoded_word] - } - - # 2006/09/25 nfl/cognovis - # subject: convert 8-bit characters into MIME encoded words - # see http://tools.ietf.org/html/rfc2047 - # note: we always assume ISO-8859-1 !!! - for {set i 128} {$i<256} {incr i} { - set eight_bit_char [format %c $i] - set mime_encoded_word "=?" - append mime_encoded_word "ISO-8859-1" - append mime_encoded_word "?" - append mime_encoded_word "B" - append mime_encoded_word "?" - append mime_encoded_word [base64::encode $eight_bit_char] - append mime_encoded_word "?=" - set subject [regsub -all $eight_bit_char $subject $mime_encoded_word] - } - - # Set the subject - #2006/09/25 mime::setheader $multi_token Subject "$subject" - mime::setheader $multi_token Subject "$subject_encoded" - - foreach header $extraheaders { - mime::setheader $multi_token "[lindex $header 0]" "[lindex $header 1]" - } - - set packaged [mime::buildmessage $multi_token] - - # Now the To recipients - set to_list [list] - - foreach email $to_addr { - set party_id($email) [party::get_by_email -email $email] - if {$party_id($email) eq ""} { - # We could not find a party_id, write the email alone - lappend to_list $email - } else { - # Make sure we are not sending the same e-mail twice to the same person - if {[lsearch $to_party_ids $party_id($email)] < 0} { - lappend to_party_ids $party_id($email) - } - } - } - - # Run through the party_ids and check if a group is in there. - set new_to_party_ids [list] - foreach to_id $to_party_ids { - if {[group::group_p -group_id $to_id]} { - lappend to_group_ids $to_id - } else { - if {[lsearch $new_to_party_ids $to_id] < 0} { - lappend new_to_party_ids $to_id - } - } - } - - foreach group_id $to_group_ids { - foreach to_id [group::get_members -group_id $group_id] { - if {[lsearch $new_to_party_ids $to_id] < 0} { - lappend new_to_party_ids $to_id - } - } - } - - # New to party ids contains now the unique party_ids of members of the groups along with the parties - set to_party_ids $new_to_party_ids - - # Now the Cc recipients - set cc_list [list] - - foreach email $cc_addr { - set party_id($email) [party::get_by_email -email $email] - if {$party_id($email) eq ""} { - # We could not find a party_id, write the email alone - lappend cc_list $email - } else { - # Make sure we are not sending the same e-mail twice to the same person - if {[lsearch $cc_party_ids $party_id($email)] < 0} { - lappend cc_party_ids $party_id($email) - } - } - } - - # Run through the party_ids and check if a group is in there. - set new_cc_party_ids [list] - foreach cc_id $cc_party_ids { - if {[group::group_p -group_id $cc_id]} { - lappend cc_group_ids $cc_id - } else { - if {[lsearch $new_cc_party_ids $cc_id] < 0} { - lappend new_cc_party_ids $cc_id - } - } - } - - foreach group_id $cc_group_ids { - foreach cc_id [group::get_members -group_id $group_id] { - if {[lsearch $new_cc_party_ids $cc_id] < 0} { - lappend new_cc_party_ids $cc_id - } - } - } - - # New to party ids contains now the unique party_ids of members of the groups along with the parties - set cc_party_ids $new_cc_party_ids - - # Now the Bcc recipients - set bcc_list [list] - - foreach email $bcc_addr { - set party_id($email) [party::get_by_email -email $email] - if {$party_id($email) eq ""} { - # We could not find a party_id, write the email alone - lappend bcc_list $email - } else { - # Make sure we are not sending the same e-mail twice to the same person - if {[lsearch $bcc_party_ids $party_id($email)] < 0} { - lappend bcc_party_ids $party_id($email) - } - } - } - - # Run through the party_ids and check if a group is in there. - set new_bcc_party_ids [list] - foreach bcc_id $bcc_party_ids { - if {[group::group_p -group_id $bcc_id]} { - lappend bcc_group_ids $bcc_id - } else { - if {[lsearch $new_bcc_party_ids $bcc_id] < 0} { - lappend new_bcc_party_ids $bcc_id - } - } - } - - foreach group_id $bcc_group_ids { - foreach bcc_id [group::get_members -group_id $group_id] { - if {[lsearch $new_bcc_party_ids $bcc_id] < 0} { - lappend new_bcc_party_ids $bcc_id - } - } - } - - # New to party ids contains now the unique party_ids of members of the groups along with the parties - set bcc_party_ids $new_bcc_party_ids - - # Rollout support (see above for details) - - ns_log Notice "acs-mail-lite:complex_send:: From String: $from_string" - set delivery_mode [ns_config ns/server/[ns_info server]/acs/acs-rollout-support EmailDeliveryMode] - if {![empty_string_p $delivery_mode] - && ![string equal $delivery_mode default] - } { - set eh [util_list_to_ns_set $extraheaders] - ns_sendmail $to_addr $sender_addr $subject $packaged $eh $bcc_addr - #Close all mime tokens - mime::finalize $multi_token -subordinates all - } else { - - if {$single_email_p} { - - ############################# - # - # One mail to all - # - ############################# - - # First join the emails without parties for the callback. - set to_addr_string [join $to_list ","] - set cc_addr_string [join $cc_list ","] - set bcc_addr_string [join $bcc_list ","] - - # Append the entries from the system users to the e-mail - foreach party $to_party_ids { - lappend to_list "\"[party::name -party_id $party]\" <[party::email_not_cached -party_id $party]>" - } - - foreach party $cc_party_ids { - lappend cc_list "\"[party::name -party_id $party]\" <[party::email_not_cached -party_id $party]>" - } - - foreach party $bcc_party_ids { - lappend bcc_list "\"[party::name -party_id $party]\" <[party::email_not_cached -party_id $party]>" - } - - smtp::sendmessage $multi_token \ - -header [list From "$from_string"] \ - -header [list To "[join $to_list ","]"] \ - -header [list CC "[join $cc_list ","]"] \ - -header [list BCC "[join $bcc_list ","]"] \ - -servers $smtp \ - -ports $smtpport \ - -username $smtpuser \ - -password $smtppassword - - #Close all mime tokens - mime::finalize $multi_token -subordinates all - - if { !$no_callback_p } { - callback acs_mail_lite::complex_send \ - -package_id $package_id \ - -from_party_id [party::get_by_email -email $sender_addr] \ - -to_party_ids $to_party_ids \ - -cc_party_ids $cc_party_ids \ - -bcc_party_ids $bcc_party_ids \ - -to_addr $to_addr_string \ - -cc_addr $cc_addr_string \ - -bcc_addr $bcc_addr_string \ - -body $body \ - -message_id $message_id \ - -subject $subject \ - -object_id $object_id \ - -file_ids $item_ids - } - - - } else { - - #################################################################### - # - # Individual E-Mails. - # All recipients, (regardless who they are) get a separate E-Mail - # - #################################################################### - - # We send individual e-mails. First the ones that do not have a party_id - set recipient_list [concat $to_list $cc_list $bcc_list] - foreach email $recipient_list { - set message_id [mime::uniqueID] - - smtp::sendmessage $multi_token \ - -header [list From "$from_string"] \ - -header [list To "$email"] \ - -servers $smtp \ - -ports $smtpport \ - -username $smtpuser \ - -password $smtppassword - - if { !$no_callback_p } { - callback acs_mail_lite::complex_send \ - -package_id $package_id \ - -from_party_id $party_id($from_addr) \ - -to_addr $email \ - -body $body \ - -message_id $message_id \ - -subject $subject \ - -object_id $object_id \ - -file_ids $item_ids - } - } - - # And now we send it to all the other users who actually do have a party_id - set recipient_list [concat $to_party_ids $cc_party_ids $bcc_party_ids] - foreach party $recipient_list { - set message_id [mime::uniqueID] - set email "\"[party::name -party_id $party]\" <[party::email_not_cached -party_id $party]>" - - smtp::sendmessage $multi_token \ - -header [list From "$from_string"] \ - -header [list To "$email"] \ - -servers $smtp \ - -ports $smtpport \ - -username $smtpuser \ - -password $smtppassword - - if { !$no_callback_p } { - callback acs_mail_lite::complex_send \ - -package_id $package_id \ - -from_party_id $party_id($from_addr) \ - -to_party_ids $party \ - -body $body \ - -message_id $message_id \ - -subject $subject \ - -object_id $object_id \ - -file_ids $item_ids - } - } - - #Close all mime tokens - mime::finalize $multi_token -subordinates all - } - } - } - - #--------------------------------------- - # 2006/11/17 Created by cognovis/nfl - # nsv_incr description: http://www.panoptic.com/wiki/aolserver/Nsv_incr - #--------------------------------------- - ad_proc -private complex_sweeper {} { - Send messages in the acs_mail_lite_complex_queue table. - } { - # Make sure that only one thread is processing the queue at a time. - if {[nsv_incr acs_mail_lite complex_send_mails_p] > 1} { - nsv_incr acs_mail_lite complex_send_mails_p -1 - return - } - - with_finally -code { - db_foreach get_complex_queued_messages {} { - # check if record is already there and free to use - set return_id [db_string get_complex_queued_message {} -default -1] - if {$return_id == $id} { - # lock this record for exclusive use - set locking_server [ad_conn user_id] - append locking_server ":" - append locking_server [ad_conn session_id] - append locking_server ":" - append locking_server [ad_conn url] - db_dml lock_queued_message {} - # send the mail - set err [catch { - acs_mail_lite::complex_send_immediately \ - -to_party_ids $to_party_ids \ - -cc_party_ids $cc_party_ids \ - -bcc_party_ids $bcc_party_ids \ - -to_group_ids $to_group_ids \ - -cc_group_ids $cc_group_ids \ - -bcc_group_ids $bcc_group_ids \ - -to_addr $to_addr \ - -cc_addr $cc_addr \ - -bcc_addr $bcc_addr \ - -from_addr $from_addr \ - -subject $subject \ - -body $body \ - -package_id $package_id \ - -files $files \ - -file_ids $file_ids \ - -folder_ids $folder_ids \ - -mime_type $mime_type \ - -object_id $object_id \ - -single_email_p $single_email_p \ - -no_callback_p $no_callback_p \ - -extraheaders $extraheaders \ - -alternative_part_p $alternative_part_p \ - -use_sender_p $use_sender_p - } errMsg] - if $err { - # release the lock - set locking_server "" - db_dml lock_queued_message {} - } else { - # mail was sent, delete the queue entry - db_dml delete_complex_queue_entry {} - } - } - } - } -finally { - nsv_incr acs_mail_lite complex_send_mails_p -1 - } - } - - - #--------------------------------------- ad_proc -private sweeper {} { Send messages in the acs_mail_lite_queue table. } {