#!/usr/bin/perl

use GDBM_File;

chdir "folders" or warn "already in folders directory?\n";

@folder_dirs = qw (. .external .imap);
foreach $folder_dir (@folder_dirs)
{
    print "\n$folder_dir\n";
    opendir FOLDERS, $folder_dir or warn "Cannot open $folder_dir: $!\n";
    @folders = grep { ! (($_ eq ".") or ($_ eq ".."))} readdir FOLDERS;
    closedir FOLDERS;
    foreach (@folders) 
    {
    	tie %folderdb, "GDBM_File", "$folder_dir/$_", O_RDONLY, 0660 or next;
    	@messages = split(':', $folderdb{"messages"});
    	print "folder $_: ".scalar(@messages)." messages\n";
    	untie %folderdb;
    }

}
__END__