function archive_email($req = array()) { global $TPL; $info = inbox::get_mail_info(); $email_receive = new email_receive($info); $email_receive->open_mailbox($info["folder"]); $mailbox = "INBOX/archive" . date("Y"); $email_receive->create_mailbox($mailbox) and $TPL["message_good"][] = "Created mailbox: " . $mailbox; $email_receive->move_mail($req["id"], $mailbox) and $TPL["message_good"][] = "Moved email " . $req["id"] . " to " . $mailbox; $email_receive->close(); }
$x++; // this will stream output flush(); $mail->set_msg($num); $mail->get_msg_header($num); $keys = $mail->get_hashes(); $mailbox = hash_to_entity($keys[0]); if (!$mailbox) { printorlog("\n"); printorlog("keys[0] not found. Trying keys[1]: "); $mailbox = hash_to_entity($keys[1]); if (!$mailbox) { printorlog("Failed: " . print_r($keys, 1)); continue; } } printorlog("\n"); printorlog("INBOX." . $mailbox); $mail->create_mailbox("INBOX/" . $mailbox); $mail->move_mail($num, "INBOX/" . $mailbox); if ($x % 100 == 0) { printorlog("\n"); printorlog("expunging at " . $x); $mail->expunge(); } } printorlog("\n"); printorlog("Done at " . $x); $mail->expunge(); $mail->close(); printorlog(date("Y-m-d H:i:s") . " DONE.");