回首页

<?
/>
> email.php3
>
>
> E na Net service
>
> 这个信息是秘密和私人的
> (C) Copyright Manuel Lemos. All Rights Reserved.
>
> $Log: email.php3,v $
>  1.6修正版  1998/05/18 15:57:17  mlemos
>
>
>
>/

Function EmailValidateAddress($address)
{
 return(ereg( "^[^@ ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|net|com|gov|mil|org|edu|int)\$" ,$address));
}

$default_email_charset= "iso-8859-1" ;

Function EmailEncodeQuotedPrintable($text,$header_charset)
{
$length=strlen($text);
 for($whitespace= "" ,$line=0,$encode= "" ,$index=0;$index<$length;$index++)
{
$character=substr($text,$index,1);
$order=Ord($character);
$encode=0;
 switch($order)
{
 case 9:
 case 32:
 if($header_charset== "" )
{
$previous_whitespace=$whitespace;
$whitespace=$character;
$character= "" ;
}
 else
{
 if($order==32)
$character= "_" ;
 else
$encode=1;
}
 break;
 case 10:
 case 13:
 if($whitespace!= "" )
{
 if($header_charset== ""
&& $line+3>75)
{
$encoded.= "=\n" ;
$line=0;
}
$encoded.=sprintf( "=%02X" ,Ord($whitespace));
$line+=3;
$whitespace= "" ;
}
$encoded.=$character;
$line=0;
 continue 2;
 default:
 if($order>127
|| $order<32
|| $character== "="
|| ($header_charset!= ""
&& ($character== "?"
|| $character== "_"
|| $character== "("
|| $character== ")" )))
$encode=1;
 break;
}
 if($whitespace!= "" )
{
 if($header_charset== ""
&& $line+1>75)
{
$encoded.= "=\n" ;
$line=0;
}
$encoded.=$whitespace;
$line++;
$whitespace= "" ;
}
 if($character!= "" )
{
 if($encode)
{
$character=sprintf( "=%02X" ,$order);
$encoded_length=3;
}
 else
$encoded_length=1;
 if($header_charset== ""
&& $line+$encoded_length>75)
{
$encoded.= "=\n" ;
$line=0;
}
$encoded.=$character;
$line+=$encoded_length;
}
}
 if($whitespace!= "" )
{
 if($header_charset== ""
&& $line+3>75)
$encoded.= "=\n" ;
$encoded.=sprintf( "=%02X" ,Ord($whitespace));
}
 if($header_charset!= ""
&& $text!=$encoded)
 return( "=?$header_charset?q?$encoded?=" );
 else
 return($encoded);
}

Function EmailEncodeAddress($address,$name,$header_charset)
{
 global $default_email_charset;

 if($header_charset== "" )
$header_charset=$default_email_charset;
 return( "$address (" .EmailEncodeQuotedPrintable($name,$header_charset). ")" );
}

class email_message
{
 var $mailer= "" ;
 var $default_charset=$default_email_charset;

 var $headers=array( "To" => "" , "Subject" => "" );
 var $body=array();
 var $parts=0;

 Function SetHeader($header,$value)
{
$this->headers[ "$header" ]= "$value" ;
 return( "" );
}

 Function AddBodyText($text)
{
$this->body[$this->parts][ "CONTENTS" ]=$text;
$this->body[$this->parts][ "TYPE" ]= "TEXT" ;
$this->parts++;
 return( "" );
}

 Function AddBodyEncodedText($text)
{
$this->body[$this->parts][ "CONTENTS" ]=EmailEncodeQuotedPrintable($text, "" );
$this->body[$this->parts][ "TYPE" ]= "ENCODED_TEXT" ;
$this->body[$this->parts][ "CHARSET" ]=$this->default_charset;
$this->parts++;
 return( "" );
}

 Function AddBodyPreEncodedText($text)
{
$this->body[$this->parts][ "CONTENTS" ]=$text;
$this->body[$this->parts][ "TYPE" ]= "ENCODED_TEXT" ;
$this->body[$this->parts][ "CHARSET" ]=$this->default_charset;
$this->parts++;
 return( "" );
}

 Function Send()
{
 if(!IsSet($this->headers[ "To" ])
|| $this->headers[ "To" ]== "" )
 return( "the header To: was not defined" );
 if(!IsSet($this->headers[ "Subject" ])
|| $this->headers[ "Subject" ]== "" )
 return( "the header Subject: was not defined" );
 for($charset=$body= "" ,$part=0;$part<$this->parts;$part++)
{
 if($part>0)
 return( "multipart mails are not yet supported" );
 switch($this->body[$part][ "TYPE" ])
{
 case  "TEXT" :
 if($body== "" )
$body=$this->body[$part][ "CONTENTS" ];
 else
$body.=$this->body[$part][ "CONTENTS" ];
 break;
 case  "ENCODED_TEXT" :
 if($body== "" )
$body=$this->body[$part][ "CONTENTS" ];
 else
$body.=$this->body[$part][ "CONTENTS" ];
$charset=$this->body[$part][ "CHARSET" ];
 break;
}
}
 for($header=0,$headers= "" ,Reset($this->headers);$header<count($this->headers);Next($this->headers),$header++)
{
 switch(Key($this->headers))
{
 case  "To" :
 case  "Subject" :
 break;
 default:
$headers.=Key($this->headers). ": " .$this->headers[Key($this->headers)]. "\n" ;
 break;
}
}
 if($this->mailer!= "" )
$headers.= "X-Mailer: $this->mailer" ;
 if($charset!= "" )
$headers.= "MIME-Version: 1.0\nContent-Type: text/plain; charset=$charset\nContent-Transfer-Encoding: quoted-printable\n" ;
 return($this->SendMail($this->headers[ "To" ],EmailEncodeQuotedPrintable($this->headers[ "Subject" ],$this->default_charset),&$body,$headers));
}

 Function SendMail($to,$subject,$body,$headers)
{
 mail($to,$subject,&$body,$headers);
 return( "" );
}

 Function ResetBody()
{
$this->body=array();
 return( "" );
}
};

?>

回首页