if (DEBUG) { $MESSAGE .= tm_debugmessage(print_r($ADR, TRUE)); } //now send mails and show messages if (!$adr_exists && $FRM[0]['double_optin'] == 1) { /********************************************************************************/ //send double optin confirmation mail with subscribe/confirmation link $nl_id_index = "nl_id_doptin"; if (DEBUG) { $MESSAGE .= tm_debugmessage("new record, send double optin confirmation email: subscribe_doptin_mail, nl_id_index=" . $nl_id_index); } require_once TM_INCLUDEPATH . "/subscribe_mail.inc.php"; /********************************************************************************/ //show double optin message #$MESSAGE.=display($FRM[0]['message_doptin']); $MESSAGE .= display($NEWSLETTER->parseSubject(array('text' => $FRM[0]['message_greeting'], 'adr' => $ADR[0], 'date' => $date_sub))); } //send greeting mail if adr not exists and doptin not set in form if (!$adr_exists && $FRM[0]['double_optin'] != 1) { /********************************************************************************/ //send greeting mail $nl_id_index = "nl_id_greeting"; if (DEBUG) { $MESSAGE .= tm_debugmessage("new record, no double optin, send greeting email: subscribe_mail, nl_id_index=" . $nl_id_index); } require_once TM_INCLUDEPATH . "/subscribe_mail.inc.php"; /********************************************************************************/ //show welcome message #$MESSAGE.=display($FRM[0]['message_greeting']); $MESSAGE .= display($NEWSLETTER->parseSubject(array('text' => $FRM[0]['message_greeting'], 'adr' => $ADR[0], 'date' => $date_sub))); }
//maximale anzahl zu bearbeitender mails/empfaenger insgesamt! faktor max_mails_bcc send_log("creating list"); //aktuel offene versandauftraege $H = $QUEUE->getHtoSend(0, 0, $max_mails, $Q[$qcc]['id']); //id , offset, limit, q_id !!!, .... $hc = count($H); //wieviel sendeeintraege send_log($hc . " Entrys found\n"); $time = $T->MidResult(); send_log("time: " . $time); send_log("working on max {$max_mails} addresses in {$max_mails_atonce} mails with {$max_mails_bcc} recipients for each mail"); //wenn massenmailing, body hier schon parsen!!! if ($massmail) { //to fuer massenmailing send_log("prepare Massmail"); $SUBJ = $NEWSLETTER->parseSubject(array('text' => $NL[0]['subject'], 'date' => date(TM_NL_DATEFORMAT))); //hmmm, we should use date from send_at in q! send_log("Subject: " . $NL[0]['subject']); send_log("Subject (parsed): " . $SUBJ); $email_obj->SetEncodedHeader("Subject", $SUBJ); //argh, this class forces us to add a to header which is definitely not needed if we have bcc or cc!!! $To = $HOST[0]['sender_email']; //wird $HOST! if (!empty($NL[0]['rcpt_name'])) { $ToName = $NEWSLETTER->parseRcptName(array('text' => $NL[0]['rcpt_name'], 'date' => date(TM_NL_DATEFORMAT))); //hmmm, we should use date from send_at in q! } else { if (!empty($C[0]['rcpt_name'])) { $ToName = $NEWSLETTER->parseRcptName(array('text' => $C[0]['rcpt_name'], 'date' => date(TM_NL_DATEFORMAT))); //hmmm, we should use date from send_at in q! } else {