#!/usr/bin/perl

use warnings;
use strict;
use lib '../lib', '.';

use Mail::Box::Manager;
#use Mail::Box::Search::Grep;

die "Usage: $0 folderfile\n" unless @ARGV==1;
my $fn = shift @ARGV;
 
 
sub file_open($)
{  my $filename = shift;
   my $mgr      = Mail::Box::Manager->new;
   my $folder   = $mgr->open($filename, extract=>'LAZY');
   die "Cannot open $filename: $!\n" unless defined $folder;
   $folder;
}

my $f = file_open($fn);
my @messages = $f->messages;
foreach my $msg (@messages)
{
   $msg->printStructure;
}

for my $x (keys %$f)
{   warn "$x...\n";
    delete $f->{$x};
}
$f->close;
warn "Nu is het einde\n";
