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数据表即可。