"; exit(); } // These are set to large values because otherwise the script has // a tendency to just stop after some time. // ini_set ("memory_limit", "20M"); set_time_limit(3600); $receiver = 0; $receiver = post_int('receiver', true); $subject = post_str('subject', true); $body = post_str('body', true); $body = stripslashes($body); admin_page_head("Send mass email"); if ($receiver > 0) { db_init(); switch ($receiver) { case 1: // all users $query = "select * from user where send_email > 0"; break; case 2: // unsuccessful users $week_ago = time(0) - 7*86400; $query = "select user.id,user.name,user.email_addr from user left join result on user.id=result.userid where send_email>0 and total_credit=0 and user.create_time<$week_ago and isnull(result.id)"; break; case 3: // successful users $query = "select * from user where send_email>0 and total_credit>0"; break; case 4: // currently contributing users $query = "select distinct user.id,user.name,user.email_addr from user left join result on user.id=result.userid where send_email>0 and !isnull(result.id)"; break; case 5: // lapsed users $query = "select user.id,user.name,user.email_addr from user left join result on user.id=result.userid where send_email>0 and total_credit>0 and isnull(result.id)"; break; default: // should never happen! exit_error("Got impossible value of receiver from selection!"); } // FOR DEBUGGING $query .= " LIMIT 10"; $result = mysql_query($query); while ($user = mysql_fetch_object($result)) { // TODO: might want to also replace TOTAL_CREDIT, RAC, and similar. $body_to_send = str_replace(USERNAME, $user->name, $body); $body_to_send .= "\n\nTo opt out of future emails from ".PROJECT.", please edit your project preferences at ".URL_BASE."/prefs.php?subset=project\n"; $retval = send_email($user, $subject, $body_to_send); if ($retval) { // send_email returns TRUE on success echo "Sent email to $user->name [$user->id] at $user->email_addr
"; } else { echo "send_email() to $user->name [$user->id] at $user->email_addr failed with error $retval
"; } // try to get output on the screen for feedback. May not help... flush(); } exit(); } echo "
\n"; echo "

\n"; start_table(); echo "Send email to: "; echo " Email subject Email body (USERNAME will be replaced) "; row2("", "\n"); end_table(); echo "

\n"; ?>