#!../perl/bin/perl
## 用户注册
if($ENV{'SERVER_SOFTWARE'}=~/IIS.\d+.0$/){my $cd=$0;$cd=~s/[^\\]*$//;chdir($cd);}
use CGI_Lite;
use Digest::MD5 'md5_hex';
require "config.cgi";
if (!defined $allowregister or $allowregister != 1) {
&html("此功能已关闭！",0);
}
@array = qw(name domain pass1 pass2 question answer realname idno depart checkcode agreement rsid);
&parse_form(@array);
my $domainlist = $ENV{'HTTP_HOST'};
$domainlist =~ s/^mail\.//g;
$domainlist = qq{};
if (open(FILE,"$mailroot/domains.tab")){
$domainlist = '';
close(FILE);
}
my $passmin = 6;
my $passmax = 16;
if (open F,"../../JDWA/cgi/config.local.cgi") {
while () {
if (/^passmin\s*=\s*(\d+)/) {
$passmin = $1;
last;
}
}
close F;
}
if ($name ne '') {
my $email = "$name\@$domain";
&html("请填写用户名",2) if ($name eq '');
&html("用户名只能包含：英文字母 数字 - _",2) if ($name =~ /[^a-z0-9\_\-]/);
&html("用户 $email 已注册",2) if (isExists($email));
&html("请填写密码",2) if ($pass1 eq '' or $pass2 eq '');
&html("密码包含非法字符",2) if ($pass1 =~ /\s/);
&html("两次输入的密码不一致",2) if ($pass1 ne $pass2);
&html("密码长度在$passmin-$passmax个字符之间",2) if (((length $pass1) < $passmin) || ((length $pass1) > $passmax));
&html("密码提示问题和答案不能相同",2) if ($question eq $answer);
#&html("请阅读并接受服务条款",2) if (!defined $agreement or $agreement != 1);
if (!defined $checkcode or $checkcode !~ /^\d{4}$/) {
&html("验证码错误，请输入4位数字组成的验证码",2);
}
&html("验证码错误，请重新输入",2) if (!-f "../checkcode/$rsid\_$checkcode");
unlink glob "../checkcode/$rsid\_*";
if (open USER,">>$svrTab{MailBoxPath}/domains/newUserList.tab"){
flock(USER,2);
print USER "$name\t$domain\t$pass1\t$realname\t$depart\t$question\t$answer\n";
close USER;
}
&html("申请已提交，请耐心等待管理员的审核 ",3);
}else{
if (!defined $rsid or $rsid !~ /^\w{32}$/) {
$rsid = md5_hex(time().rand(1));
}
&html(" ",1);
}
sub isExists
{
my $username=shift;
my @tmp=split('@',$username);
my @tmp1=();
open(F,"$mailroot/mailusers.tab") or die("can't open the file $!\n");
@tmp1=;
close(F);
my @tmp2=grep{$_=~/"$tmp[0]"/i and $_=~/"$tmp[1]"/i}@tmp1;
my $count=@tmp2;
if($count){
return 1;
}
else{
return 0;
}
}
sub html {
my ($emsg,$flag) = @_;
print "Content-Type: text/html; charset=$charset\n\n";
print qq~
$ttitle
~;
$JDWM = <<"EOF";
EOF
if ($flag == 0) {
$JDWM .= qq~
|
$emsg |
~;
}elsif($flag == 3){
$JDWM .= qq~
|
|
|
~;
}else{
$JDWM .= qq~
|
$emsg |
~;
}
$JDWM .= qq~
~;
#$JDWM =~ s/[\r\n]+\s*//g;
print "$JDWM";
exit;
}
