ad_del_nouse_user.pl

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

############# 删除超过规定时间没有使用的用户资料 #############
sub del_nouse_user {
&searchuser("userdb");
$user_total=@dir;
foreach (@dir) {
if (!(-d "$homedir/userdb/$_"))	{
open(paSS,"$homedir/userdb/$_") ||  &error("ERROR: DON'T OPEN","无法打开文件\"$_\"","2");
    @pass = <paSS>;
close(paSS);
}
   ($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass[0]);
    $chktime =~s/年/\:/g;
    $chktime =~s/月/\:/g;
    $chktime =~s/日/\:/g;
   ($chknyear,$chknmon,$chknday,$chknhour,$chknmin,$chknsec) = split(/\:/, $chktime);
   if ((($nyear*360+$nmon*30+$nday) > ($chknyear*360+$chknmon*30+$chknday+$del)) || (length($pass[0])== 0)) {
   unlink ("$homedir/userdb/$_");
		}
	}
}