- * @param string $curval - current select value
- * @param boolean $add_blank - add a blank line before the options if TRUE
- * @return text for display
- */
- public function ret_extended_field_list($list_name, $curval = '', $add_blank = FALSE)
- {
- $ue = e107::getUserExt(); // Get the extended field handler
- $ret = "\n";
- if ($add_blank) $ret .= " \n";
-
- foreach ($ue->fieldDefinitions as $fd)
- {
- if ($fd['user_extended_struct_text'] != '_system_')
- {
- $value = 'ue.user_'.$fd['user_extended_struct_name'];
- $selected = ($value == $curval) ? " selected='selected'" : '';
- $ret .= "".ucfirst($fd['user_extended_struct_name'])." \n";
- }
- }
- $ret .= " \n";
- return $ret;
- }
-
-
-
- /**
- * Creates an array of data from standard $_POST fields
- *
- * @param $newMail - set TRUE for initial creation, FALSE when updating
- * @return array of data
- */
- public function parseEmailPost($newMail = TRUE)
- {
- $tp = e107::getParser();
-
- $ret = array( 'mail_title' => $_POST['email_title'],
- 'mail_subject' => $_POST['email_subject'],
- 'mail_body' => $_POST['email_body'],
- 'mail_sender_email' => $_POST['email_from_email'],
- 'mail_sender_name' => $_POST['email_from_name'],
- 'mail_copy_to' => $_POST['email_cc'],
- 'mail_bcopy_to' => $_POST['email_bcc'],
- 'mail_attach' => trim($_POST['email_attachment']),
- 'mail_send_style' => varset($_POST['send_style'],'textonly'),
- 'mail_include_images' => (isset($_POST['mail_include_images']) ? 1 : 0)
- );
-
- $ret = $tp->toDB($ret); // recursive
-
- if (isset($_POST['mail_source_id']))
- {
- $ret['mail_source_id'] = intval($_POST['mail_source_id']);
- }
- if ($newMail)
- {
- $ret['mail_creator'] = USERID;
- $ret['mail_create_date'] = time();
- }
- return $ret;
- }
-
-
-
- /**
- * Does some basic checking on email data.
- *
- * @param $email - array of data in parseEmailPost() format
- * @param $fullCheck - TRUE to check all fields that are required (immediately prior to sending); FALSE to just check a few basics (prior to save)
- * @return TRUE if OK. Array of error messages if any errors found
- */
- public function checkEmailPost($email, $fullCheck = FALSE)
- {
- $errList = array();
- if (count($email) < 3)
- {
- $errList[] = LAN_MAILOUT_201;
- return $errList;
- }
- if (!trim($email['mail_subject'])) $errList[] = LAN_MAILOUT_200;
- if (!trim($email['mail_body'])) $errList[] = LAN_MAILOUT_202;
- if (!trim($email['mail_sender_name'])) $errList[] = LAN_MAILOUT_203;
- if (!trim($email['mail_sender_email'])) $errList[] = LAN_MAILOUT_204;
- switch ($email['mail_send_style'])
- {
- case 'textonly' :
- case 'texthtml' :
- case 'texttheme' :
- break;
- default :
- $errList[] = LAN_MAILOUT_205;
- }
- if (count($errList) == 0)
- {
- return TRUE;
- }
- return $errList;
- }
-
-
-
- /**
- * Generate a table which shows some information about an email.
- * Intended to be part of a 2-column table - includes the row detail, but not the surrounding table definitions
- *
- * @param $mailSource - array of mail information
- * @param $options - controls how much information is displayed
- * @return text for display
- */
- public function showMailDetail(&$mailSource, $options='basic')
- {
- $tp = e107::getParser();
-
-
- if (!isset($this->mailDetailDisplay[$options]))
- {
- return "Programming bungle - invalid option value: {$options} '.$this->fields['mail_content'][$k]['title'].' ';
- $res .= ($v > 1) ? $tp->text_truncate($mailSource[$k], $v, '...') : $mailSource[$k];
- $res .= ' \n";
-
- foreach ($emFormat as $key=>$val)
- {
- $selected = ($key == $curval) ? " selected='selected'" : '';
- $text .= "".$val." \n";
- }
- $text .=" \n";
- return $text;
- }
-
-
- /**
- * Generate the HTML to show the mailout form. Used for both sending and editing
- *
- * @param $mailSource - array of mail information
- * @return text for display
- */
- function show_mailform(&$mailSource)
- {
- global $pref,$HANDLERS_DIRECTORY;
- global $mailAdmin;
-
- $sql = e107::getDb();
- $ns = e107::getRender();
- $tp = e107::getParser();
- $frm = e107::getForm();
- $mes = e107::getMessage();
-
- if (!is_array($mailSource))
- {
- $mes = e107::getMessage();
- $mes->add('Coding error - mail not array (521)', E_MESSAGE_ERROR);
- //$ns->tablerender('ERROR!!', );
- //exit;
- }
-
- $email_subject = varset($mailSource['mail_subject'], '');
- $email_body = $tp->toForm(varset($mailSource['mail_body'],''));
- $email_id = varset($mailSource['mail_source_id'],'');
-
- $text = '';
-
- if(strpos($_SERVER['SERVER_SOFTWARE'],'mod_gzip') && !is_readable(e_HANDLER.'phpmailer/.htaccess'))
- {
- $warning = LAN_MAILOUT_40.' '.$HANDLERS_DIRECTORY.'phpmailer/ '.LAN_MAILOUT_41;
- $ns->tablerender(LAN_MAILOUT_42, $warning);
- }
-
- $debug = (e_MENU == "debug") ? "?[debug]" : "";
-
-
-
- $text .= "";
-
- $ns->tablerender(LAN_MAILOUT_15,$mes->render(). $text); // Render the complete form
- }
-
-
- // Helper function manages the shortcodes which can be inserted
- function sc_Select($container='sc_selector')
- {
- $text ="
- \n
-
-
-
-
-
- -- \n";
-
- $sc = array(
- '|DISPLAYNAME|' => LAN_MAILOUT_14,
- '|USERNAME|' => LAN_MAILOUT_16,
- '|SIGNUP_LINK|' => LAN_MAILOUT_17,
- '|USERID|' => LAN_MAILOUT_18,
- '|USERLASTVISIT|' => LAN_MAILOUT_178
- );
-
- foreach($sc as $key=>$val)
- {
- $text .= "".$val." \n";
- }
- $text .="
-
-
\n";
- foreach ($compVals as $k => $v)
- {
- $selected = ($k == $curval) ? " selected='selected'" : '';
- $ret .= "".$v." \n";
- }
- $ret .= " \n";
- return $ret;
- }
-
-
- /**
- * Show a screen to confirm deletion of an email
- *
- * @param $mailid - number of email
- * @param $nextPage - 'mode' specification for page to return to following delete
- * @return text for display
- */
- public function showDeleteConfirm($mailID, $nextPage = 'saved')
- {
- $mailData = $this->retrieveEmail($mailID);
-
- $text = "";
-
- if ($mailData === FALSE)
- {
- $text = "";
- $this->e107->ns-> tablerender("
".LAN_MAILOUT_171."
", $text);
- exit;
- }
-
- $text .= "
-
".ADLAN_136." :: ".LAN_MAILOUT_171."
", $text);
- }
-
-
-
- /**
- * Generate the HTML to show a list of emails of a particular type, in tabular form
- *
- * @param $type - type of email to display
- * @param $from - offset into table of candidates
- * @param $amount - number to return
- * @return text for display
- */
- public function showEmailList($type, $from = 0, $amount = 10)
- {
- // Need to select main email entries; count number of addresses attached to each
- $gen = new convert;
- $frm = e107::getForm();
- switch ($type)
- {
- case 'sent' :
- $searchType = 'allcomplete';
- break;
- default :
- $searchType = $type;
- }
-
- if ($from < 0) { $from = $this->showFrom; }
- if ($amount < 0) { $amount = $this->showCount; }
- // in $_GET, so = sort order, sf = sort field
- $count = $this->selectEmailStatus($from, $amount, '*', $searchType, $this->sortField, $this->sortOrder);
- $totalCount = $this->getEmailCount();
-
- $emails_found = array(); // Log ID and count for later
-
- $text = "";
-
- if (!$count)
- {
- $text = "";
- $this->e107->ns-> tablerender("
".$this->tasks[$type]['title']."
", $text);
- require_once(e_ADMIN."footer.php");
- exit;
- }
-
- $text .= "
-
".ADLAN_136." :: ".$this->tasks[$type]['title']."
", $text);
- }
-
-
-
-
- /**
- * Generate a list of emails to send
- * Returns various information to display in a confirmation screen
- *
- * The email and its recipients are stored in the DB with a tag of 'MAIL_STATUS_TEMP' of its a new email (no change if already on hold)
- *
- * @param array $mailData - Details of the email, selection criteria etc
- * @param boolean $fromHold - FALSE if this is a 'new' email to send, TRUE if its already been put on hold (selects processing path)
- * @return text for display
- */
- public function sendEmailCircular($mailData, $fromHold = FALSE)
- {
- $sql = e107::getDb();
- $mes = e107::getMessage();
- $frm = e107::getForm();
-
-
- if ($fromHold)
- { // Email data already generated
- $mailMainID = $mailData['mail_source_id'];
- if ($mailMainID == 0) return FALSE;
- if (FALSE === ($mailData = $this->retrieveEmail($mailMainID))) // Get the new data
- {
- return FALSE;
- }
- $counters['add'] = $mailData['mail_togo_count']; // Set up the counters
- $counters['dups'] = 0;
- }
- else
- {
- // Start by saving the email
- $mailData['mail_content_status'] = MAIL_STATUS_TEMP;
- $mailData['mail_create_app'] = 'core';
- $result = $this->saveEmail($mailData, TRUE);
- if (is_numeric($result))
- {
- $mailMainID = $mailData['mail_source_id'] = $result;
- }
- else
- {
- // TODO: Handle error
- }
-
-
- $this->mailInitCounters($mailMainID); // Initialise counters for emails added
-
- foreach ($this->mailHandlers as $key => $m)
- { // Get email addresses from each handler in turn. Do them one at a time, so that all can use the $sql data object
- if ($m->mailerEnabled && isset($mailData['mail_selectors'][$key]))
- {
- // Initialise
- $mailerCount = $m->selectInit($mailData['mail_selectors'][$key]);
- if ($mailerCount > 0)
- {
- // Get email addresses - add to list, strip duplicates
- while ($row = $m->selectAdd())
- { // Add email addresses to the database ready for sending (the body is never saved in the DB - it gets passed as a $_POST value)
- $result = $this->mailAddNoDup($mailMainID, $row, MAIL_STATUS_TEMP);
- if ($result === FALSE)
- {
- // Error
- }
- }
- }
- $m->select_close(); // Close
- // Update the stats after each handler
- $this->mailUpdateCounters($mailMainID);
- }
- }
-
- $counters = $this->mailRetrieveCounters($mailMainID);
- // $this->e107->admin_log->log_event('MAIL_02','ID: '.$mailMainID.' '.$counters['add'].'[!br!]'.$_POST['email_from_name']." <".$_POST['email_from_email'],E_LOG_INFORMATIVE,'');
- }
-
-
- // We've got all the email addresses here - display a confirmation form
- // Include start/end dates for send
- $text = "";
-
- e107::getRender()->tablerender("".ADLAN_136." :: ".LAN_MAILOUT_179."
",$mes->render(). $text);
- } // End of previewed email
-
-
-
- protected function makeAdvancedOptions($initHide = FALSE)
- {
- // Separate table for advanced mailout options
- // mail_notify_complete field
- $text = "
- ".LAN_MAILOUT_242."
-
-
-
-
- ";
-
- $text .= "".LAN_MAILOUT_238." ".$this->makeCalendar('mail_earliest_time', '', CORE_DATE_ORDER)." ".LAN_MAILOUT_239." ".$this->makeCalendar('mail_latest_time', '', CORE_DATE_ORDER)." ".LAN_MAILOUT_238." ".$this->makeCalendar('mail_earliest_time', time(), CORE_DATE_ORDER)." ".LAN_MAILOUT_239." ".$this->makeCalendar('mail_latest_time', time()+86400, CORE_DATE_ORDER)." ".LAN_MAILOUT_240."
\n ";
- return $text;
- }
-
-
-
- public function makeCalendar($calName, $calVal = '', $dateOrder = 'dmy')
- {
- // Determine formatting strings this way, to give sensible default
- switch ($dateOrder)
- {
- case 'mdy' :
- $dateString = '%m/%d/%Y %H:%I';
- $dispString = 'm/d/Y H:I';
- break;
- case 'ymd' :
- $dateString = '%Y/%m/%d %H:%I';
- $dispString = 'Y/m/d H:I';
- break;
- case 'dmy' :
- default :
- $dateString = '%d/%m/%Y %H:%I';
- $dispString = 'd/m/Y H:I';
- }
- $calOptions = array(
- 'showsTime' => TRUE,
- 'showOthers' => false,
- 'weekNumbers' => false,
- 'ifFormat' => $dateString
- );
- $calAttrib = array(
- 'class' => 'tbox',
- 'size' => 15, // Number of characters
- 'name' => $calName,
- 'value' => (($calVal == '') ? '' : date($dispString,$calVal))
- );
-
-
- list($dformat,$tformat) = explode(" ",$dateString);
- $options['type'] = 'datetime';
- $options['dateFormat'] = $dformat;
- $options['timeFormat'] = $tformat;
-
- return e107::getForm()->datepicker($calName,$calVal,$options);
-
- // return $this->_cal->make_input_field($calOptions, $calAttrib);
- }
-
-
- /**
- * Show recipients of an email
- *
- * @param $mailid - number of email
- * @param $nextPage - 'mode' specification for page to return to following delete
- * @return text for display
- */
- public function showmailRecipients($mailID, $nextPage = 'saved')
- {
- $gen = new convert;
- $frm = e107::getForm();
-
- $mailData = $this->retrieveEmail($mailID);
-
- $text = "";
-
- if ($mailData === FALSE)
- {
- $text = "";
- $this->e107->ns-> tablerender("
".LAN_MAILOUT_171."
", $text);
- exit;
- }
-
- $text .= "
- ";
-
-
- // List of recipients
- // in $_GET, asc = sort order, fld = sort field
- $count = $this->selectTargetStatus($mailID, $this->showFrom, $this->showCount, '*', FALSE, $this->sortField, $this->sortOrder);
- $totalCount = $this->getTargetCount();
-
- if ($count == 0)
- {
- $text .= "
".LAN_MAILOUT_253.' ';
- }
- else
- {
- $text .= "
-
";
-
- if ($totalCount > $count)
- {
- $parms = "{$totalCount},{$this->showCount},{$this->showFrom},".e_SELF."?mode=recipients&m={$mailID}&count={$this->showCount}&frm=[FROM]&fld={$this->sortField}&asc={$this->sortOrder}&savepage={$nextPage}";
- $text .= $this->e107->tp->parseTemplate("{NEXTPREV={$parms}}");
- }
- }
-
- $text .= "
".ADLAN_136." :: ".LAN_MAILOUT_181."
", $text);
- }
-
-
- /**
- * Clean up mailout DB
- * Dump array of results to admin log
- *
- * @return boolean TRUE if no errors, FALSE if errors
- */
- public function dbTidy()
- {
- $noError = TRUE;
- $results = array();
- $this->checkDB(2); // Make sure DB object created
-
- // First thing, delete temporary records from both tables
- if (($res = $this->db2->db_Delete('mail_content', '`mail_content_status` = '.MAIL_STATUS_TEMP)) === FALSE)
- {
- $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting temporary records from mail_content';
- $noError = FALSE;
- }
- else
- {
- if ($res) $results[] = str_replace(array('--COUNT--', '--TABLE--'), array($res, 'mail_content'), LAN_MAILOUT_227);
- }
- if (($res = $this->db2->db_Delete('mail_recipients', '`mail_status` = '.MAIL_STATUS_TEMP)) === FALSE)
- {
- $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting temporary records from mail_recipients';
- $noError = FALSE;
- }
- else
- {
- if ($res) $results[] = str_replace(array('--COUNT--', '--TABLE--'), array($res, 'mail_recipients'), LAN_MAILOUT_227);
- }
-
- // Now look for 'orphaned' recipient records
- if (($res = $this->db2->db_Select_gen("DELETE `#mail_recipients` FROM `#mail_recipients`
- LEFT JOIN `#mail_content` ON `#mail_recipients`.`mail_detail_id` = `#mail_content`.`mail_source_id`
- WHERE `#mail_content`.`mail_source_id` IS NULL")) === FALSE)
- {
- $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting orphaned records from mail_recipients';
- $noError = FALSE;
- }
- elseif ($res)
- {
- if ($res) $results[] = str_replace('--COUNT--', $res, LAN_MAILOUT_226);
- }
-
- // Scan content table for anomalies, out of time records
- if (($res = $this->db2->db_Select_gen("SELECT * FROM `#mail_content`
- WHERE (`mail_content_status` >".MAIL_STATUS_FAILED.") AND (`mail_content_status` <=".MAIL_STATUS_MAX_ACTIVE.")
- AND ((`mail_togo_count`=0) OR ( (`mail_last_date` != 0) AND (`mail_last_date` < ".time().")))")) === FALSE)
- {
- $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' checking bad status in mail_content';
- $noError = FALSE;
- }
- else
- {
- $items = array(); // Store record number of any content record that needs to be changed
- while ($row = $this->db2->db_Fetch(MYSQL_ASSOC))
- {
- $items[] = $row['mail_source_id'];
- if ($row['mail_source_id'])
- {
- if (FALSE == $this->cancelEmail($row['mail_source_id']))
- {
- $results[] = 'Error cancelling email ref: '.$row['mail_source_id'];
- }
- else
- {
- $results[] = 'Email cancelled: '.$row['mail_source_id'];
- }
- }
- }
- if (count($items)) $results[] = str_replace(array('--COUNT--', '--RECORDS--'), array(count($items), implode(', ', $items)), LAN_MAILOUT_228);
- }
-
-
- //Finally - check for inconsistent recipient and content status records - basically verify counts
- if (($res = $this->db2->db_Select_gen("SELECT COUNT(mr.`mail_status`) AS mr_count, mr.`mail_status`,
- mc.`mail_source_id`, mc.`mail_togo_count`, mc.`mail_sent_count`, mc.`mail_fail_count`, mc.`mail_bounce_count`, mc.`mail_source_id` FROM `#mail_recipients` AS mr
- LEFT JOIN `#mail_content` AS mc ON mr.`mail_detail_id` = mc.`mail_source_id`
- WHERE mc.`mail_content_status` <= ".MAIL_STATUS_MAX_ACTIVE."
- GROUP BY mr.`mail_status`, mc.`mail_source_id` ORDER BY mc.`mail_source_id`
- ")) === FALSE)
- {
- $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' assembling email counts';
- $noError = FALSE;
- }
- else
- {
- $lastMail = 0; // May get several rows per mail
- $notLast = TRUE; // This forces one more loop, so we can clean up for last record read
- $changeCount = 0;
- $saveRow = array();
- while (($row = $this->db2->db_Fetch(MYSQL_ASSOC)) || $notLast)
- {
- if (($lastMail > 0 && $row === FALSE) || ($lastMail != $row['mail_source_id']))
- { // Change of mail ID here - handle any accumulated info
- if ($lastMail > 0)
- { // Need to verify counts for mail just read
- $changes = array();
- foreach ($counters as $k => $v)
- {
- if ($saveRow[$k] != $v)
- {
- $changes[$k] = $v; // Assume the counters have got it right
- }
- }
- if (count($changes))
- {
- // *************** Update mail record here *********************
- $this->checkDB(1);
- $this->db->db_Update('mail_content', array('data' => $changes, 'WHERE' => '`mail_source_id` = '.$lastMail, '_FIELDS' => $this->dbTypes['mail_content']));
- $line = "Count update for {$saveRow['mail_source_id']} - {$saveRow['mail_togo_count']}, {$saveRow['mail_sent_count']}, {$saveRow['mail_fail_count']}, {$saveRow['mail_bounce_count']} => ";
- $line .= implode (', ', $counters);
- $results[] = $line;
- $changeCount++;
- //echo $line.'\n
+ \n";
+ foreach ($this->modeOptions[$mode] as $key => $val)
+ {
+ $text .= "{$val} \n";
+ }
+ $text .= " \n";
+ return $text;
+ }
+
+
+ /**
+ * Generate the HTML for displaying actions box for emails
+ *
+ * Options given depend on $mode, and also values in the email data.
+ *
+ * @param $mailData - array of email-related info
+ * @return HTML for display
+ */
+ public function makeTargetOptions($mode,$targetData)
+ {
+ if (!is_numeric($targetData['mail_target_id']) || ($targetData['mail_target_id'] == 0))
+ {
+ echo "makeTargetOptions ({$mode}): Programming bungle!";
+ print_a($targetData);
+ return 'Error';
+ }
+ $text = "\n
+ \n";
+ foreach ($this->modeOptions[$mode] as $key => $val)
+ {
+ $text .= "{$val} \n";
+ }
+ $text .= " \n";
+ return $text;
+ }
+
+
+ /**
+ * Generate the HTML for displaying email selection fields
+ *
+ * @param $options - comma-separate string of handlers to load
+ * 'core' - core handler
+ * plugin name - obvious!
+ * 'all' - obvious!
+ * @return Number of handlers loaded
+ */
+ public function loadMailHandlers($options = 'all')
+ {
+ global $pref;
+
+ $ret = 0;
+ $toLoad = explode(',', $options);
+ if (in_array('core', $toLoad) || ($options == 'all'))
+ {
+ require_once(e_HANDLER.'mailout_class.php');
+ $this->mailHandlers['core'] = new core_mailout; // Start by loading the core mailout class
+ $ret++;
+ }
+
+ $active_mailers = explode(',',varset($pref['mailout_enabled'],''));
+
+ // Load additional configured handlers
+ foreach ($pref['e_mailout_list'] as $mailer => $v)
+ {
+ if (isset($pref['plug_installed'][$mailer]) && in_array($mailer,$active_mailers) && (($options == 'all') || in_array($mailer, $toLoad)))
+ { // Could potentially use this handler - its installed and enabled
+ if (!is_readable(e_PLUGIN.$mailer.'/e_mailout.php'))
+ {
+ echo 'Invalid mailer selected: '.$mailer.'\n";
+
+ foreach ($this->mailHandlers as $key => $m)
+ {
+ if ($m->mailerEnabled)
+ {
+ $tab .= "
".$m->mailerName." ";
+ $tabc .= "
";
+
+ $content = $m->showSelect(TRUE, varset($selectorInfo[$key], FALSE));
+
+ if(is_array($content))
+ {
+ $tabc .= "
";
+ }
+ else
+ {
+ $tabc .= $content; //BC (0.8 only) but should be deprecated
+ }
+
+ $tabc .= "
";
+ }
+ }
+
+// $ret .= "
"; // This hides tabs!
+ $ret .= "
";
+ $ret .= $tabc;
+ $ret .= "
+ * @param string $curSel - current select value
+ * @return text for display
+ */
+ public function userClassesTotals($name, $curSel)
+ {
+ $fixedClasses = array('all' => LAN_MAILOUT_12,'unverified' => LAN_MAILOUT_13, 'admin' => LAN_MAILOUT_53, 'self' => LAN_MAILOUT_54);
+
+ $ret = '';
+ $this->checkDB(2); // Make sure DB object created
+ $ret .= "
+ \n";
+
+ foreach ($fixedClasses as $k => $v)
+ {
+ $sel = ($k == $curSel) ? " selected='selected'" : '';
+ $ret .= "{$v} \n";
+ }
+ $query = "SELECT uc.*, count(u.user_id) AS members
+ FROM #userclass_classes AS uc
+ LEFT JOIN #user AS u ON u.user_class REGEXP concat('(^|,)',uc.userclass_id,'(,|$)')
+ GROUP BY uc.userclass_id
+ ";
+
+ $this->db2->db_Select_gen($query);
+ while ($row = $this->db2->db_Fetch())
+ {
+ $public = ($row['userclass_editclass'] == e_UC_PUBLIC)? "(".LAN_MAILOUT_10.")" : "";
+ $selected = ($row['userclass_id'] == $curSel) ? " selected='selected'" : '';
+ $ret .= "".LAN_MAILOUT_55." - {$row['userclass_name']} {$public} [{$row['members']}] \n";
+ }
+ $ret .= " \n";
+
+ return $ret;
+ }
+
+
+
+ /**
+ * Creates a 'select' dropdown of non-system user fields
+ *
+ * @param string $list_name - name for
+ * @param string $curval - current select value
+ * @param boolean $add_blank - add a blank line before the options if TRUE
+ * @return text for display
+ */
+ public function ret_extended_field_list($list_name, $curval = '', $add_blank = FALSE)
+ {
+ $ue = e107::getUserExt(); // Get the extended field handler
+ $ret = "\n";
+ if ($add_blank) $ret .= " \n";
+
+ foreach ($ue->fieldDefinitions as $fd)
+ {
+ if ($fd['user_extended_struct_text'] != '_system_')
+ {
+ $value = 'ue.user_'.$fd['user_extended_struct_name'];
+ $selected = ($value == $curval) ? " selected='selected'" : '';
+ $ret .= "".ucfirst($fd['user_extended_struct_name'])." \n";
+ }
+ }
+ $ret .= " \n";
+ return $ret;
+ }
+
+
+
+ /**
+ * Creates an array of data from standard $_POST fields
+ *
+ * @param $newMail - set TRUE for initial creation, FALSE when updating
+ * @return array of data
+ */
+ public function parseEmailPost($newMail = TRUE)
+ {
+ $tp = e107::getParser();
+
+ $ret = array( 'mail_title' => $_POST['email_title'],
+ 'mail_subject' => $_POST['email_subject'],
+ 'mail_body' => $_POST['email_body'],
+ 'mail_sender_email' => $_POST['email_from_email'],
+ 'mail_sender_name' => $_POST['email_from_name'],
+ 'mail_copy_to' => $_POST['email_cc'],
+ 'mail_bcopy_to' => $_POST['email_bcc'],
+ 'mail_attach' => trim($_POST['email_attachment']),
+ 'mail_send_style' => varset($_POST['send_style'],'textonly'),
+ 'mail_include_images' => (isset($_POST['mail_include_images']) ? 1 : 0)
+ );
+
+ $ret = $tp->toDB($ret); // recursive
+
+ if (isset($_POST['mail_source_id']))
+ {
+ $ret['mail_source_id'] = intval($_POST['mail_source_id']);
+ }
+ if ($newMail)
+ {
+ $ret['mail_creator'] = USERID;
+ $ret['mail_create_date'] = time();
+ }
+ return $ret;
+ }
+
+
+
+ /**
+ * Does some basic checking on email data.
+ *
+ * @param $email - array of data in parseEmailPost() format
+ * @param $fullCheck - TRUE to check all fields that are required (immediately prior to sending); FALSE to just check a few basics (prior to save)
+ * @return TRUE if OK. Array of error messages if any errors found
+ */
+ public function checkEmailPost($email, $fullCheck = FALSE)
+ {
+ $errList = array();
+ if (count($email) < 3)
+ {
+ $errList[] = LAN_MAILOUT_201;
+ return $errList;
+ }
+ if (!trim($email['mail_subject'])) $errList[] = LAN_MAILOUT_200;
+ if (!trim($email['mail_body'])) $errList[] = LAN_MAILOUT_202;
+ if (!trim($email['mail_sender_name'])) $errList[] = LAN_MAILOUT_203;
+ if (!trim($email['mail_sender_email'])) $errList[] = LAN_MAILOUT_204;
+ switch ($email['mail_send_style'])
+ {
+ case 'textonly' :
+ case 'texthtml' :
+ case 'texttheme' :
+ break;
+ default :
+ $errList[] = LAN_MAILOUT_205;
+ }
+ if (count($errList) == 0)
+ {
+ return TRUE;
+ }
+ return $errList;
+ }
+
+
+
+ /**
+ * Generate a table which shows some information about an email.
+ * Intended to be part of a 2-column table - includes the row detail, but not the surrounding table definitions
+ *
+ * @param $mailSource - array of mail information
+ * @param $options - controls how much information is displayed
+ * @return text for display
+ */
+ public function showMailDetail(&$mailSource, $options='basic')
+ {
+ $tp = e107::getParser();
+
+
+ if (!isset($this->mailDetailDisplay[$options]))
+ {
+ return "Programming bungle - invalid option value: {$options} '.$this->fields['mail_content'][$k]['title'].' ';
+ $res .= ($v > 1) ? $tp->text_truncate($mailSource[$k], $v, '...') : $mailSource[$k];
+ $res .= ' \n";
+
+ foreach ($emFormat as $key=>$val)
+ {
+ $selected = ($key == $curval) ? " selected='selected'" : '';
+ $text .= "".$val." \n";
+ }
+ $text .=" \n";
+ return $text;
+ }
+
+
+ /**
+ * Generate the HTML to show the mailout form. Used for both sending and editing
+ *
+ * @param $mailSource - array of mail information
+ * @return text for display
+ */
+ function show_mailform(&$mailSource)
+ {
+ global $pref,$HANDLERS_DIRECTORY;
+ global $mailAdmin;
+
+ $sql = e107::getDb();
+ $ns = e107::getRender();
+ $tp = e107::getParser();
+ $frm = e107::getForm();
+ $mes = e107::getMessage();
+
+ if (!is_array($mailSource))
+ {
+ $mes = e107::getMessage();
+ $mes->add('Coding error - mail not array (521)', E_MESSAGE_ERROR);
+ //$ns->tablerender('ERROR!!', );
+ //exit;
+ }
+
+ $email_subject = varset($mailSource['mail_subject'], '');
+ $email_body = $tp->toForm(varset($mailSource['mail_body'],''));
+ $email_id = varset($mailSource['mail_source_id'],'');
+
+ $text = '';
+
+ if(strpos($_SERVER['SERVER_SOFTWARE'],'mod_gzip') && !is_readable(e_HANDLER.'phpmailer/.htaccess'))
+ {
+ $warning = LAN_MAILOUT_40.' '.$HANDLERS_DIRECTORY.'phpmailer/ '.LAN_MAILOUT_41;
+ $ns->tablerender(LAN_MAILOUT_42, $warning);
+ }
+
+ $debug = (e_MENU == "debug") ? "?[debug]" : "";
+
+
+
+ $text .= "";
+
+ $ns->tablerender(LAN_MAILOUT_15,$mes->render(). $text); // Render the complete form
+ }
+
+
+ // Helper function manages the shortcodes which can be inserted
+ function sc_Select($container='sc_selector')
+ {
+ $text ="
+ \n
+
+
+
+
+
+ -- \n";
+
+ $sc = array(
+ '|DISPLAYNAME|' => LAN_MAILOUT_14,
+ '|USERNAME|' => LAN_MAILOUT_16,
+ '|SIGNUP_LINK|' => LAN_MAILOUT_17,
+ '|USERID|' => LAN_MAILOUT_18,
+ '|USERLASTVISIT|' => LAN_MAILOUT_178
+ );
+
+ foreach($sc as $key=>$val)
+ {
+ $text .= "".$val." \n";
+ }
+ $text .="
+
+
\n";
+ foreach ($compVals as $k => $v)
+ {
+ $selected = ($k == $curval) ? " selected='selected'" : '';
+ $ret .= "".$v." \n";
+ }
+ $ret .= " \n";
+ return $ret;
+ }
+
+
+ /**
+ * Show a screen to confirm deletion of an email
+ *
+ * @param $mailid - number of email
+ * @param $nextPage - 'mode' specification for page to return to following delete
+ * @return text for display
+ */
+ public function showDeleteConfirm($mailID, $nextPage = 'saved')
+ {
+ $mailData = $this->retrieveEmail($mailID);
+
+ $text = "";
+
+ if ($mailData === FALSE)
+ {
+ $text = "";
+ $this->e107->ns-> tablerender("
".LAN_MAILOUT_171."
", $text);
+ exit;
+ }
+
+ $text .= "
+
".ADLAN_136." :: ".LAN_MAILOUT_171."
", $text);
+ }
+
+
+
+ /**
+ * Generate the HTML to show a list of emails of a particular type, in tabular form
+ *
+ * @param $type - type of email to display
+ * @param $from - offset into table of candidates
+ * @param $amount - number to return
+ * @return text for display
+ */
+ public function showEmailList($type, $from = 0, $amount = 10)
+ {
+ // Need to select main email entries; count number of addresses attached to each
+ $gen = new convert;
+ $frm = e107::getForm();
+ switch ($type)
+ {
+ case 'sent' :
+ $searchType = 'allcomplete';
+ break;
+ default :
+ $searchType = $type;
+ }
+
+ if ($from < 0) { $from = $this->showFrom; }
+ if ($amount < 0) { $amount = $this->showCount; }
+ // in $_GET, so = sort order, sf = sort field
+ $count = $this->selectEmailStatus($from, $amount, '*', $searchType, $this->sortField, $this->sortOrder);
+ $totalCount = $this->getEmailCount();
+
+ $emails_found = array(); // Log ID and count for later
+
+ $text = "";
+
+ if (!$count)
+ {
+ $text = "";
+ $this->e107->ns-> tablerender("
".$this->tasks[$type]['title']."
", $text);
+ require_once(e_ADMIN."footer.php");
+ exit;
+ }
+
+ $text .= "
+
".ADLAN_136." :: ".$this->tasks[$type]['title']."
", $text);
+ }
+
+
+
+
+ /**
+ * Generate a list of emails to send
+ * Returns various information to display in a confirmation screen
+ *
+ * The email and its recipients are stored in the DB with a tag of 'MAIL_STATUS_TEMP' of its a new email (no change if already on hold)
+ *
+ * @param array $mailData - Details of the email, selection criteria etc
+ * @param boolean $fromHold - FALSE if this is a 'new' email to send, TRUE if its already been put on hold (selects processing path)
+ * @return text for display
+ */
+ public function sendEmailCircular($mailData, $fromHold = FALSE)
+ {
+ $sql = e107::getDb();
+ $mes = e107::getMessage();
+ $frm = e107::getForm();
+
+
+ if ($fromHold)
+ { // Email data already generated
+ $mailMainID = $mailData['mail_source_id'];
+ if ($mailMainID == 0) return FALSE;
+ if (FALSE === ($mailData = $this->retrieveEmail($mailMainID))) // Get the new data
+ {
+ return FALSE;
+ }
+ $counters['add'] = $mailData['mail_togo_count']; // Set up the counters
+ $counters['dups'] = 0;
+ }
+ else
+ {
+ // Start by saving the email
+ $mailData['mail_content_status'] = MAIL_STATUS_TEMP;
+ $mailData['mail_create_app'] = 'core';
+ $result = $this->saveEmail($mailData, TRUE);
+ if (is_numeric($result))
+ {
+ $mailMainID = $mailData['mail_source_id'] = $result;
+ }
+ else
+ {
+ // TODO: Handle error
+ }
+
+
+ $this->mailInitCounters($mailMainID); // Initialise counters for emails added
+
+ foreach ($this->mailHandlers as $key => $m)
+ { // Get email addresses from each handler in turn. Do them one at a time, so that all can use the $sql data object
+ if ($m->mailerEnabled && isset($mailData['mail_selectors'][$key]))
+ {
+ // Initialise
+ $mailerCount = $m->selectInit($mailData['mail_selectors'][$key]);
+ if ($mailerCount > 0)
+ {
+ // Get email addresses - add to list, strip duplicates
+ while ($row = $m->selectAdd())
+ { // Add email addresses to the database ready for sending (the body is never saved in the DB - it gets passed as a $_POST value)
+ $result = $this->mailAddNoDup($mailMainID, $row, MAIL_STATUS_TEMP);
+ if ($result === FALSE)
+ {
+ // Error
+ }
+ }
+ }
+ $m->select_close(); // Close
+ // Update the stats after each handler
+ $this->mailUpdateCounters($mailMainID);
+ }
+ }
+
+ $counters = $this->mailRetrieveCounters($mailMainID);
+ // $this->e107->admin_log->log_event('MAIL_02','ID: '.$mailMainID.' '.$counters['add'].'[!br!]'.$_POST['email_from_name']." <".$_POST['email_from_email'],E_LOG_INFORMATIVE,'');
+ }
+
+
+ // We've got all the email addresses here - display a confirmation form
+ // Include start/end dates for send
+ $text = "";
+
+ e107::getRender()->tablerender("".ADLAN_136." :: ".LAN_MAILOUT_179."
",$mes->render(). $text);
+ } // End of previewed email
+
+
+
+ protected function makeAdvancedOptions($initHide = FALSE)
+ {
+ // Separate table for advanced mailout options
+ // mail_notify_complete field
+ $text = "
+ ".LAN_MAILOUT_242."
+
+
+
+
+ ";
+
+ $text .= "".LAN_MAILOUT_238." ".$this->makeCalendar('mail_earliest_time', '', CORE_DATE_ORDER)." ".LAN_MAILOUT_239." ".$this->makeCalendar('mail_latest_time', '', CORE_DATE_ORDER)." ".LAN_MAILOUT_238." ".$this->makeCalendar('mail_earliest_time', time(), CORE_DATE_ORDER)." ".LAN_MAILOUT_239." ".$this->makeCalendar('mail_latest_time', time()+86400, CORE_DATE_ORDER)." ".LAN_MAILOUT_240."
\n ";
+ return $text;
+ }
+
+
+
+ public function makeCalendar($calName, $calVal = '', $dateOrder = 'dmy')
+ {
+ // Determine formatting strings this way, to give sensible default
+ switch ($dateOrder)
+ {
+ case 'mdy' :
+ $dateString = '%m/%d/%Y %H:%I';
+ $dispString = 'm/d/Y H:I';
+ break;
+ case 'ymd' :
+ $dateString = '%Y/%m/%d %H:%I';
+ $dispString = 'Y/m/d H:I';
+ break;
+ case 'dmy' :
+ default :
+ $dateString = '%d/%m/%Y %H:%I';
+ $dispString = 'd/m/Y H:I';
+ }
+ $calOptions = array(
+ 'showsTime' => TRUE,
+ 'showOthers' => false,
+ 'weekNumbers' => false,
+ 'ifFormat' => $dateString
+ );
+ $calAttrib = array(
+ 'class' => 'tbox',
+ 'size' => 15, // Number of characters
+ 'name' => $calName,
+ 'value' => (($calVal == '') ? '' : date($dispString,$calVal))
+ );
+
+
+ list($dformat,$tformat) = explode(" ",$dateString);
+ $options['type'] = 'datetime';
+ $options['dateFormat'] = $dformat;
+ $options['timeFormat'] = $tformat;
+
+ return e107::getForm()->datepicker($calName,$calVal,$options);
+
+ // return $this->_cal->make_input_field($calOptions, $calAttrib);
+ }
+
+
+ /**
+ * Show recipients of an email
+ *
+ * @param $mailid - number of email
+ * @param $nextPage - 'mode' specification for page to return to following delete
+ * @return text for display
+ */
+ public function showmailRecipients($mailID, $nextPage = 'saved')
+ {
+ $gen = new convert;
+ $frm = e107::getForm();
+
+ $mailData = $this->retrieveEmail($mailID);
+
+ $text = "";
+
+ if ($mailData === FALSE)
+ {
+ $text = "";
+ $this->e107->ns-> tablerender("
".LAN_MAILOUT_171."
", $text);
+ exit;
+ }
+
+ $text .= "
+ ";
+
+
+ // List of recipients
+ // in $_GET, asc = sort order, fld = sort field
+ $count = $this->selectTargetStatus($mailID, $this->showFrom, $this->showCount, '*', FALSE, $this->sortField, $this->sortOrder);
+ $totalCount = $this->getTargetCount();
+
+ if ($count == 0)
+ {
+ $text .= "
".LAN_MAILOUT_253.' ';
+ }
+ else
+ {
+ $text .= "
+
";
+
+ if ($totalCount > $count)
+ {
+ $parms = "{$totalCount},{$this->showCount},{$this->showFrom},".e_SELF."?mode=recipients&m={$mailID}&count={$this->showCount}&frm=[FROM]&fld={$this->sortField}&asc={$this->sortOrder}&savepage={$nextPage}";
+ $text .= $this->e107->tp->parseTemplate("{NEXTPREV={$parms}}");
+ }
+ }
+
+ $text .= "
".ADLAN_136." :: ".LAN_MAILOUT_181."
", $text);
+ }
+
+
+ /**
+ * Clean up mailout DB
+ * Dump array of results to admin log
+ *
+ * @return boolean TRUE if no errors, FALSE if errors
+ */
+ public function dbTidy()
+ {
+ $noError = TRUE;
+ $results = array();
+ $this->checkDB(2); // Make sure DB object created
+
+ // First thing, delete temporary records from both tables
+ if (($res = $this->db2->db_Delete('mail_content', '`mail_content_status` = '.MAIL_STATUS_TEMP)) === FALSE)
+ {
+ $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting temporary records from mail_content';
+ $noError = FALSE;
+ }
+ else
+ {
+ if ($res) $results[] = str_replace(array('--COUNT--', '--TABLE--'), array($res, 'mail_content'), LAN_MAILOUT_227);
+ }
+ if (($res = $this->db2->db_Delete('mail_recipients', '`mail_status` = '.MAIL_STATUS_TEMP)) === FALSE)
+ {
+ $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting temporary records from mail_recipients';
+ $noError = FALSE;
+ }
+ else
+ {
+ if ($res) $results[] = str_replace(array('--COUNT--', '--TABLE--'), array($res, 'mail_recipients'), LAN_MAILOUT_227);
+ }
+
+ // Now look for 'orphaned' recipient records
+ if (($res = $this->db2->db_Select_gen("DELETE `#mail_recipients` FROM `#mail_recipients`
+ LEFT JOIN `#mail_content` ON `#mail_recipients`.`mail_detail_id` = `#mail_content`.`mail_source_id`
+ WHERE `#mail_content`.`mail_source_id` IS NULL")) === FALSE)
+ {
+ $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' deleting orphaned records from mail_recipients';
+ $noError = FALSE;
+ }
+ elseif ($res)
+ {
+ if ($res) $results[] = str_replace('--COUNT--', $res, LAN_MAILOUT_226);
+ }
+
+ // Scan content table for anomalies, out of time records
+ if (($res = $this->db2->db_Select_gen("SELECT * FROM `#mail_content`
+ WHERE (`mail_content_status` >".MAIL_STATUS_FAILED.") AND (`mail_content_status` <=".MAIL_STATUS_MAX_ACTIVE.")
+ AND ((`mail_togo_count`=0) OR ( (`mail_last_date` != 0) AND (`mail_last_date` < ".time().")))")) === FALSE)
+ {
+ $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' checking bad status in mail_content';
+ $noError = FALSE;
+ }
+ else
+ {
+ $items = array(); // Store record number of any content record that needs to be changed
+ while ($row = $this->db2->db_Fetch(MYSQL_ASSOC))
+ {
+ $items[] = $row['mail_source_id'];
+ if ($row['mail_source_id'])
+ {
+ if (FALSE == $this->cancelEmail($row['mail_source_id']))
+ {
+ $results[] = 'Error cancelling email ref: '.$row['mail_source_id'];
+ }
+ else
+ {
+ $results[] = 'Email cancelled: '.$row['mail_source_id'];
+ }
+ }
+ }
+ if (count($items)) $results[] = str_replace(array('--COUNT--', '--RECORDS--'), array(count($items), implode(', ', $items)), LAN_MAILOUT_228);
+ }
+
+
+ //Finally - check for inconsistent recipient and content status records - basically verify counts
+ if (($res = $this->db2->db_Select_gen("SELECT COUNT(mr.`mail_status`) AS mr_count, mr.`mail_status`,
+ mc.`mail_source_id`, mc.`mail_togo_count`, mc.`mail_sent_count`, mc.`mail_fail_count`, mc.`mail_bounce_count`, mc.`mail_source_id` FROM `#mail_recipients` AS mr
+ LEFT JOIN `#mail_content` AS mc ON mr.`mail_detail_id` = mc.`mail_source_id`
+ WHERE mc.`mail_content_status` <= ".MAIL_STATUS_MAX_ACTIVE."
+ GROUP BY mr.`mail_status`, mc.`mail_source_id` ORDER BY mc.`mail_source_id`
+ ")) === FALSE)
+ {
+ $results[] = 'Error '.$this->db2->mySQLlastErrNum.':'.$this->db2->mySQLlastErrText.' assembling email counts';
+ $noError = FALSE;
+ }
+ else
+ {
+ $lastMail = 0; // May get several rows per mail
+ $notLast = TRUE; // This forces one more loop, so we can clean up for last record read
+ $changeCount = 0;
+ $saveRow = array();
+ while (($row = $this->db2->db_Fetch(MYSQL_ASSOC)) || $notLast)
+ {
+ if (($lastMail > 0 && $row === FALSE) || ($lastMail != $row['mail_source_id']))
+ { // Change of mail ID here - handle any accumulated info
+ if ($lastMail > 0)
+ { // Need to verify counts for mail just read
+ $changes = array();
+ foreach ($counters as $k => $v)
+ {
+ if ($saveRow[$k] != $v)
+ {
+ $changes[$k] = $v; // Assume the counters have got it right
+ }
+ }
+ if (count($changes))
+ {
+ // *************** Update mail record here *********************
+ $this->checkDB(1);
+ $this->db->db_Update('mail_content', array('data' => $changes, 'WHERE' => '`mail_source_id` = '.$lastMail, '_FIELDS' => $this->dbTypes['mail_content']));
+ $line = "Count update for {$saveRow['mail_source_id']} - {$saveRow['mail_togo_count']}, {$saveRow['mail_sent_count']}, {$saveRow['mail_fail_count']}, {$saveRow['mail_bounce_count']} => ";
+ $line .= implode (', ', $counters);
+ $results[] = $line;
+ $changeCount++;
+ //echo $line.'