Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
build_dist.pl	4.08 KB	-rw-r--r--
build_ldif.pl	5.93 KB	-rw-r--r--
cleanTest.pl	1.89 KB	-rw-r--r--
copy_folder.pl	3.96 KB	-rw-r--r--
cyrus_expire.pl	3.37 KB	-rw-r--r--
cyrus_expunge.pl	2.03 KB	-rw-r--r--
find_dup_msgs.pl	6.04 KB	-rw-r--r--
idle.pl	6.5 KB	-rw-r--r--
imap_to_mbox.pl	7 KB	-rw-r--r--
imtestExample.pl	5.59 KB	-rw-r--r--
migrate_mail2.pl	10.92 KB	-rw-r--r--
migrate_mbox.pl	3.03 KB	-rw-r--r--
populate_mailbox.pl	8.88 KB	-rw-r--r--
sharedFolder.pl	2.19 KB	-rw-r--r--

Code Editor : cyrus_expunge.pl

#!/usr/bin/perl
#$Id$

use Mail::IMAPClient;
use IO::File;

# Change the following line (or replace it with something better):
my($h,$u,$p) = ('cyrus_host','cyrus_admin_id','cyrus_admin_pswd');

my $imap = Mail::IMAPClient->new(	Server  => "$h",			# imap host
					User    => "$u",			# $u,	
					Password=> "$p",			# $p,
					Uid	=> 1,				# True value
					Port    => 143,				# Cyrus
					Debug	=> 0,				# True value
					Buffer	=> 4096*10,			# True value
					Fast_io	=> 1,				# True value
					Timeout	=> 30,				# True value
					# Debug_fh=> IO::File->new(">out.db"),	# fhandle
				) 
or die "$@";

for my $f ( $imap->folders ) {
	print "Expunging $f\n";
	unless ($imap->select($f) ) {
		$imap->setacl($f,$u,"lrswipcda") or warn "Cannot setacl for $f: $@\n" and next;
		$imap->select($f) or warn "Cannot select $f: $@" and next;
	}
	$imap->expunge;
}

=head1 AUTHOR 
	
David J. Kernen

The Kernen Group, Inc.

imap@kernengroup.com

=head1 COPYRIGHT

This example is distributed with Mail::IMAPClient and 
subject to the same licensing requirements as Mail::IMAPClient.

=cut

#
#$Log: cyrus_expunge.pl,v $
#Revision 19991216.3  2003/06/12 21:38:31  dkernen
#
#Preparing 2.2.8
#Added Files: COPYRIGHT
#Modified Files: Parse.grammar
#Added Files: Makefile.old
#	Makefile.PL Todo sample.perldb
#	BodyStructure.pm
#	Parse.grammar Parse.pod
# 	range.t
# 	Thread.grammar
# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
# 	rfc2221.txt rfc2359.txt rfc2683.txt
#
#Revision 1.1  2003/06/12 21:38:14  dkernen
#
#Preparing 2.2.8
#Added Files: COPYRIGHT
#Modified Files: Parse.grammar
#Added Files: Makefile.old
#	Makefile.PL Todo sample.perldb
#	BodyStructure.pm
#	Parse.grammar Parse.pod
# 	range.t
# 	Thread.grammar
# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
# 	rfc2221.txt rfc2359.txt rfc2683.txt
#
#

${this.title}

Code Editor : cyrus_expunge.pl