Emos 老邮件系统用户迁移方案

       最近负责搭建了Emos1.5 Extmail邮件系统，已通过功能、性能测试，打算正式上线。上线前一个重要工作就是将原有邮件系统的用户信息转移到Extmail邮件系统。为此，我做了一个迁移方案，并写了几个相关程序。

1、  列举出原有邮件系统的所有用户信息，可以保存成文件，也可以直接写入数据库。

       原有邮件系统用户信息是存放在ldap中，因此，可以通过写个java程序将所有邮件账户信息遍历出来，账户信息可保存至文件，也可直接写入数据库。

       本案直接写入数据库，将原有邮件系统的邮件账户信息按照extmail数据库的mailbox表sehema，写入到mailbox表。

2、  修改密码的加密方式

       原有邮件系统的邮件账户口令是以sha1算法加密的，因此其导出的账户口令信息是sha1密文，为此需修改extmail、extman应用的加密方式，分别修改webmail.cf和webman.cf文件即可，改成如下内容：

       SYS_CRYPT_TYPE = sha1

3、  根据mailbox表数据，产生用户邮箱目录

写了个perl程序，遍历mailbox数据表，生成邮箱目录，最后别忘了授权。

#!/usr/bin/perl -w #用户目录生成程序，根据mailbox表的用户信息，生成域目录下的用户邮箱文件夹   use strict; use DBI;   #connect to mysql my $dbh = DBI->connect("DBI:mysql:extmail:localhost","extmail","123456")          || die "Could not connect to database." . DBI ->errstr; my $sql_stmt = "select uid from mailbox where active = 1"; my $sth = $dbh->prepare($sql_stmt); $sth->execute();   #domain、路径常量 #"tmail.wahaha.com.cn"; my $domain = "emos.com"; my $path = "/home/domains/$domain/"; #遍历数据 print "virtual user dir making....../n"; my $count = 0; while(my @row = $sth->fetchrow_array()){          (my $uid) = @row;          $count++;          my $fullpath = $path.$uid;          unless(-e $fullpath){                    mkdir($fullpath,0755);                    if(-e $fullpath){                             $fullpath .="/Maildir";                             mkdir($fullpath,0755);                             if(-e $fullpath){                                      mkdir "$fullpath/new";                                      mkdir "$fullpath/cur";                                      mkdir "$fullpath/tmp";                             }                    }          } } $sth->finish(); $dbh->disconnect();   #授权 `chown -R vuser:vgroup /home/domains/`; print "Total $count users transfered!/n"; exit;

 

4、  登录extmail web邮箱，如能用老邮件系统账户信息登录，恭喜，用户迁移成供。

       用户组，又叫邮件列表，还没迁移过来，只要能将老邮件系统的用户组信息整理出来，并写入alias数据表即可。