mail_validation.lib.php3

使用PHP编程的聊天室

<?php
// This libray is used during the registration process. It generates a random
// password (function gen_password) then send it by email to the user (function
// send_email).
// Note that the php mail function must be enabled to run this functionality. If
// an other function has been developed by your ISP to send PHP mail, just modify
// the send_email function to make in runable.


// -- SETTINGS BELLOW MUST BE COMPLETED --

$Paswd_Length = '8';					// Length of the password to be generated
$Sender_Name = 'your true name';		// May also be the name of your site 
$Sender_email = 'your e-mail';			// For the reply address
$Chat_URL = 'http://url_of_your_chat';	// To be send as a signature



// -- FUNCTIONS --

// Define in_array-like function for PHP3
if (!function_exists("in_array"))
{
	function in_array($needle,$haystack) 
	{ 
		for($i=0;$i<count($haystack) && $haystack[$i] !=$needle;$i++); 
		return ($i!=count($haystack)); 
	};
};

// Credit for the function that generate password goes to halcyon_42.
// http://www.zend.com/codex.php?id=149&single=1
function gen_password()
{
	global $Paswd_Length;

	// set ASCII range for random character generation
	$lower_ascii_bound = 50;          // "2"
	$upper_ascii_bound = 122;       // "z"

	// Exclude special characters and some confusing alphanumerics
	// o,O,0,I,1,l etc
	$notuse = array (58,59,60,61,62,63,64,73,79,91,92,93,94,95,96,108,111);

	while ($i < $Paswd_Length)
	{
		mt_srand((double)microtime() * 1000000);
		// random limits within ASCII table
		$randnum = mt_rand($lower_ascii_bound, $upper_ascii_bound);
		if (!in_array($randnum, $notuse))
		{
			$password = $password.chr($randnum);
			$i++;
		};
	};

	return $password;
} ;


function quote_printable($str,$WithCharset) 
{
	$str = str_replace("%","=",rawurlencode($str));
	return "=?${WithCharset}?Q?${str}?=";
};

function send_email($subject,$userString,$pswdString,$welcomeString)
{
	global $Charset;
	global $EMAIL, $U, $PASSWORD;
	global $Chat_URL;
	global $Sender_Name, $Sender_email;

	$subject = quote_printable($subject,$Charset);

	$body =  $userString.": $U\n";
	$body .= $pswdString.": $PASSWORD\n\n";
	$body .= $welcomeString."\n";
	$body .= $Chat_URL."\n";

	$Sender_Name = quote_printable($Sender_Name,$Charset);
	$headers = "From: ${Sender_Name} <${Sender_email}> \r\n";
	$headers .= "X-Sender: <${Sender_email}> \r\n";
	$headers .= "X-Mailer: PHP/".phpversion()." \r\n";
	$headers .= "Return-Path: <${Sender_email}> \r\n";
	$headers .= "Mime-Version: 1.0 \r\n";
	$headers .= "Content-Type: text/plain; charset=${Charset} \r\n";
	$headers .= "Content-Transfer-Encoding: 8bit \r\n";

	return @mail($EMAIL, $subject, $body, $headers);
};
?>