ad_mdf.pl

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

##########  管理员修改结果  ##########
sub mdf {
 
   if ($tmpnewname eq "") { &error("ERROR: No name ","你没有输入姓名或输入的姓名格式不对!","0");} #没有姓名
elsif ($newpass eq "") { &error("ERROR: No password","你没有输入密码或输入的密码格式不对!","0");} #没有密码
 else {
     open(paSS,"$homedir/userdb/$username") || &error("无法打开文件userdb/$tmpnewname");
        @pass = <paSS>;
     close(paSS);
unlink ("$homedir/userdb/$username");
open (DATA,">$homedir/userdb/$tmpnewname")|| &error("ERROR: DON'T OPEN","无法打开文件$homedir/userdb/$tmpnewname","0");
          ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
if ($newpass eq "由用户自定") { $npass = $chkuserpassword;}   
      $showuserip   = $chkuserip;
      $showlasttime = $chklasttime;
if ($mdfdj > $hight_level) {$mdfdj = $hight_level;}
if ($mdfdj > $chkuserlevel) {$mdfjy = $mdfdj*$mdfdj*$level;}
print DATA $mdfdj."__".$npass."__".$chkwelcom."__".$tmpnewname."__".$email."__".$url."__".$geyan."__".$potourl."__".$chkuserip."__".$userip."__".$normal_time2."__".$chknow_sec."__".$chklasttime."__".$mdfjy."\n";
close (DATA);
   print "<hr align=\"center\" width=\"50%\" color=red>\n";
   print "<span class=text2><center><B>这是<span class=head>$newname</span>的注册资料:</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>$mdfdj</span><BR>\n";
   print "注册姓名：<span class=text2>$tmpnewname</span><BR>\n";
   print "注册密码：<span class=text2>$newpass</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>$showuserip</span><BR>\n";
   print "修改用IP: <span class=text2>$userip</span><BR>\n";
   print "注册时间: <span class=text2>$showlasttime</span><BR>\n";
   print "修改时间: <span class=text2>$normal_time2</span><BR>\n";
   print "经验总值: <span class=text2>$mdfjy</span><BR>\n";
   print "<P><hr align=\"center\" width=\"100%\">\n";
   print "</span></td></tr></table></center></div><p align=\"center\">\n";
   print "<center><span class=text2><center>操作已完成,你可以返回继续操作,但要记得刷新一下哟!<p>\n";  
   print "<center><A HREF=\"javascript:history.go(-2)\" onMouseOver=\"window.status='按此，返回管理页面!'; return true\" onMouseOut=\"window.status=''; return true\">返回管理页面</a></span></center>\n";
  }
}