use File::Find::Rule;
my @dirs = ( $base_dir, File::Find::Rule->file()->directory()->name('*
+.sbd')->in( $base_dir ) );
foreach my $dir ( @dirs ){
  # do your $temp_dir munging here
  ...
  my @files = File::Find::Rule->file()->maxdepth(1)->not( File::Find::
+Rule->name('.*', '*.html', '*.sbd', '*.msf', '*.dat') )->in( $dir );
  foreach my $mail_file ( @files ){
    # do your $mail_file stuff here
    ...    
  }
}
[download]

The only thing that was wrong after uploading the mails with this script was, that all mails were 'marked as unread' (i.e. no 'Seen' flag was set). After looking into the Mail::IMAPClient documentation, I figured out how to change the script, so that all mails are 'marked as read' on the server. I think that's what most people need...

Here is the patch (just add '\Seen' as the third argument to the append_string() call):

--- original.pl 2008-05-23 14:10:40.000000000 +0800
+++ mark_as_read.pl     2008-05-23 14:11:51.000000000 +0800
@@ -63,7 +63,7 @@
                                 $folder_name =~ s/^\.//;
                                 $imap->create($folder_name)
                                         or warn "unable to create $fo
+lder_name: $@\n";
-                                unless($imap->append_string($folder_n
+ame, $msg)) {
+                                unless($imap->append_string($folder_n
+ame, $msg, '\Seen')) {
                                         warn "Couldn't append " . $ms
+g->header->{subject} . " to $folder_name: $@\n";
                                         warn "Skipping\n";
                                         next;
[download]

davis

Yep, fair enough. I think I may have actually ended up doing something like this in the final version. Thanks for the patch!
cheers

Had some horror to migrate my old Thunderbird archive to IMAP.. found this script. I have made some additions to this code:

- replace '.' (dots) by '_' in folder names

- subscribe to the folders !

- create (final) dir on other location

- appended a base target folder

use warnings;
use strict;
use Data::Dumper;
use Mail::MboxParser;
use Mail::IMAPClient;

my $base_dir    = ".thunderbird/profile_path/Mail/Local Folders/";
my $base_target = "INBOX";
my $imap_server = "localhost";
my $imap_user   = "username";
my $imap_pass   = "password";

my $parseropts = {
        enable_cache    => 0,
        enable_grep     => 0,
        cache_file_name => 'cache-file',
};

my $skip_deleted = 1;

my $imap = Mail::IMAPClient->new(
                        Server   => $imap_server,
                        User     => $imap_user,
                        Password => $imap_pass,
)       or die "Cannot connect to $imap_server as $imap_user: $@";

parse_dir($base_dir);

sub parse_dir {
    my $dir = shift;
    opendir my $dir_h, $dir
                    or die "Unable to opendir $dir: $!\n";
    print "Reading directory $dir\n";


    ##Dirty, probably IMAP-server dependent stuff.
    #This stuff is for dovecot.
    my $temp_dir = $dir;
    $temp_dir =~ s!^$base_dir!$base_target!;
    $temp_dir =~ s!\.sbd!!g;
    $temp_dir =~ s!/+!/!g;
    $temp_dir =~ s!\.+!_!g;
    $temp_dir =~ s!^/!!;
    $temp_dir =~ s!/ *!.!g;
    if ($temp_dir ne $base_target) {
        print "================================= Making dir $temp_dir\
+n";
        $imap->create($temp_dir)
                        or warn "(A) unable to create $temp_dir: $@\n"
+;
        $imap->subscribe($temp_dir)
                        or warn "(A) subscribe to $temp_dir: $@\n";
        print "\n";
    }
    
    foreach my $directory (grep /\.sbd$/, readdir $dir_h) {
        parse_dir($dir."/".$directory);
    }
    seekdir($dir_h, 0);
    foreach my $mail_file (grep !/^\./, grep !/(\.html|\.sbd|\.msf|\.d
+at)$/, readdir $dir_h) {
        my $mf = $dir."/".$mail_file;
        print "Going to parse $mf\n";
        my $mb = Mail::MboxParser->new($mf,
                                                                      
+  decode     => 'ALL',
                                                                      
+  parseropts => $parseropts);
    
        my $folder_name = $temp_dir.".".$mail_file;
        $folder_name =~ s!/+!/!g;
        $folder_name =~ s!\.+!_!g;
        $folder_name =~ s!^/!!;
        $folder_name =~ s!/ *!.!g;
        print "================================= Making dir $folder_na
+me\n";
        $imap->create($folder_name)
                        or warn "(B) unable to create $folder_name: $@
+\n";
        $imap->subscribe($folder_name)
                        or warn "(B) subscribe to $folder_name: $@\n";
    
        for my $msg ($mb->get_messages) {
            #Skip deleted messages...
            unless($skip_deleted and (hex($msg->header->{"x-mozilla-st
+atus"}) & 0x0008)) {
                print "Appending msg " . $msg->header->{subject} . " t
+o $folder_name\n";
                unless($imap->append_string($folder_name, $msg, '\Seen
+')) {
                                warn "Couldn't append " . $msg->header
+->{subject} . " to $folder_name: $@\n";
                                warn "Skipping\n";
                                next;
                }
            } else {
                warn "Skipping " . $msg->header->{subject} . " - delet
+ed message\n";
            }
    
        }
    }
    closedir($dir_h);

}
[download]

Thanks a lot for this script, it helped us a lot!
Thunderbird's IMAP upload functionality is wacky at best :(