Return to clean.inc CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / imap / tests

Annotation of embedaddon/php/ext/imap/tests/clean.inc, revision 1.1.1.1

1.1       misho       1: <?php
                      2: include_once(dirname(__FILE__) . '/imap_include.inc');
                      3: 
                      4: $imap_stream = imap_open($default_mailbox, $username, $password);
                      5: 
                      6: // delete all msgs in default mailbox, i.e INBOX
                      7: $check = imap_check($imap_stream);
                      8: for ($i = 1; $i <= $check->Nmsgs; $i++) {
                      9:        imap_delete($imap_stream, $i); 
                     10: }
                     11: 
                     12: $mailboxes = imap_getmailboxes($imap_stream, $server, '*');
                     13: 
                     14: foreach($mailboxes as $value) {
                     15:        // Only delete mailboxes with our prefix
                     16:        if (preg_match('/\{.*?\}INBOX\.(.+)/', $value->name, $match) == 1) {
                     17:                if (strlen($match[1]) >= strlen($mailbox_prefix) 
                     18:                && substr_compare($match[1], $mailbox_prefix, 0, strlen($mailbox_prefix)) == 0) {
                     19:                        imap_deletemailbox($imap_stream, $value->name);
                     20:                }
                     21:        }       
                     22: }
                     23: 
                     24: imap_close($imap_stream, CL_EXPUNGE); 
                     25: ?>