Copyright (c) 2004 Scott Haug <scott (at) houseofhaug (dot) net>

On Wednesday 28 January 2004 20:16 CET Scott wrote:
> [...] I was searching online for a 
> script or app that would help me convert my mail folders from "The Bat!" 
> to Mozilla's Thunderbird mail client. Google eventually directed me to 
> your page. By changing one of line of tb2kmail, I basically created 
> tb2thunderbird. [...]

--- tb2kmail.pl~	2002-04-07 14:14:28.000000000 -0700
+++ tb2kmail.pl	2004-01-28 08:14:24.000000000 -0800
@@ -176,7 +176,7 @@ main: {
       my $inmbox  =  substr($indir, $cut_indir_at);
       my $outmbox =  $inmbox;
          $outmbox =~ s/\.$/,/;
-         $outmbox =~ s/(^|\\)(.*?)(?=\\)/$1.$2.directory/g;
+         $outmbox =~ s/(^|\\)(.*?)(?=\\)/$1$2.sbd/g;
          $outmbox =  File::Spec->join($outdir, $user, $outmbox);
       my $outdir  =  substr($outmbox, 0, rindex($outmbox, '\\'));