//by Alpha.Z
//05/21/2000
class myimap
{
var $username="";
var $userpwd="";
var $hostname="";
var $port=0;
var $connection=0; //是否连接
var $state="DISCONNECTED"; //连接状态
var $greeting="";
var $must_update=0;
var $inStream=0;
Function open()
{
if ($this->port==110)
$this->inStream=imap_open("{$this->hostname/pop3:110}inbox",$this->username,$this->userpwd);
else
$this->inStream=imap_open("{$this->hostname/imap:143}inbox",$this->username,$this->userpwd);
if ($this->inStream)
{
echo "用户：$this->username 的信箱连接成功。
";
return $inStream;
}
else
{
echo "用户：$this->username 的信箱连接失败。
";
return 0;
}
}
Function close()
{
if(imap_close($this->inStream))
{
echo "
已经与服务器 $this->hostname 断开连接。";
return 1;
}
else
{
echo "
与服务器 $this->hostname 断开连接失败。";
return 0;
}
}
Function CheckMailbox()
{
$mboxinfo=@imap_mailboxmsginfo($this->inStream);
//$mboxinfo=imap_check($this->inStream);
if ($mboxinfo)
if ($mboxinfo->Nmsgs>0)
{
echo "您的收件箱里共有邮件数：".$mboxinfo->Nmsgs."
";
echo "未读邮件数：".$mboxinfo->Unread."
";
//echo "新邮件数：".$mboxinfo->Rescent."
";
echo "总共占用空间：".$mboxinfo->Size."字节
";
echo "最新邮件日期：".$mboxinfo->Date."
";
}
else
{
echo "您的信箱里没有邮件。
";
}
else
{
echo '错误：无法获取收件箱的信息。';
}
echo '
| '.$frm.' | '.$sub.' | '.$date.' | '.$msg_size.' | ';
}
Function decode_mime_string ($string)
{
$pos = strpos($string, '=?');
if (!is_int($pos))
{
return $string;
}
$preceding = substr($string, 0, $pos); // save any preceding text
$search = substr($string, $pos+2, 75); // the mime header spec says this is the longest a single encoded word can be
$d1 = strpos($search, '?');
if (!is_int($d1))
{
return $string;
}
$charset = substr($string, $pos+2, $d1);
$search = substr($search, $d1+1);
$d2 = strpos($search, '?');
if (!is_int($d2))
{
return $string;
}
$encoding = substr($search, 0, $d2);
$search = substr($search, $d2+1);
$end = strpos($search, '?=');
if (!is_int($end))
{
return $string;
}
$encoded_text = substr($search, 0, $end);
$rest = substr($string, (strlen($preceding . $charset . $encoding . $encoded_text)+6));
switch ($encoding)
{
case 'Q':
case 'q':
$encoded_text = str_replace('_', '%20', $encoded_text);
$encoded_text = str_replace('=', '%', $encoded_text);
$decoded = urldecode($encoded_text);
break;
case 'B':
case 'b':
$decoded = urldecode(base64_decode($encoded_text));
break;
default:
$decoded = '=?' . $charset . '?' . $encoding . '?' . $encoded_text . '?=';
break;
}
return $preceding . $decoded . decode_mime_string($rest);
}
Function display_toaddress ($user, $server, $from)
{
return is_int(strpos($from, $this->get_barefrom($user, $server)));
}
Function get_barefrom($user, $server)
{
$barefrom = "$user@$real_server";
return $barefrom;
}
Function get_structure($msg_num)
{
$structure=imap_fetchstructure($this->inStream,$msg_num);
//echo gettype($structure);
return $structure;
}
Function proc_structure($msg_part, $part_no, $msg_num)
{
if ($msg_part->ifdisposition)
{
// See if it has a disposition
// The only thing I know of that this
// would be used for would be an attachment
// Lets check anyway
if ($msg_part->disposition == "ATTACHMENT")
{
// If it is an attachment, then we let people download it
// First see if they sent a filename
$att_name = "unknown";
for ($lcv = 0; $lcv parameters); $lcv++)
{
$param = $msg_part->parameters[$lcv];
if ($param->attribute == "NAME")
{
$att_name = $param->value;
break;
}
}
// You could give a link to download the attachment here....
echo ''.$att_name.'
';
$fp=fopen(".\\$att_name","w+");
fputs($fp,imap_base64(imap_fetchbody($this->inStream,$msg_num,$part_no)));
fclose($fp);
}
else
{
// I guess it is used for something besides attachments????
}
}
else
{
// Not an attachment, lets see what this part is...
switch ($msg_part->type)
{
case TYPETEXT:
$mime_type = "text";
break;
case TYPEMULTIPART:
$mime_type = "multipart";
// Hey, why not use this function to deal with all the parts
// of this multipart part :)
for ($i = 0; $i parts); $i++)
{
if ($part_no != "")
{
$part_no = $part_no.".";
}
for ($i = 0; $i parts); $i++)
{
$this->proc_structure($msg_part->parts[$i], $part_no.($i + 1), $msg_num);
}
}
break;
case TYPEMESSAGE:
$mime_type = "message";
break;
case TYPEAPPLICATION:
$mime_type = "application";
break;
case TYPEAUDIO:
$mime_type = "audio";
break;
case TYPEIMAGE:
$mime_type = "image";
break;
case TYPEVIDEO:
$mime_type = "video";
break;
case TYPEMODEL:
$mime_type = "model";
break;
default:
$mime_type = "unknown";
// hmmm....
}
$full_mime_type = $mime_type."/".$msg_part->subtype;
//echo $full_mime_type.'
';
// Decide what you what to do with this part
// If you want to show it, figure out the encoding and echo away
switch ($msg_part->encoding)
{
case ENCBASE64:
// use imap_base64 to decode
$fp=fopen(".\\$att_name","w+");
fputs($fp,imap_base64(imap_fetchbody($this->inStream,$msg_num,$part_no)));
fclose($fp);
break;
case ENCQUOTEDPRINTABLE:
// use imap_qprint to decode
//echo ereg_replace("\n","
",imap_qprint(imap_fetchbody($this->inStream,$msg_num,$part_no)));
echo '
'.imap_qprint(imap_fetchbody($this->inStream,$msg_num,$part_no)).'';
break;
case ENCOTHER:
// not sure if this needs decoding at all
break;
default:
}
}
}
};
?>
