#!/usr/bin/perl -w

use lib '../../lib';
use Mail::Box::Manager;

sub scan;

my $mgr = new Mail::Box::Manager;
my $folder = $mgr->open('Test', type => 'mh' );
scan($folder);

sub scan {
	my $folder = shift @_;
print "Entering $folder; type is ", $folder->type, "\n";
	foreach ($folder->listSubFolders) {
		print "Descending into $_\n";
#		scan($folder->openSubFolder($_, type => 'mh'));
		scan($folder->openSubFolder($_));
	}
print "Leaving $folder\n";	
}
