solution to problem: IMAP mail disappears when changing computers

First, thank you for making thunderbird portable! There is a slight problem, though, when using IMAP servers. Thunderbird seems to write the absolute path to the mail folders in panacea.dat, in the profile directory. When the drive letter changes, Thunderbird gets confused, and after starting it again, all previous imap mail messages disappear. To fix this problem, the drive letter for the folders specified in panacea.dat must be updated before thunderbird is started. I've written a little batch file to do this, I wanted to share it, so I'm attaching it. However, I'm sure there would be a better way to do this.

Perl.exe and perl58.dll also need to be put in the same directory as the batch file, which should be in the "PortableThunderbird" directory. If the relative path to panacea.dat is not profile/panacea.dat then that needs to be updated in the batch file.

----------- begin batch file ----------
@rem = '
@goto endofperl
';

# Updates the panacea.dat file to point to the current drive.
# Required if accessing IMAP folders using a flash drive
# whose drive letter changes each time it is plugged in.

$curdir = substr(`cd`, 0, 1);
chomp($curdir);

$panacea_path = 'profile/panacea.dat';

open (FILE,"$panacea_path") || SafeQuit("Can't Open $panacea_path: $!\n");
@LINES=;
close(FILE);
$SIZE=@LINES;
open (GUEST,">$panacea_path") || SafeQuit("Can't Open $panacea_path for output: $!\n");

for ($i=0;$i