#!/usr/bin/perl -w

use strict;

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

my $mgr = Mail::Box::Manager->new;
my $fn = shift @ARGV or die;

my $folder = $mgr->open($fn) or die "Cannot open $fn";

foreach my $msg ($folder->messages)
{   $msg->printStructure;
}

my $msg = $folder->message(0);
#print $msg->body;
#$msg->body->part(0)->print;
#print "#####\n";
#$msg->body->part(0)->body->part(0)->body->print;

#$folder->message(0)->write;

my $nr = $folder->messages;
print "Take default $nr\n";

$nr = $folder->messages('ALL');
print "Take ALL $nr\n";

print '@@@@',"\n";
($msg->parts('RECURSE'))[2]->print;
