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($result_active) == 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 sex, 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($salut, $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_SEX($salut); // Load message template $msg = LOAD_EMAIL_TEMPLATE("normal-mail", $DATA[3], 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__); } // 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); } // 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])) { // Yes we do, so we notify admin and sender about fully sent mail! SEND_ADMIN_NOTIFICATION(ADMIN_SUBJ_SEND_DONE, "done-admin", $DATA[3], $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); $msg = LOAD_EMAIL_TEMPLATE("done-member", $DATA[3], $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]); $result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_points SET points=points+%s WHERE userid=%s AND ref_depth=0 LIMIT 1", array($points, bigintval($DATA[1])), __FILE__, __LINE__); // Update mediadata as well if (GET_EXT_VERSION("mediadata") >= "0.0.4") { // Update database //* DEBUG: */ echo "*MEDIA/L:".__LINE__."/".$points."*
"; MEDIA_UPDATE_ENTRY(array("total_points"), "add", $points); } // 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)) { // 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", "", 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", "", "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 11 $result_bonus = SQL_QUERY("SELECT id, subject, text, receivers, points, time, data_type, timestamp, url, cat_id, target_send, 'N' 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_FETCHROW($result_bonus)) { // Compile URL $DATA[8] = COMPILE_CODE($DATA[8]); // 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[0])), __FILE__, __LINE__); // "Explode" all receivers into an array if (ereg(";", $DATA[3])) { // There's more than one receiver in the list... $RECEIVERS = explode(";", $DATA[3]); } elseif (!empty($DATA[4])) { // Only one user left $RECEIVERS = array($DATA[3]); } 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[0], $DATA[0], true) == "done") { // Prepare the mail $msg = LOAD_EMAIL_TEMPLATE("bonus-mail", $DATA[2], $uid); // Send mail away SEND_EMAIL($email, $DATA[1], $msg, $DATA[11]); // 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[0])), __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[0])), __FILE__, __LINE__); //* DEBUG: */ echo "*L:".__LINE__."
";
				//* DEBUG: */ print_r($dummy);
				//* DEBUG: */ echo "
\n!!!
"; break; } } } // Free memory SQL_FREERESULT($result_bonus); } // Remove message (IMPORTANT!) unset($msg); // ?>