check_user.pl

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

############################# check user #########
sub check_user {
if (-e "$homedir/userdb/$username") {
   open(paSS,"$homedir/userdb/$username") || &error("无法打开文件userdb/$username");
        @pass_line = <paSS>;
   close(paSS);
   ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass_line[0]);
  if($password ne $chkuserpassword) { 
  	&error("你的$password|$chkuserpassword密码错误！请你重新输入，或者注册另一个名字！"); 
  }else{
$userlevel = $chkuserlevel;
$userlevel = $hightlevel if  ($userlevel > $hightlevel) ;
$welcom= $chkwelcom; 
 }
}else{ 
open(DB,">$homedir/userdb/$username") || &error("无法打开文件$username!");
print DB $userlevel."__".$password."__yes__".$username."__".$useremail."__".$url."__".$geyan."__".$potourl."__".$userip."__".$userip."__".$normal_time2."__".$now_sec."__".$normal_time2."__0";
close(DB);
chmod 0666,"$homedir/userdb/$username";
print "<script Language=\"JavaScript\">\n";
print "alert(\"\\n\\n欢迎光临$title！\\n\\n你登陆用ID：$username\\n\\n登陆用密码：$userpassword\\n\\n\\n\\n请一定牢记！30天没有使用的临时聊天ID将会自动删除！\");\n";
print "</script>\n"; 
}
$userinfo ="&username=$username&usersex=$usersex&userpassword=$userpassword&userlevel=$userlevel&room=$room&id=$id";
$userinfo=~s/\n//g;	
}