File: clean.inc

package info (click to toggle)
php7.0 7.0.33-0%2Bdeb9u8
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 184,180 kB
  • sloc: ansic: 809,195; php: 22,035; sh: 11,873; cpp: 8,064; xml: 6,228; javascript: 2,546; yacc: 1,869; exp: 1,514; makefile: 1,231; pascal: 1,200; awk: 501; perl: 315; sql: 22
file content (25 lines) | stat: -rw-r--r-- 735 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
<?php
include_once(dirname(__FILE__) . '/imap_include.inc');

$imap_stream = imap_open($default_mailbox, $username, $password);

// delete all msgs in default mailbox, i.e INBOX
$check = imap_check($imap_stream);
for ($i = 1; $i <= $check->Nmsgs; $i++) {
	imap_delete($imap_stream, $i); 
}

$mailboxes = imap_getmailboxes($imap_stream, $server, '*');

foreach($mailboxes as $value) {
	// Only delete mailboxes with our prefix
	if (preg_match('/\{.*?\}INBOX\.(.+)/', $value->name, $match) == 1) {
		if (strlen($match[1]) >= strlen($mailbox_prefix) 
		&& substr_compare($match[1], $mailbox_prefix, 0, strlen($mailbox_prefix)) == 0) {
			imap_deletemailbox($imap_stream, $value->name);
		}
	}	
}

imap_close($imap_stream, CL_EXPUNGE); 
?>