0)
{
while ($DATA = SQL_FETCHROW($result_main))
{
// Check fetched data for HTML
$HTML = $DATA[10]; if ($HTML == $DATA[0]) $HTML = "N";
// Compile URL and subject line
$DATA[7] = COMPILE_CODE($DATA[7]);
// Set mail order as "active". That means it will be sent out
$result_active = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_pool SET data_type='ACTIVE' WHERE id=%s AND data_type='NEW' LIMIT 1",
array($DATA[0]), __FILE__, __LINE__);
if (SQL_AFFECTEDROWS() == 1)
{
// "Explode" all receivers into an array
if (ereg(";", $DATA[4]))
{
// There's more than one receiver in the list...
$RECEIVERS = explode(";", $DATA[4]);
}
elseif (!empty($DATA[4]))
{
// Only one user left
$RECEIVERS = array($DATA[4]);
}
else
{
// No users left
$RECEIVERS = array("0");
}
$dummy = $RECEIVERS;
// Now, if we are good little boys and girls Santa left us some user-ids.
// We can now send mails to them...
foreach ($RECEIVERS as $key => $uid)
{
// Lookup user ID
$result_user = SQL_QUERY_ESC("SELECT gender, surname, family, email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
array(bigintval($uid)), __FILE__, __LINE__);
// Is his data available?
//* DEBUG: */ echo "*L:".__LINE__."/".SQL_NUMROWS($result_user)."*
";
if (SQL_NUMROWS($result_user) == 1)
{
// The final receiver does exists so we can continue...
list($gender, $sname, $fname, $email) = SQL_FETCHROW($result_user);
// Free memory
SQL_FREERESULT($result_user);
// Do we have a stats entry?
$result_stats = SQL_QUERY_ESC("SELECT id FROM "._MYSQL_PREFIX."_user_stats WHERE pool_id=%s AND userid=%s AND timestamp_ordered='%s' LIMIT 1",
array($DATA[0], $DATA[1], $DATA[6]), __FILE__, __LINE__);
// If there's no stats entry add it!
//* DEBUG: */ echo "!L:".__LINE__."/".SQL_NUMROWS($result_stats)."!
";
if (SQL_NUMROWS($result_stats) == 0)
{
// No entry was found, so we add him!
$result_stats = SQL_QUERY_ESC("INSERT INTO "._MYSQL_PREFIX."_user_stats (pool_id , userid, cat_id, payment_id, subject, url , max_rec , timestamp_ordered, timestamp_sstart) VALUES ('%s','%s','%s','%s','%s','%s','%s','%s' , UNIX_TIMESTAMP())",
array(bigintval($DATA[0]), bigintval($DATA[1]), bigintval($DATA[9]), bigintval($DATA[5]), $DATA[2], $DATA[7], $DATA[8], bigintval($DATA[6])), __FILE__, __LINE__);
// Receive it's ID for the links table
$result_stats = SQL_QUERY_ESC("SELECT id FROM "._MYSQL_PREFIX."_user_stats WHERE pool_id=%s AND userid=%s AND timestamp_ordered='%s' LIMIT 1",
array(bigintval($DATA[0]), bigintval($DATA[1]), bigintval($DATA[6])), __FILE__, __LINE__);
}
//* DEBUG: */ echo "!L:".__LINE__."/".SQL_NUMROWS($result_stats)."!
";
if (SQL_NUMROWS($result_stats) == 1)
{
// We got one!
list($stats_id) = SQL_FETCHROW($result_stats);
SQL_FREERESULT($result_stats);
// Mark this user as "spammed" ;-) And place a line for him...
//* DEBUG: */ echo "?L:".__LINE__."/".$dummy."/".$key."/".$uid."(".$DATA[1].")/".$DATA[0]."/".$stats_id."?
";
switch (REMOVE_RECEIVER($dummy, $key, bigintval($uid), bigintval($DATA[0]), bigintval($stats_id)))
{
case "done":
// Prepare the mail
$DATA[11] = bigintval($stats_id);
$DATA[12] = $sname;
$DATA[13] = $fname;
$DATA[14] = TRANSLATE_GENDER($gender);
// Replace text variables
foreach ($REPLACER as $key => $value) {
if (isset($DATA[$key])) $DATA[3] = str_replace($value, $DATA[$key], $DATA[3]);
} // END - if
// Prepare content
$content = array(
'id' => $DATA[11],
'url' => $DATA[7],
'sender_uid' => $DATA[1],
'category' => GET_CATEGORY($DATA[9]),
'time' => CREATE_FANCY_TIME(GET_PAY_POINTS($DATA[5], "time")),
'points' => TRANSLATE_COMMA(GET_PAY_POINTS($DATA[5], "payment")),
'text' => $DATA[3]
);
// Load message template
$msg = LOAD_EMAIL_TEMPLATE("normal-mail", $content, bigintval($uid));
// Send mail away
SEND_EMAIL($email, $DATA[2], $msg, $HTML);
// Count sent mails...
$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET emails_sent=emails_sent+1 WHERE userid=%s LIMIT 1",
array(bigintval($DATA[1])), __FILE__, __LINE__);
if (GET_EXT_VERSION("user") >= "0.1.4") {
// Update mails received for receiver
$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET emails_received=emails_received+1 WHERE userid=%s LIMIT 1",
array(bigintval($uid)), __FILE__, __LINE__);
} // END - if
// Update mediadata if version is 0.0.4 or higher
if (GET_EXT_VERSION("mediadata") >= "0.0.4") {
// Update entry (or add missing)
//* DEBUG: */ echo "*MEDIA/L:".__LINE__."*
";
MEDIA_UPDATE_ENTRY(array("total_send", "normal_send"), "add", 1);
} // END - if
// And count up the mail
$cnt++;
//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."*
";
break;
case "already":
// Entry already found, but we still count one up!
$cnt++;
//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."
";
break;
}
}
// Do we have reached the maximum to send mails? || ($_CONFIG['max_send'] >= $cnt)
//* DEBUG: */ echo "*L:".__LINE__."/".$cnt.">=".$DATA[8]."/".$_CONFIG['max_send'].">=".$cnt."/".$LAST_SENT_ID."!=".$DATA[0]."*
";
if ((($cnt >= $DATA[8])) && ($LAST_SENT_ID != $DATA[0])) {
// Prepare content
$content = array(
'sender_uid' => $DATA[1],
'category' => GET_CATEGORY($DATA[9]),
'text' => $DATA[3],
'url' => $DATA[7],
'expiration' => CREATE_FANCY_TIME(GET_PAY_POINTS($DATA[5], "time"))
);
// Yes we do, so we notify admin and sender about fully sent mail!
SEND_ADMIN_NOTIFICATION(ADMIN_SUBJ_SEND_DONE, "done-admin", $content, $uid);
// Get sender's data
$result_sender = SQL_QUERY_ESC("SELECT surname, family, email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
array(bigintval($DATA[1])), __FILE__, __LINE__);
if (SQL_NUMROWS($result_sender) == 1) {
// Load data and prepare mail
list($sname, $fname, $email) = SQL_FETCHROW($result_sender);
SQL_FREERESULT($result_sender);
// Load email template
$msg = LOAD_EMAIL_TEMPLATE("done-member", $content, $DATA[1]);
// Send it also waway
SEND_EMAIL($email, MEMBER_SUBJ_SEND_DONE, $msg);
}
// Set status to SEND because we completely send it away
$result_done = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_pool SET data_type='SEND', target_send='0', receivers='' WHERE id=%s LIMIT 1",
array(bigintval($DATA[0])), __FILE__, __LINE__);
// Update send-completed-time
$result_user = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_stats SET timestamp_send=UNIX_TIMESTAMP() WHERE pool_id=%s LIMIT 1",
array(bigintval($DATA[0])), __FILE__, __LINE__);
$LAST_SENT_ID = $DATA[0]; $cnt = 0;
$cnt2 += $cnt;
// Update mediadata if version is 0.0.4 or higher
if (GET_EXT_VERSION("mediadata") >= "0.0.4")
{
// Update entry (or add missing)
//* DEBUG: */ echo "*MEDIA/L:".__LINE__."*
";
MEDIA_UPDATE_ENTRY(array("total_orders", "normal_orders"), "add", 1);
}
//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$P."
";
break;
}
// Do we have send maximum mails?
elseif (($cnt >= $_CONFIG['max_send']) || ($cnt2 >= $_CONFIG['max_send']))
{
// There are some mails left to send for next round, so we reset the status back to NEW (=still not fully delivered)
$ADD = "";
if ($cnt <= $DATA[8]) $ADD = ", target_send=target_send-".$cnt;
$result_queue = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_pool SET data_type='NEW', receivers='%s'".$ADD." WHERE id=%s LIMIT 1",
array(implode(";", $dummy), bigintval($DATA[0])), __FILE__, __LINE__);
//* DEBUG: */ echo"*EXIT/L:".__LINE__."*
";
break;
}
}
else
{
// User does not exists so we have add the sender's points back to sender's account
if (($RECEIVERS[0] == "0") || (empty($RECEIVERS[0])))
{
// List was empty
$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_pool SET data_type='SEND' WHERE id=%s LIMIT 1",
array(bigintval($DATA[0])), __FILE__, __LINE__);
}
else
{
if ($uid > 0)
{
// User does not exists, pay points back
$points = GET_PAY_POINTS($DATA[5]);
ADD_POINTS_REFSYSTEM($DATA[1], $points, false, "0", false, "direct");
// Add points together and remove user
$points_BACK[$DATA[1]] += $points;
}
$cnt_back[$DATA[1]]++;
}
// Remove entry from list
unset($dummy[$key]);
// Update receivers
$result_queue = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_pool SET receivers='%s' WHERE id=%s LIMIT 1",
array(implode(";", $dummy), bigintval($DATA[0])), __FILE__, __LINE__);
}
}
}
}
if ((sizeof($points_BACK) > 0) && (!empty($points_BACK[0]))) {
foreach ($points_BACK as $uid => $PB) {
// Add points only when we have points left to add and a valid user ID
if (($PB > 0) && ($uid > 0)) {
// Prepare content
$content = array(
'points' => TRANSLATE_COMMA($DATA[10])
);
// We have to pay back some points to the sender (we add them directly :-P)
$result = SQL_QUERY_ESC("SELECT email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s AND status='CONFIRMED' LIMIT 1",
array(bigintval($uid)), __FILE__, __LINE__);
$DATA[10] = $PB; $DATA[11] = $cnt_back[$uid];
if (SQL_NUMROWS($result) == 1) {
list($email) = SQL_FETCHROW($result);
SQL_FREERESULT($result);
// User account does exists, so we can safely pay back!
$msg = LOAD_EMAIL_TEMPLATE("back-member", $content, bigintval($uid));
// Send mail out to member
SEND_EMAIL($email, MEMBER_BACK_JACKPOT." (".$uid.")", $msg);
} else {
// Add to jackpot
ADD_JACKPOT($PB);
// Send mail out to admin
SEND_ADMIN_NOTIFICATION(ADMIN_BACK_JACKPOT." (".$uid.")", "back-admin", $content, "admin");
}
}
}
}
}
// Free memory
SQL_FREERESULT($result_main);
// Only send bonus mail when bonus extension is active and maximum send-mails is not reached
if ((EXT_IS_ACTIVE("bonus") && ($cnt < $_CONFIG['max_send'])))
{
// Do we need to send out bonus mails?
if ($HTML_EXT) {
// 0 1 2 3 4 5 6 7 8 9 10 11
$result_bonus = SQL_QUERY("SELECT id, subject, text, receivers, points, time, data_type, timestamp, url, cat_id, target_send, html_msg FROM "._MYSQL_PREFIX."_bonus WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
} else {
// 0 1 2 3 4 5 6 7 8 9 10
$result_bonus = SQL_QUERY("SELECT id, subject, text, receivers, points, time, data_type, timestamp, url, cat_id, target_send FROM "._MYSQL_PREFIX."_bonus WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
}
if (SQL_NUMROWS($result_bonus) > 0) {
// Send these mails away...
$cnt2 = "";
while ($DATA = SQL_FETCHARRAY($result_bonus)) {
// Compile URL
$DATA['url'] = COMPILE_CODE($DATA['url']);
// Message is active in queue
$result_queue = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_bonus SET data_type='QUEUE' WHERE id=%s LIMIT 1",
array(bigintval($DATA['id'])), __FILE__, __LINE__);
// "Explode" all receivers into an array
if (ereg(";", $DATA['receivers'])) {
// There's more than one receiver in the list...
$RECEIVERS = explode(";", $DATA['receivers']);
} elseif (!empty($DATA['points'])) {
// Only one user left
$RECEIVERS = array($DATA['receivers']);
} else {
// No users left
$RECEIVERS = array("0");
}
$dummy = $RECEIVERS;
// Now, if we are good little boys and girls Santa left us some user-ids.
// We can now send mails to them...
foreach ($RECEIVERS as $key => $uid) {
// Load personal data
//* DEBUG: */ echo "*L:".__LINE__."/".$uid."*
";
$result_user = SQL_QUERY_ESC("SELECT surname, family, email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
array(bigintval($uid)), __FILE__, __LINE__);
// Is his data available?
if (SQL_NUMROWS($result_user) == 1)
{
// The final receiver does exists so we can continue...
list($sname, $fname, $email) = SQL_FETCHROW($result_user);
//* DEBUG: */ echo "OK!/L:".__LINE__."
";
// Mark this user as "spammed" ;-) And place a line for him...
if (REMOVE_RECEIVER($dummy, $key, $uid, $DATA['id'], $DATA['id'], true) == "done")
{
// Replace text variables
foreach ($REPLACER as $key => $value) {
if (isset($DATA[$key])) $DATA['text'] = str_replace($value, $DATA[$key], $DATA['text']);
} // END - foreach
// Prepare content
$content = array(
'id' => $DATA['id'],
'url' => $DATA['url'],
'time' => CREATE_FANCY_TIME($DATA['time']),
'points' => TRANSLATE_COMMA($DATA['points']),
'category' => GET_CATEGORY($DATA['cat_id']),
'text' => $DATA['text']
);
// Prepare the mail
$msg = LOAD_EMAIL_TEMPLATE("bonus-mail", $content, $uid);
// Send mail away
if (isset($DATA['html_msg'])) {
// Send HTML?
SEND_EMAIL($email, $DATA['subject'], $msg, $DATA['html_msg']);
} else {
// No HTML mail!
SEND_EMAIL($email, $DATA['subject'], $msg);
}
// Count one up and remove entry from dummy array
$cnt++; unset($dummy[$key]);
if (GET_EXT_VERSION("user") >= "0.1.4")
{
// Update mails received for receiver
$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET emails_received=emails_received+1 WHERE userid=%s LIMIT 1",
array(bigintval($uid)), __FILE__, __LINE__);
}
// Do we have send maximum mails?
if (($cnt >= $_CONFIG['max_send']) || (SELECTION_COUNT($dummy) == 0))
{
// Yes, we have
//* DEBUG: */ echo "*EXIT/L:".__LINE__."
";
break;
}
}
}
// Free some memory
SQL_FREERESULT($result_user);
}
// Update mediadata if version is 0.0.4 or higher
if (GET_EXT_VERSION("mediadata") >= "0.0.4")
{
// Update entry (or add missing
$P = $cnt;
if (!empty($cnt2) && empty($cnt)) $P = $cnt2;
//* DEBUG: */ echo "+MEDIA/L:".__LINE__."/".$P."+
";
MEDIA_UPDATE_ENTRY(array("total_send", "bonus_send"), "add", $P);
}
// Close sending system
//* DEBUG: */ echo "-L:".__LINE__."/".SELECTION_COUNT($dummy)."-
";
if (SELECTION_COUNT($dummy) == 0)
{
// Queue reached!
$result_done = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_bonus SET data_type='SEND', target_send='0', receivers='' WHERE id=%s LIMIT 1",
array(bigintval($DATA['id'])), __FILE__, __LINE__);
//* DEBUG: */ echo "*L:".__LINE__."*
";
// Update mediadata if version is 0.0.4 or higher
if (GET_EXT_VERSION("mediadata") >= "0.0.4")
{
// Update entry (or add missing)
//* DEBUG: */ echo "*MEDIA/L:".__LINE__."*
";
MEDIA_UPDATE_ENTRY(array("total_orders", "bonus_orders"), "add", 1);
}
}
elseif ($cnt >= $_CONFIG['max_send'])
{
// Update bonus pool
$result_done = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_bonus SET data_type='NEW', target_send=%s, receivers='%s' WHERE id=%s LIMIT 1",
array(SELECTION_COUNT($dummy), implode(";", $dummy), bigintval($DATA['id'])), __FILE__, __LINE__);
//* DEBUG: */ echo "*L:".__LINE__."
"; //* DEBUG: */ print_r($dummy); //* DEBUG: */ echo "\n!!!