ad_changall.pl

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

##########  全部修改  ##########
sub changall {

if    ($newname eq "") { &error("ERROR: No name ","你没有输入姓名或输入的姓名格式不对!","0");} #没有姓名
elsif ($newpass eq "") { &error("ERROR: No password","你没有输入密码或输入的密码格式不对!","0");} #没有密码
else {
foreach (@bd_wd) {
  if ($newname =~ m/$_/) { &error("","请你不要使用不雅的姓名好吗?","2");   }
 }      
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]);
      $showuserip   = $chkuserip;
      $showlasttime = $chklasttime;
      $showjingyan  = $chkjingyan;
open (DATA,">$homedir/userdb/$username")|| &error("ERROR: DON'T OPEN","无法打开文件$homedir/userdb/$username","2");
print DATA $chkuserlevel."__".$npass."__".$chkwelcom."__".$newname."__".$email."__".$url."__".$geyan."__".$potourl."__".$chkuserip."__".$userip."__".$normal_time2."__".$chknow_sec."__".$chklasttime."__".$chkjingyan;
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>$userlevel</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>$showjingyan</span><BR>\n";
   print "<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><center>祝你玩得开心,...</p>\n";
  }
}