mailinfo.php

通过WAP连接MAIL服务器 接受邮件

<?
/*
$Header: /home/cvsroot/pofhq-wapmail/mailinfo.php,v 1.3 2002/12/12 20:49:57 pau Exp $
Copyright (c) 2002 Pau Oliva Fora <[e-mail]>               
Licensed under the GNU GPL. For full terms see the file COPYING.
*/

require("config.php");
wmlheader();

$mbox = imap_open ("\{$IMAPSERVER:$IMAPPORT}$F", "$U", "$P") or wmldie ("can't connect: " . imap_last_error());

print "<card id=\"mailinfo\" title=\"$S_INFO\">\n<p>\n";

$check = imap_mailboxmsginfo ($mbox);
if($check) {
    print "Messages: ". $check->Nmsgs   ."<br/>\n" ;
    print "Recent: "  . $check->Recent  ."<br/>\n" ;
    print "Unread: "  . $check->Unread  ."<br/>\n" ;
    print "Deleted: " . $check->Deleted ."<br/>\n" ;
    print "Size: "    . $check->Size    ."<br/>\n" ;
    print "Date: "    . $check->Date    ."<br/>\n" ;
    print "Driver: "  . $check->Driver  ."<br/>\n" ;
    print "Mailbox: " . $check->Mailbox ."<br/>\n" ;
} else print "imap_check() failed: ".imap_last_error(). "<br>\n";

imap_close($mbox);

print "</p>\n";

wapbutton(0,$S_INDEX,"index.php",array("F"=>$F,"U"=>$U,"P"=>$P));

wmlfooter();

?>