') . ');
make_preview_btn(last_preview);
}',
);
// Create the request list.
createList($listOptions);
$context['sub_template'] = 'show_list';
$context['default_list'] = 'news_lists';
}
/**
* Prepares an array of the forum news items for display in the template
*
* @return array
*/
function list_getNews()
{
global $modSettings;
$admin_current_news = array();
// Ready the current news.
foreach (explode("\n", $modSettings['news']) as $id => $line)
$admin_current_news[$id] = array(
'id' => $id,
'unparsed' => un_preparsecode($line),
'parsed' => preg_replace('~<([/]?)form[^>]*?[>]*>~i', '<$1form>', parse_bbc($line)),
);
$admin_current_news['last'] = array(
'id' => 'last',
'unparsed' => '
',
'parsed' => '',
);
return $admin_current_news;
}
/**
* This function allows a user to select the membergroups to send their
* mailing to.
* Called by ?action=admin;area=news;sa=mailingmembers.
* Requires the send_mail permission.
* Form is submitted to ?action=admin;area=news;mailingcompose.
*
* @uses the ManageNews template and email_members sub template.
*/
function SelectMailingMembers()
{
global $txt, $context, $modSettings, $smcFunc;
$context['page_title'] = $txt['admin_newsletters'];
$context['sub_template'] = 'email_members';
$context['groups'] = array();
$postGroups = array();
$normalGroups = array();
// If we have post groups disabled then we need to give a "ungrouped members" option.
if (empty($modSettings['permission_enable_postgroups']))
{
$context['groups'][0] = array(
'id' => 0,
'name' => $txt['membergroups_members'],
'member_count' => 0,
);
$normalGroups[0] = 0;
}
// Get all the extra groups as well as Administrator and Global Moderator.
$request = $smcFunc['db_query']('', '
SELECT mg.id_group, mg.group_name, mg.min_posts
FROM {db_prefix}membergroups AS mg' . (empty($modSettings['permission_enable_postgroups']) ? '
WHERE mg.min_posts = {int:min_posts}' : '') . '
GROUP BY mg.id_group, mg.min_posts, mg.group_name
ORDER BY mg.min_posts, CASE WHEN mg.id_group < {int:newbie_group} THEN mg.id_group ELSE 4 END, mg.group_name',
array(
'min_posts' => -1,
'newbie_group' => 4,
)
);
while ($row = $smcFunc['db_fetch_assoc']($request))
{
$context['groups'][$row['id_group']] = array(
'id' => $row['id_group'],
'name' => $row['group_name'],
'member_count' => 0,
);
if ($row['min_posts'] == -1)
$normalGroups[$row['id_group']] = $row['id_group'];
else
$postGroups[$row['id_group']] = $row['id_group'];
}
$smcFunc['db_free_result']($request);
// If we have post groups, let's count the number of members...
if (!empty($postGroups))
{
$query = $smcFunc['db_query']('', '
SELECT mem.id_post_group AS id_group, COUNT(*) AS member_count
FROM {db_prefix}members AS mem
WHERE mem.id_post_group IN ({array_int:post_group_list})
GROUP BY mem.id_post_group',
array(
'post_group_list' => $postGroups,
)
);
while ($row = $smcFunc['db_fetch_assoc']($query))
$context['groups'][$row['id_group']]['member_count'] += $row['member_count'];
$smcFunc['db_free_result']($query);
}
if (!empty($normalGroups))
{
// Find people who are members of this group...
$query = $smcFunc['db_query']('', '
SELECT id_group, COUNT(*) AS member_count
FROM {db_prefix}members
WHERE id_group IN ({array_int:normal_group_list})
GROUP BY id_group',
array(
'normal_group_list' => $normalGroups,
)
);
while ($row = $smcFunc['db_fetch_assoc']($query))
$context['groups'][$row['id_group']]['member_count'] += $row['member_count'];
$smcFunc['db_free_result']($query);
// Also do those who have it as an additional membergroup - this ones more yucky...
$query = $smcFunc['db_query']('', '
SELECT mg.id_group, COUNT(*) AS member_count
FROM {db_prefix}membergroups AS mg
INNER JOIN {db_prefix}members AS mem ON (mem.additional_groups != {string:blank_string}
AND mem.id_group != mg.id_group
AND FIND_IN_SET(mg.id_group, mem.additional_groups) != 0)
WHERE mg.id_group IN ({array_int:normal_group_list})
GROUP BY mg.id_group',
array(
'normal_group_list' => $normalGroups,
'blank_string' => '',
)
);
while ($row = $smcFunc['db_fetch_assoc']($query))
$context['groups'][$row['id_group']]['member_count'] += $row['member_count'];
$smcFunc['db_free_result']($query);
}
// Any moderators?
$request = $smcFunc['db_query']('', '
SELECT COUNT(DISTINCT id_member) AS num_distinct_mods
FROM {db_prefix}moderators
LIMIT 1',
array(
)
);
list ($context['groups'][3]['member_count']) = $smcFunc['db_fetch_row']($request);
$smcFunc['db_free_result']($request);
$context['can_send_pm'] = allowedTo('pm_send');
}
/**
* Prepare subject and message of an email for the preview box
* Used in ComposeMailing and RetrievePreview (Xml.php)
*/
function prepareMailingForPreview ()
{
global $context, $smcFunc, $modSettings, $scripturl, $user_info, $txt;
loadLanguage('Errors');
$processing = array('preview_subject' => 'subject', 'preview_message' => 'message');
// Use the default time format.
$user_info['time_format'] = $modSettings['time_format'];
$variables = array(
'{$board_url}',
'{$current_time}',
'{$latest_member.link}',
'{$latest_member.id}',
'{$latest_member.name}'
);
$html = $context['send_html'];
// We might need this in a bit
$cleanLatestMember = empty($context['send_html']) || $context['send_pm'] ? un_htmlspecialchars($modSettings['latestRealName']) : $modSettings['latestRealName'];
foreach ($processing as $key => $post)
{
$context[$key] = !empty($_REQUEST[$post]) ? $_REQUEST[$post] : '';
if (empty($context[$key]) && empty($_REQUEST['xml']))
$context['post_error']['messages'][] = $txt['error_no_' . $post];
elseif (!empty($_REQUEST['xml']))
continue;
preparsecode($context[$key]);
if ($html)
{
$enablePostHTML = $modSettings['enablePostHTML'];
$modSettings['enablePostHTML'] = $context['send_html'];
$context[$key] = parse_bbc($context[$key]);
$modSettings['enablePostHTML'] = $enablePostHTML;
}
// Replace in all the standard things.
$context[$key] = str_replace($variables,
array(
!empty($context['send_html']) ? '' . $scripturl . '' : $scripturl,
timeformat(forum_time(), false),
!empty($context['send_html']) ? '' . $cleanLatestMember . '' : ($context['send_pm'] ? '[url=' . $scripturl . '?action=profile;u=' . $modSettings['latestMember'] . ']' . $cleanLatestMember . '[/url]' : $cleanLatestMember),
$modSettings['latestMember'],
$cleanLatestMember
), $context[$key]);
}
}
/**
* Shows a form to edit a forum mailing and its recipients.
* Called by ?action=admin;area=news;sa=mailingcompose.
* Requires the send_mail permission.
* Form is submitted to ?action=admin;area=news;sa=mailingsend.
*
* @uses ManageNews template, email_members_compose sub-template.
*/
function ComposeMailing()
{
global $txt, $sourcedir, $context, $smcFunc, $scripturl, $modSettings;
// Setup the template!
$context['page_title'] = $txt['admin_newsletters'];
$context['sub_template'] = 'email_members_compose';
$context['subject'] = !empty($_POST['subject']) ? $_POST['subject'] : htmlspecialchars($context['forum_name'] . ': ' . $txt['subject']);
$context['message'] = !empty($_POST['message']) ? $_POST['message'] : htmlspecialchars($txt['message'] . "\n\n" . $txt['regards_team'] . "\n\n" . '{$board_url}');
// Needed for the WYSIWYG editor.
require_once($sourcedir . '/Subs-Editor.php');
// Now create the editor.
$editorOptions = array(
'id' => 'message',
'value' => $context['message'],
'height' => '175px',
'width' => '100%',
'labels' => array(
'post_button' => $txt['sendtopic_send'],
),
'preview_type' => 2,
);
create_control_richedit($editorOptions);
// Store the ID for old compatibility.
$context['post_box_name'] = $editorOptions['id'];
if (isset($context['preview']))
{
require_once($sourcedir . '/Subs-Post.php');
$context['recipients']['members'] = !empty($_POST['members']) ? explode(',', $_POST['members']) : array();
$context['recipients']['exclude_members'] = !empty($_POST['exclude_members']) ? explode(',', $_POST['exclude_members']) : array();
$context['recipients']['groups'] = !empty($_POST['groups']) ? explode(',', $_POST['groups']) : array();
$context['recipients']['exclude_groups'] = !empty($_POST['exclude_groups']) ? explode(',', $_POST['exclude_groups']) : array();
$context['recipients']['emails'] = !empty($_POST['emails']) ? explode(';', $_POST['emails']) : array();
$context['email_force'] = !empty($_POST['email_force']) ? 1 : 0;
$context['total_emails'] = !empty($_POST['total_emails']) ? (int) $_POST['total_emails'] : 0;
$context['max_id_member'] = !empty($_POST['max_id_member']) ? (int) $_POST['max_id_member'] : 0;
$context['send_pm'] = !empty($_POST['send_pm']) ? 1 : 0;
$context['send_html'] = !empty($_POST['send_html']) ? '1' : '0';
return prepareMailingForPreview();
}
// Start by finding any members!
$toClean = array();
if (!empty($_POST['members']))
$toClean[] = 'members';
if (!empty($_POST['exclude_members']))
$toClean[] = 'exclude_members';
if (!empty($toClean))
{
require_once($sourcedir . '/Subs-Auth.php');
foreach ($toClean as $type)
{
// Remove the quotes.
$_POST[$type] = strtr($_POST[$type], array('\\"' => '"'));
preg_match_all('~"([^"]+)"~', $_POST[$type], $matches);
$_POST[$type] = array_unique(array_merge($matches[1], explode(',', preg_replace('~"[^"]+"~', '', $_POST[$type]))));
foreach ($_POST[$type] as $index => $member)
if (strlen(trim($member)) > 0)
$_POST[$type][$index] = $smcFunc['htmlspecialchars']($smcFunc['strtolower'](trim($member)));
else
unset($_POST[$type][$index]);
// Find the members
$_POST[$type] = implode(',', array_keys(findMembers($_POST[$type])));
}
}
if (isset($_POST['member_list']) && is_array($_POST['member_list']))
{
$members = array();
foreach ($_POST['member_list'] as $member_id)
$members[] = (int) $member_id;
$_POST['members'] = implode(',', $members);
}
if (isset($_POST['exclude_member_list']) && is_array($_POST['exclude_member_list']))
{
$members = array();
foreach ($_POST['exclude_member_list'] as $member_id)
$members[] = (int) $member_id;
$_POST['exclude_members'] = implode(',', $members);
}
// Clean the other vars.
SendMailing(true);
// We need a couple strings from the email template file
loadLanguage('EmailTemplates');
// Get a list of all full banned users. Use their Username and email to find them. Only get the ones that can't login to turn off notification.
$request = $smcFunc['db_query']('', '
SELECT DISTINCT mem.id_member
FROM {db_prefix}ban_groups AS bg
INNER JOIN {db_prefix}ban_items AS bi ON (bg.id_ban_group = bi.id_ban_group)
INNER JOIN {db_prefix}members AS mem ON (bi.id_member = mem.id_member)
WHERE (bg.cannot_access = {int:cannot_access} OR bg.cannot_login = {int:cannot_login})
AND (bg.expire_time IS NULL OR bg.expire_time > {int:current_time})',
array(
'cannot_access' => 1,
'cannot_login' => 1,
'current_time' => time(),
)
);
while ($row = $smcFunc['db_fetch_assoc']($request))
$context['recipients']['exclude_members'][] = $row['id_member'];
$smcFunc['db_free_result']($request);
$request = $smcFunc['db_query']('', '
SELECT DISTINCT bi.email_address
FROM {db_prefix}ban_items AS bi
INNER JOIN {db_prefix}ban_groups AS bg ON (bg.id_ban_group = bi.id_ban_group)
WHERE (bg.cannot_access = {int:cannot_access} OR bg.cannot_login = {int:cannot_login})
AND (COALESCE(bg.expire_time, 1=1) OR bg.expire_time > {int:current_time})
AND bi.email_address != {string:blank_string}',
array(
'cannot_access' => 1,
'cannot_login' => 1,
'current_time' => time(),
'blank_string' => '',
)
);
$condition_array = array();
$condition_array_params = array();
$count = 0;
while ($row = $smcFunc['db_fetch_assoc']($request))
{
$condition_array[] = '{string:email_' . $count . '}';
$condition_array_params['email_' . $count++] = $row['email_address'];
}
$smcFunc['db_free_result']($request);
if (!empty($condition_array))
{
$request = $smcFunc['db_query']('', '
SELECT id_member
FROM {db_prefix}members
WHERE email_address IN(' . implode(', ', $condition_array) .')',
$condition_array_params
);
while ($row = $smcFunc['db_fetch_assoc']($request))
$context['recipients']['exclude_members'][] = $row['id_member'];
$smcFunc['db_free_result']($request);
}
// Did they select moderators - if so add them as specific members...
if ((!empty($context['recipients']['groups']) && in_array(3, $context['recipients']['groups'])) || (!empty($context['recipients']['exclude_groups']) && in_array(3, $context['recipients']['exclude_groups'])))
{
$request = $smcFunc['db_query']('', '
SELECT DISTINCT mem.id_member AS identifier
FROM {db_prefix}members AS mem
INNER JOIN {db_prefix}moderators AS mods ON (mods.id_member = mem.id_member)
WHERE mem.is_activated = {int:is_activated}',
array(
'is_activated' => 1,
)
);
while ($row = $smcFunc['db_fetch_assoc']($request))
{
if (in_array(3, $context['recipients']))
$context['recipients']['exclude_members'][] = $row['identifier'];
else
$context['recipients']['members'][] = $row['identifier'];
}
$smcFunc['db_free_result']($request);
}
// For progress bar!
$context['total_emails'] = count($context['recipients']['emails']);
$request = $smcFunc['db_query']('', '
SELECT MAX(id_member)
FROM {db_prefix}members',
array(
)
);
list ($context['max_id_member']) = $smcFunc['db_fetch_row']($request);
$smcFunc['db_free_result']($request);
// Clean up the arrays.
$context['recipients']['members'] = array_unique($context['recipients']['members']);
$context['recipients']['exclude_members'] = array_unique($context['recipients']['exclude_members']);
}
/**
* Handles the sending of the forum mailing in batches.
* Called by ?action=admin;area=news;sa=mailingsend
* Requires the send_mail permission.
* Redirects to itself when more batches need to be sent.
* Redirects to ?action=admin after everything has been sent.
*
* @param bool $clean_only = false; if set, it will only clean the variables, put them in context, then return.
* @uses the ManageNews template and email_members_send sub template.
*/
function SendMailing($clean_only = false)
{
global $txt, $sourcedir, $context, $smcFunc;
global $scripturl, $modSettings, $user_info;
if (isset($_POST['preview']))
{
$context['preview'] = true;
return ComposeMailing();
}
// How many to send at once? Quantity depends on whether we are queueing or not.
// @todo Might need an interface? (used in Post.php too with different limits)
$num_at_once = empty($modSettings['mail_queue']) ? 60 : 1000;
// If by PM's I suggest we half the above number.
if (!empty($_POST['send_pm']))
$num_at_once /= 2;
checkSession();
// Where are we actually to?
$context['start'] = isset($_REQUEST['start']) ? $_REQUEST['start'] : 0;
$context['email_force'] = !empty($_POST['email_force']) ? 1 : 0;
$context['send_pm'] = !empty($_POST['send_pm']) ? 1 : 0;
$context['total_emails'] = !empty($_POST['total_emails']) ? (int) $_POST['total_emails'] : 0;
$context['max_id_member'] = !empty($_POST['max_id_member']) ? (int) $_POST['max_id_member'] : 0;
$context['send_html'] = !empty($_POST['send_html']) ? '1' : '0';
$context['parse_html'] = !empty($_POST['parse_html']) ? '1' : '0';
// Create our main context.
$context['recipients'] = array(
'groups' => array(),
'exclude_groups' => array(),
'members' => array(),
'exclude_members' => array(),
'emails' => array(),
);
// Have we any excluded members?
if (!empty($_POST['exclude_members']))
{
$members = explode(',', $_POST['exclude_members']);
foreach ($members as $member)
if ($member >= $context['start'])
$context['recipients']['exclude_members'][] = (int) $member;
}
// What about members we *must* do?
if (!empty($_POST['members']))
{
$members = explode(',', $_POST['members']);
foreach ($members as $member)
if ($member >= $context['start'])
$context['recipients']['members'][] = (int) $member;
}
// Cleaning groups is simple - although deal with both checkbox and commas.
if (isset($_POST['groups']))
{
if (is_array($_POST['groups']))
{
foreach ($_POST['groups'] as $group => $dummy)
$context['recipients']['groups'][] = (int) $group;
}
else
{
$groups = explode(',', $_POST['groups']);
foreach ($groups as $group)
$context['recipients']['groups'][] = (int) $group;
}
}
// Same for excluded groups
if (isset($_POST['exclude_groups']))
{
if (is_array($_POST['exclude_groups']))
{
foreach ($_POST['exclude_groups'] as $group => $dummy)
$context['recipients']['exclude_groups'][] = (int) $group;
}
else
{
$groups = explode(',', $_POST['exclude_groups']);
foreach ($groups as $group)
$context['recipients']['exclude_groups'][] = (int) $group;
}
}
// Finally - emails!
if (!empty($_POST['emails']))
{
$addressed = array_unique(explode(';', strtr($_POST['emails'], array("\n" => ';', "\r" => ';', ',' => ';'))));
foreach ($addressed as $curmem)
{
$curmem = trim($curmem);
if ($curmem != '')
$context['recipients']['emails'][$curmem] = $curmem;
}
}
// If we're only cleaning drop out here.
if ($clean_only)
return;
require_once($sourcedir . '/Subs-Post.php');
// We are relying too much on writing to superglobals...
$_POST['subject'] = !empty($_POST['subject']) ? $_POST['subject'] : '';
$_POST['message'] = !empty($_POST['message']) ? $_POST['message'] : '';
// Save the message and its subject in $context
$context['subject'] = htmlspecialchars($_POST['subject']);
$context['message'] = htmlspecialchars($_POST['message']);
// Prepare the message for sending it as HTML
if (!$context['send_pm'] && !empty($_POST['send_html']))
{
// Prepare the message for HTML.
if (!empty($_POST['parse_html']))
$_POST['message'] = str_replace(array("\n", ' '), array(' ' . "\n", ' '), $_POST['message']);
// This is here to prevent spam filters from tagging this as spam.
if (preg_match('~\' . "\n" . '' . $_POST['message'] . '