maildel.php

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

<?
/*
$Header: /home/cvsroot/pofhq-wapmail/maildel.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();
wmlmeta();

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

imap_delete ($mbox, $msgid);
//imap_expunge ($mbox);

print "<card id=\"delete\" title=\"$S_DELETE\">\n";

$check = imap_mailboxmsginfo($mbox);
if($check) $showlist = $check->Nmsgs;
else print "imap_check() failed: ".imap_last_error(). "<br/>\n";

if($showlist != 0) {
	echo "<p align=\"center\">$S_MAILDELETED<br/>\n";
	wapbutton(0,$S_INDEX,"maillist.php",array("page"=>"1","F"=>$F,"U"=>$U,"P"=>$P));
	echo "</p>\n";
} else {
	echo "<p align=\"center\">$S_MAILDELETED<br/>\n";
	wapbutton(0,$S_INDEX,"index.php",array("F"=>$F,"U"=>$U,"P"=>$P));
	echo "</p>\n";
}

imap_close ($mbox);

wmlfooter();
?>