If the email doesn't arrive in a few minutes, your ISP may be blocking it as spam. In this case please contact your ISP and ask them to not block email from $email_from. "; } // a valid email address is of the form A@B.C // where A, B, C are nonempty, // A and B don't contain @ or ., // and C doesn't contain @ // function is_valid_email_addr($addr) { $x = strstr($addr, "@"); if (!$x) return false; if (strlen($x) == strlen($addr)) return false; $x = substr($x, 1); if (strstr($x, "@")) return false; $y = strstr($x, "."); if (!$y) return false; if (strlen($y) == strlen($x)) return false; if (strlen($y) == 1) return false; return true; } ////////////////////////////////////////////// function send_moderation_email($user, $thread, $post, $message) { $body = ""; if (defined('EMAIL_FROM')) { $headers = "From: ". EMAIL_FROM; } else { $headers =""; } $subject = PROJECT." forum moderation notice for $user->name"; $body = PROJECT." notification: This email is sent to inform you that one of your posts in the forum has been affected by moderation in ".PROJECT.": Thread: ".$thread->title." Link: ".MASTER_URL."/forum_thread.php?id=".$thread->id." The moderator gave this explanation to why your post was moderated: ".$message; $body .= " This was the contents of your post: ".$post->content." For further information and assistance with ".PROJECT." go to ".MASTER_URL; return mail($user->email_addr, $subject, $body, $headers); } function send_thread_moderation_email($user, $thread, $message) { $body = ""; if (defined('EMAIL_FROM')) { $headers = "From: ". EMAIL_FROM; } else { $headers =""; } $subject = PROJECT." forum moderation notice for $user->name"; $body = PROJECT." notification: This email is sent to inform you that one of your threads in the forum has been affected by moderation in ".PROJECT.": Thread: ".$thread->title." Link: ".MASTER_URL."/forum_thread.php?id=".$thread->id." The moderator gave this explanation to why your thread was moderated: ".$message; $body .= " For further information and assistance with ".PROJECT." go to ".MASTER_URL; return mail($user->email_addr, $subject, $body, $headers); } function send_problem_email($user, $host) { $body = ""; $host_content = "ID: ".$host->id." Created: ".time_str($host->create_time)." Venue: ".$host->venue." Total credit: ".$host->total_credit." Average credit: ".$host->expavg_credit." Average update time: ".time_str($host->expavg_time)." IP address: $host->last_ip_addr (same the last $host->nsame_ip_addr times) Domain name: " . $host->domain_name; $x = $host->timezone/3600; if ($x >= 0) $x="+$x"; $host_content.=" Local Time = UTC $x hours Number of CPUs: " . $host->p_ncpus." CPU: $host->p_vendor $host->p_model FP ops/sec: ".$host->p_fpops." Int ops/sec: ".$host->p_iops." memory bandwidth: ".$host->p_membw." Operating System: $host->os_name $host->os_version"; $x = $host->m_nbytes/(1024*1024); $y = round($x, 2); $host_content.=" Memory: $y MB"; $x = $host->m_cache/1024; $y = round($x, 2); $host_content.=" Cache: $y KB"; $x = $host->m_swap/(1024*1024); $y = round($x, 2); $host_content.=" Swap Space: $y MB"; $x = $host->d_total/(1024*1024*1024); $y = round($x, 2); $host_content.=" Total Disk Space: $y GB"; $x = $host->d_free/(1024*1024*1024); $y = round($x, 2); $host_content.=" Free Disk Space: $y GB Avg network bandwidth (upstream): $host->n_bwup bytes/sec Avg network bandwidth (downstream): $host->n_bwdown bytes/sec"; $x = $host->avg_turnaround/86400; $host_content.=" Average turnaround: ".round($x, 2)." days Number of RPCs: $host->rpc_seqno Last RPC: ".time_str($host->rpc_time)." % of time client on: ". 100*$host->on_frac." % % of time host connected: " . 100*$host->connected_frac." % % of time user active: " . 100*$host->active_frac." % # of results today: " . $host->nresults_today; if (defined('EMAIL_FROM')) { $headers = "From: ". EMAIL_FROM; } else { $headers =""; } $subject = PROJECT." notice for $user->name"; $body = PROJECT." notification: Dear $user->name Your machine (host # $host->id) described below appears to have a misconfigured BOINC installation. Could you please have a look at it? Sincerely, The ". PROJECT." team "; $body .= " This is the content of our database: " . $host_content." For further information and assistance with ".PROJECT." go to ".MASTER_URL; echo nl2br($body) . "

"; return mail($user->email_addr, $subject, $body, $headers); } ?>