Re: [Dovecot] Migration questions...

[Lou Duchez]

I don't know whether this would help with the migration, but I routinely 
solve a similar problem.  I have implemented mail failover between two 
servers -- which are configured with identical sets of mailboxes -- and 
every 10 minutes or so, a script grabs any E-Mails from the other server 
and stores them locally in the proper mailboxes.  This script relies on 
IMAP connectivity and passwords in plaintext in a passwd-file.  Here it is:

---
#!/usr/bin/perl

require '/vmail/Simple.pm';

use Net::SMTP;

$passwdfile = "/path/to/passwd-file";
$remoteserver = "myotherserver.com";

open(FIN, $passwdfile);
@pwlines = (<FIN>);
close(FIN);

for ($i = 0; $i <= $#pwlines; $i++)
{
 @pwflds = split(/[:]/, $pwlines[$i]);
 if ($#pwflds == 3)
 {
   @pwparts = split(/[}]/, $pwflds[1]);
   if ($#pwparts == 1)
   {
     $thislogin = $pwflds[0];
     $thispassword = $pwparts[1];
     transfermail($remoteserver, $thislogin, $thispassword);
   }
 }
}

sub transfermail
{
 my $remoteserver = $_[0];
 my $thislogin = $_[1];
 my $thispassword = $_[2];

 print $remoteserver, " - ", $thislogin, " - ", $thispassword, "\n";

 my $server = new Net::IMAP::Simple( $remoteserver );

 my $login_status = $server->login( $thislogin, $thispassword );
 if ($login_status)
 {
   my $number_of_messages = $server->select("INBOX");
   print $thislogin, " - ", $number_of_messages, " messages.\n";

   my $msg;

   for ($msg = 1; $msg <= $number_of_messages; $msg++)
   {

     $ok = 1;

     $lines = $server->get( $msg ) or $ok = 0;
     $smtp = Net::SMTP->new("127.0.0.1") or $ok = 0;

     $smtp->mail($thislogin) or $ok = 0;
     $smtp->recipient($thislogin) or $ok = 0;
     $smtp->data() or $ok = 0;
     $smtp->datasend(@$lines) or $ok = 0;
     $smtp->dataend() or $ok = 0;
     $smtp->quit or $ok = 0;

     if ($ok)
     {
       $server->delete( $msg );
     }
   }
 }
 else
 {
   print $thislogin, " - could not log in.\n";
 }

 $server->quit();

}

1;