X-Git-Url: https://git.mxchange.org/?p=mailer.git;a=blobdiff_plain;f=0.2.1%2Finc%2Fpool-update.php;h=fabbcbdb0e1093121092b82e4555fa8b4ff157e0;hp=c46f422072c073ae2ff986e7250c2fdc136ec312;hb=7bc25dd08431c94ce9edca131d56c1a36b13c28a;hpb=157ee010917df5ca07e6d31b42f67417b2516d74

diff --git a/0.2.1/inc/pool-update.php b/0.2.1/inc/pool-update.php
index c46f422072..fabbcbdb0e 100644
--- a/0.2.1/inc/pool-update.php
+++ b/0.2.1/inc/pool-update.php
@@ -1,476 +1,476 @@
-<?php
-/************************************************************************
- * MXChange v0.2.1                                    Start: 11/08/2003 *
- * ===============                              Last change: 07/01/2005 *
- *                                                                      *
- * -------------------------------------------------------------------- *
- * File              : pool-update.php                                  *
- * -------------------------------------------------------------------- *
- * Short description : Sends queued mails from the pool                 *
- * -------------------------------------------------------------------- *
- * Kurzbeschreibung  : Sendet freigegebene Mails aus den Pool           *
- * -------------------------------------------------------------------- *
- *                                                                      *
- * -------------------------------------------------------------------- *
- * Copyright (c) 2003 - 2008 by Roland Haeder                           *
- * For more information visit: http://www.mxchange.org                  *
- *                                                                      *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or    *
- * (at your option) any later version.                                  *
- *                                                                      *
- * This program is distributed in the hope that it will be useful,      *
- * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
- * GNU General Public License for more details.                         *
- *                                                                      *
- * You should have received a copy of the GNU General Public License    *
- * along with this program; if not, write to the Free Software          *
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
- * MA  02110-1301  USA                                                  *
- ************************************************************************/
-
-// Some security stuff...
-if (ereg(basename(__FILE__), $_SERVER['PHP_SELF']))
-{
-	$INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
-	require($INC);
-}
-
-// Test html extensions once
-$HTML_EXT = EXT_IS_ACTIVE("html_mail", true);
-
-// Check for freed mail orders to send out
-if ($HTML_EXT)
-{
-	//                                0     1        2      3       4          5            6      7        8          9       10
-	$result_main = SQL_QUERY("SELECT id, sender, subject, text, receivers, payment_id, timestamp, url, target_send, cat_id, html_msg FROM "._MYSQL_PREFIX."_pool WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
-}
- else
-{
-	//                                0     1        2      3       4          5            6      7        8          9    10
-	$result_main = SQL_QUERY("SELECT id, sender, subject, text, receivers, payment_id, timestamp, url, target_send, cat_id, id FROM "._MYSQL_PREFIX."_pool WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
-}
-
-// Reset variables
-$cnt = "0"; $cnt2 = "0"; $LAST_SENT_ID = "0"; $cnt_back = array("0"); $POINTS_BACK = array("0");
-if (SQL_NUMROWS($result_main) > 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=%d 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=%d LIMIT 1",
-				 array(bigintval($uid)), __FILE__, __LINE__);
-
-				// Is his data available?
-				//* DEBUG: */ echo "*L:".__LINE__."/".SQL_NUMROWS($result_user)."*<BR>";
-				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=%d AND userid=%d 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)."!<BR>";
-					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=%d AND userid=%d 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)."!<BR>";
-					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."?<BR>";
-						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=%d 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=%d 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__."*<BR>";
-								MEDIA_UPDATE_ENTRY(array("total_send", "normal_send"), "add", 1);
-							}
-
-							// And count up the mail
-							$cnt++;
-							//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."*<BR>";
-							break;
-
-						case "already":
-							// Entry already found, but we still count one up!
-							$cnt++;
-							//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."<BR>";
-							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]."*<BR>";
-					if ((($cnt >= $DATA[8])) && ($LAST_SENT_ID != $DATA[0]))
-					{
-						// Yes we do, so we notify admin and sender about fully sent mail!
-						if (GET_EXT_VERSION("admins") >= "0.4.1")
-						{
-							// New method
-							SEND_ADMIN_EMAILS_PRO(ADMIN_SUBJ_SEND_DONE, "done-admin", $DATA[3], $uid);
-						}
-						 else
-						{
-							// Old method
-							SEND_ADMIN_EMAILS(ADMIN_SUBJ_SEND_DONE, LOAD_EMAIL_TEMPLATE("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=%d 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=%d 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=%d 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__."*<BR>";
-							MEDIA_UPDATE_ENTRY(array("total_orders", "normal_orders"), "add", 1);
-						}
-
-						//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$P."<BR>";
-						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=%d LIMIT 1",
-						 array(implode(";", $DUMMY), bigintval($DATA[0])), __FILE__, __LINE__);
-
-						//* DEBUG: */ echo"*EXIT/L:".__LINE__."*<BR>";
-						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=%d 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=%d 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."*<BR>";
-								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=%d 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=%d 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
-					if (GET_EXT_VERSION("admins") >= "0.4.1")
-					{
-						SEND_ADMIN_EMAILS_PRO(ADMIN_BACK_JACKPOT." (".$uid.")", "back-admin", "", "admin");
-					}
-					 else
-					{
-						SEND_ADMIN_EMAILS(ADMIN_BACK_JACKPOT." (".$uid.")", LOAD_TEMPLATE("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=%d 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."*<BR>";
-				$result_user = SQL_QUERY_ESC("SELECT surname, family, email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%d 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__."<BR>";
-
-					// 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=%d 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__."<BR>";
-							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."+<BR>";
-				MEDIA_UPDATE_ENTRY(array("total_send", "bonus_send"), "add", $P);
-			}
-
-			// Close sending system
-			//* DEBUG: */ echo "-L:".__LINE__."/".SELECTION_COUNT($DUMMY)."-<BR>";
-			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=%d LIMIT 1",
-				 array(bigintval($DATA[0])), __FILE__, __LINE__);
-				//* DEBUG: */ echo "*L:".__LINE__."*<BR>";
-
-				// 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__."*<BR>";
-					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=%d, receivers='%s' WHERE id=%d LIMIT 1",
-				 array(SELECTION_COUNT($DUMMY), implode(";", $DUMMY), bigintval($DATA[0])), __FILE__, __LINE__);
-				//* DEBUG: */ echo "*L:".__LINE__."<PRE>";
-				//* DEBUG: */ print_r($DUMMY);
-				//* DEBUG: */ echo "</PRE>\n!!!<BR>";
-				break;
-			}
-		}
-	}
-
-	// Free memory
-	SQL_FREERESULT($result_bonus);
-}
-
-// Remove message (IMPORTANT!)
-unset($msg);
-
-//
-?>
+<?php
+/************************************************************************
+ * MXChange v0.2.1                                    Start: 11/08/2003 *
+ * ===============                              Last change: 07/01/2005 *
+ *                                                                      *
+ * -------------------------------------------------------------------- *
+ * File              : pool-update.php                                  *
+ * -------------------------------------------------------------------- *
+ * Short description : Sends queued mails from the pool                 *
+ * -------------------------------------------------------------------- *
+ * Kurzbeschreibung  : Sendet freigegebene Mails aus den Pool           *
+ * -------------------------------------------------------------------- *
+ *                                                                      *
+ * -------------------------------------------------------------------- *
+ * Copyright (c) 2003 - 2008 by Roland Haeder                           *
+ * For more information visit: http://www.mxchange.org                  *
+ *                                                                      *
+ * This program is free software; you can redistribute it and/or modify *
+ * it under the terms of the GNU General Public License as published by *
+ * the Free Software Foundation; either version 2 of the License, or    *
+ * (at your option) any later version.                                  *
+ *                                                                      *
+ * This program is distributed in the hope that it will be useful,      *
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
+ * GNU General Public License for more details.                         *
+ *                                                                      *
+ * You should have received a copy of the GNU General Public License    *
+ * along with this program; if not, write to the Free Software          *
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
+ * MA  02110-1301  USA                                                  *
+ ************************************************************************/
+
+// Some security stuff...
+if (ereg(basename(__FILE__), $_SERVER['PHP_SELF']))
+{
+	$INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
+	require($INC);
+}
+
+// Test html extensions once
+$HTML_EXT = EXT_IS_ACTIVE("html_mail", true);
+
+// Check for freed mail orders to send out
+if ($HTML_EXT)
+{
+	//                                0     1        2      3       4          5            6      7        8          9       10
+	$result_main = SQL_QUERY("SELECT id, sender, subject, text, receivers, payment_id, timestamp, url, target_send, cat_id, html_msg FROM "._MYSQL_PREFIX."_pool WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
+}
+ else
+{
+	//                                0     1        2      3       4          5            6      7        8          9    10
+	$result_main = SQL_QUERY("SELECT id, sender, subject, text, receivers, payment_id, timestamp, url, target_send, cat_id, id FROM "._MYSQL_PREFIX."_pool WHERE data_type='NEW' ORDER BY timestamp DESC", __FILE__, __LINE__);
+}
+
+// Reset variables
+$cnt = "0"; $cnt2 = "0"; $LAST_SENT_ID = "0"; $cnt_back = array("0"); $POINTS_BACK = array("0");
+if (SQL_NUMROWS($result_main) > 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=%d 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=%d LIMIT 1",
+				 array(bigintval($uid)), __FILE__, __LINE__);
+
+				// Is his data available?
+				//* DEBUG: */ echo "*L:".__LINE__."/".SQL_NUMROWS($result_user)."*<BR>";
+				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=%d AND userid=%d 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)."!<BR>";
+					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=%d AND userid=%d 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)."!<BR>";
+					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."?<BR>";
+						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=%d 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=%d 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__."*<BR>";
+								MEDIA_UPDATE_ENTRY(array("total_send", "normal_send"), "add", 1);
+							}
+
+							// And count up the mail
+							$cnt++;
+							//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."*<BR>";
+							break;
+
+						case "already":
+							// Entry already found, but we still count one up!
+							$cnt++;
+							//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$cnt."<BR>";
+							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]."*<BR>";
+					if ((($cnt >= $DATA[8])) && ($LAST_SENT_ID != $DATA[0]))
+					{
+						// Yes we do, so we notify admin and sender about fully sent mail!
+						if (GET_EXT_VERSION("admins") >= "0.4.1")
+						{
+							// New method
+							SEND_ADMIN_EMAILS_PRO(ADMIN_SUBJ_SEND_DONE, "done-admin", $DATA[3], $uid);
+						}
+						 else
+						{
+							// Old method
+							SEND_ADMIN_EMAILS(ADMIN_SUBJ_SEND_DONE, LOAD_EMAIL_TEMPLATE("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=%d 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=%d 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=%d 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__."*<BR>";
+							MEDIA_UPDATE_ENTRY(array("total_orders", "normal_orders"), "add", 1);
+						}
+
+						//* DEBUG: */ echo"*EXIT/L:".__LINE__."/".$P."<BR>";
+						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=%d LIMIT 1",
+						 array(implode(";", $DUMMY), bigintval($DATA[0])), __FILE__, __LINE__);
+
+						//* DEBUG: */ echo"*EXIT/L:".__LINE__."*<BR>";
+						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=%d 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=%d 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."*<BR>";
+								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=%d 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=%d 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
+					if (GET_EXT_VERSION("admins") >= "0.4.1")
+					{
+						SEND_ADMIN_EMAILS_PRO(ADMIN_BACK_JACKPOT." (".$uid.")", "back-admin", "", "admin");
+					}
+					 else
+					{
+						SEND_ADMIN_EMAILS(ADMIN_BACK_JACKPOT." (".$uid.")", LOAD_TEMPLATE("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=%d 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."*<BR>";
+				$result_user = SQL_QUERY_ESC("SELECT surname, family, email FROM "._MYSQL_PREFIX."_user_data WHERE userid=%d 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__."<BR>";
+
+					// 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=%d 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__."<BR>";
+							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."+<BR>";
+				MEDIA_UPDATE_ENTRY(array("total_send", "bonus_send"), "add", $P);
+			}
+
+			// Close sending system
+			//* DEBUG: */ echo "-L:".__LINE__."/".SELECTION_COUNT($DUMMY)."-<BR>";
+			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=%d LIMIT 1",
+				 array(bigintval($DATA[0])), __FILE__, __LINE__);
+				//* DEBUG: */ echo "*L:".__LINE__."*<BR>";
+
+				// 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__."*<BR>";
+					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=%d, receivers='%s' WHERE id=%d LIMIT 1",
+				 array(SELECTION_COUNT($DUMMY), implode(";", $DUMMY), bigintval($DATA[0])), __FILE__, __LINE__);
+				//* DEBUG: */ echo "*L:".__LINE__."<PRE>";
+				//* DEBUG: */ print_r($DUMMY);
+				//* DEBUG: */ echo "</PRE>\n!!!<BR>";
+				break;
+			}
+		}
+	}
+
+	// Free memory
+	SQL_FREERESULT($result_bonus);
+}
+
+// Remove message (IMPORTANT!)
+unset($msg);
+
+//
+?>