Просмотр файла mail/mail/maildel.php

<?
#####################################################################
#  Copyright (c) 2002 Pau Oliva Fora <[email protected]>               #
#  Licensed under the GNU GPL. For full terms see the file COPYING. #
##################################################################### 
require("config.php");
wmlheader();
wmlmeta();

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

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

print "<card id=\"delete\" title=\"Delete Mail\">\n";

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

if($showlist != 0)
{
echo "<onevent type=\"ontimer\">\n";
echo "<go href=\"maillist.php?page=1&amp;F=$F\"/>\n</onevent>\n";
echo "<timer value=\"10\"/>\n";
echo "<p>Mail has been deleted.</p>\n";
}
else
{
echo "<onevent type=\"ontimer\">\n";
echo "<go href=\"index.php\"/>\n</onevent>\n";
echo "<timer value=\"10\"/>\n";
echo "<p>Mail has been deleted.</p>\n";

}

imap_close ($mbox);

wmlfooter();

?>