ad_repass.pl

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

########### 用新密码替换掉旧密码 (直接修改)################
sub repass{
 $check=0;       
open(paSS,"$homedir/userdb/$username") || &error("无法打开文件userdb/$username");
    @pass = <paSS>;
close(paSS);
($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
open (DATA,">$homedir/userdb/$username")|| &error("ERROR: DON'T OPEN","无法打开文件$username","2");
        $check++;
print DATA $chkuserlevel."__".$npass."__".$chkwelcom."__".$chkuserid."__".$chkuseremail."__".$chkurl."__".$chkgeyan."__".$chkpotourl."__".$chkuserip."__".$userip."__".$normal_time2."__".$chknow_sec."__".$chklasttime."__".$chkjingyan;
close (DATA);
           print "<hr align=\"center\" width=\"50%\" color=red>\n";
           print "<span class=text2><center>这是你修改后的注册资料</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=text2>$username</span><BR>\n";
           print "注册密码：<span class=text2>$newpass</span><BR>\n";
           print "修改用IP: <span class=text2>$userip </span><BR>\n";
           print "修改时间: <span class=text2>$normal_time2</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";
}