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 : cleanTest.pl

#!/usr/bin/perl

use Mail::IMAPClient;
use IO::File;
#
# Example that will also clean out your test account if interrupted 'make test' 
# runs have left junk folders there. Run from installation dir, installation/examples
# subdir, or supply full path to the test.txt file (created during 'perl Makefile.PL'
# and left in the installation dir until 'make clean').
# If you 've already run 'make clean' or said no to extended tests, 
# then you don't have the file anyway; re-run 'perl Makefile.PL', reply 'y' to the
# extended tests prompt, then supply the test account's credentials as prompted.
# Then try this again.
#
if ( -f "./test.txt" ) {
	$configFile = "./test.txt"
} elsif ( -f "../test.txt" ) {
	$configFile = "../test.txt"
} elsif ( $ARGV[0] and -f "$ARGV[0]" ) {
	$configFile = $ARGV[0];
} else {
	print STDERR "Can't find test.txt. Please run this from the installation directory ",
		"or supply the full path to test.txt as an argument on the command line.\n";
}
my $fh = IO::File->new("./test.txt") or die "./test.txt: $!\n";
while (my $input = <$fh>) {
	chomp $input;
	my($k,$v) = split(/=/,$input,2);
	$conf{$k}=$v;
}
my $imap = Mail::IMAPClient->new(Server=>$conf{server},User=>$conf{user},
	Password=>$conf{passed}) or die "Connecting to $conf{server}: $! $@\n";

for my $f ( grep(/^IMAPClient_/,$imap->folders) ) {
	print "Deleting $f\n";
	$imap->select($f);
	$imap->delete_messages(@{$imap->messages}) ;
	$imap->close($f);
	$imap->delete($f);
}

=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

${this.title}

Code Editor : cleanTest.pl