ad_input.pl

这个社区是虚拟社区使用的程序

#################  接受用户的注册 #############
sub input {
	
if ($username eq "") {   &error("","你没有输入姓名或输入的姓名格式不对","2"); }
else{
foreach (@bd_wd) {
  if ($username =~ m/$_/) { &error("","请你不要使用不雅的姓名好吗?","2");   }
 }      
  if ($password ne ''){
if (-e "$homedir/userdb/$username"){ &error("ERROR: ALREADY HERE","$username这个名字已被使用!","2"); }

open (DATA,">$homedir/userdb/$username")|| &error("ERROR: DON'T OPEN","无法打开文件$homedir/userdb/$username","2");
print DATA $userlevel."__".$pass."__yes__".$username."__".$email."__".$url."__".$geyan."__".$potourl."__".$userip."__".$userip."__".$normal_time2."__".$now_sec."__".$normal_time2."__0";
close (DATA);
   print "<hr align=\"center\" width=\"50%\" color=red>\n";
   print "<span class=text2><center><B>这是你的注册资料:</B></center></span>\n";
   print "<hr align=\"center\" width=\"50%\">\n";
   print "<div align=\"center\"><center><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tr><td width=\"100%\">\n";
   print "<span class=text>初始等级：<span class=text2>$userlevel</span><BR>\n";
   print "注册姓名：<span class=text2>$username</span><BR>\n";
   print "注册密码：<span class=text2>$password</span><BR>\n";
   if ($email ne ""){print "你的妹儿: <span class=text2>$email</span><br>\n";}
   if ($url ne "") {print "个人网址: <span class=text2>$url</span><br>\n";}
   if ($geyan ne "") {print "你的格言: <span class=text2>$geyan</span><br>\n";}
   if ($potourl ne "") {print "照片网址: <span class=text2>$potourl</span><br>\n";}
   print "注册用IP: <span class=text2>$userip </span><BR>\n";
   print "注册时间: <span class=text2>$normal_time2</span> <BR>\n";
   print "初始经验: <span class=text2>0</span><BR>\n";
   print "<P><hr align=\"center\" width=\"100%\">请你牢记这些资料,\n";
   print "系统将依资料增加你的经验值和级别<br>如果你连续30天未进入$title,系统将自动收回该资源<br>\n";
   print "</span></td></tr></table></center></div><p align=\"center\">\n";
   print "<span class=text>祝你玩得开心,请稍候...</p>\n";
}else {
&error("ERROR: No password","你没有输入密码或输入的密码格式不对!","2");
    }
  }
}