forumcp.php

beiyubbsTXT312 一个相对完整的PHP系统,可以用来参考或模拟

<?php

!function_exists('adminmsg') && exit('Forbidden');

$basename="admin.php?adminjob=forumcp";
$forumfile="bbsdata/forumdata.php";
$forumarray=openfile($forumfile);
$forumcount=count($forumarray);
$nowtime=time();
@set_time_limit(0);
if(empty($action))
{	
	$onlyforum="";
	for($i=0; $i<$forumcount; $i++)
	{
		$detail=explode("|",$forumarray[$i]);
		
		if ($detail[1]!="category") {
			$onlyforum.="<option value=\"$detail[4]\">$detail[2]</option>";
		}
	}
	$onlyforum.="</select>";		
	eval("dooutput(\"".gettemplate('adminforumcp')."\");");
}
elseif ($_POST['action']=="cleanup")
{		
	if (($method=="byamount" && empty($limitnum)) || ($method=="bydate" && empty($limitdate)) || ($method=="byauthor" && empty($author)))
	{
		adminmsg("请填写完整数据以便程式执行动作");				
	}
	if ($target=="all") 
	{
		for ($i=0; $i<$forumcount; $i++)
		{
			$detail=explode("|",$forumarray[$i]);
			if ($detail[1]!="category") art_delete($detail[4]);
		}
	}
	else 
	{
		art_delete($target);
	}
	update_indexsum();
	adminmsg("<span class=bold>动作执行完毕</span>,操作已经成功执行!!!");
}
elseif ($_POST['action']=="updatecount")
{
	//子版块 主题 文章在首页一级版块全权控制开始

	for($i=0; $i<$forumcount; $i++) {
		$detail=explode("|",$forumarray[$i]);
		if ($detail[1]=="category")
			continue;
		if($detail[5]!=0)
		{
			$havechild[$detail[5]][]=$detail[4];
			if (file_exists("$dbpath/$detail[5]/status.php")) 
			{
				$statusarray=explode("|",readover("$dbpath/$detail[5]/status.php"));
				$statusarray[6]=0;$statusarray[8]=0;//初始化所有含有子版块在status.php所记录的子版块帖子数
				$writestatusfile=implode("|",$statusarray);
				writeover("$dbpath/$detail[5]/status.php",$writestatusfile);
			}
		}else{

		}
	}
	for($j=0; $j<$forumcount; $j++)
	{
		$detailwrite=explode("|",$forumarray[$j]);
		if ($detailwrite[1]==category)
			continue;
		if(!empty($havechild[$detailwrite[4]]))
			$detailwrite[13]=implode(",",$havechild[$detailwrite[4]]);
		else
			$detailwrite[13]="";
		$forumarray[$j]=implode("|",$detailwrite);
	}
	$writeforumdata=implode("",$forumarray);
	writeover("bbsdata/forumdata.php",$writeforumdata);
	//结束
	if ($target=="all")
	{
		for ($i=0; $i<$forumcount; $i++)
		{
			$detail=explode("|",$forumarray[$i]);
			if ($detail[1]!="category") update_forumcount($detail[4],$detail[13]);
		}
	}
	else 
	{
		update_forumcount($target,"N");
	}
	update_indexsum();
	adminmsg("<span class=bold>动作执行完毕</span>,操作已经成功执行!!!");
}
elseif($action=='fixindex')
{
	if($recycle=='Y'){
		listrecreat($db_recycle,Y);
		update_forumcount($db_recycle,"N");
	}
	if($target=='all')
	{
		if(empty($start)){/*只进行一次初始化*/
			$start=0;
			for($i=0; $i<$forumcount; $i++) {
				$detail=explode("|",$forumarray[$i]);
				if ($detail[1]=="category")
					continue;
				if($detail[5]!=0)
				{
					if (file_exists("$dbpath/$detail[5]/status.php")) 
					{
						$statusarray=explode("|",readover("$dbpath/$detail[5]/status.php"));
						$statusarray[6]=0;$statusarray[8]=0;//初始化所有含有子版块在status.php所记录的子版块帖子数
						$writestatusfile=implode("|",$statusarray);
						writeover("$dbpath/$detail[5]/status.php",$writestatusfile);
					}
				}
			}
		}
		for($i=$start; $i<$forumcount; $i++)
		{
			$detail=explode("|",$forumarray[$i]);
			if($detail[1]!='category')
			{
				$start++;
				listrecreat($detail[4]);
				update_forumcount($detail[4],$detail[13]);
				$url="$basename&action=fixindex&target=$target&start=$start";
				adminmsg("已完成<font color=red>{$detail[2]}</font>版块索引,程序将自动完成余下版块...",1);
			}
			else
				$start++;
		}
	}
	else{
		listrecreat($target);
		update_forumcount($target,"N");
	}
	update_indexsum();
	adminmsg('动作执行完毕,操作已经成功执行!!!');
}
function listrecreat($fid)
{
	global $dbpath,$db_linesize,$db_topnum;
	if (!is_dir("$dbpath/$fid")) return;
	$tpc_top=array();
	if($fp=@fopen("$dbpath/$fid/list.php","rb")){
		flock($fp,LOCK_SH);
		fseek($fp,$db_linesize+1,SEEK_SET);
		$num=0;
		while(!feof($fp)&&$num<10){
			$num++;
			$topdb=fgets($fp,100);
			$topdetail=explode("|",$topdb);
			if(strpos($topdb,"|")!==false &&$topdetail[8]>0&&$topdetail[4]==''){
				if(strlen($topdb)!=$db_linesize+1)
					$topdb=str_pad(trim($topdb),$db_linesize)."\n";
				$tpc_top[]=	$topdb;
				$filedb[]=$topdetail[5];
			}
		}
		fclose($fp);
	}
	$topspace=str_pad(' ',$db_linesize)."\n";
	$tpc_top=array_pad($tpc_top,$db_topnum,$topspace);
	$db=opendir("$dbpath/$fid/");
	while (false!==($getfile=readdir($db)))
	{
		if(ereg("^[0-9]{1,}\.php$",$getfile))
		{
			$filearray=explode(".",$getfile);
			$tid=$filearray[0];
			$getfiledb=openfile("$dbpath/$fid/$getfile");
			$detail=explode("|",$getfiledb[0]);
			list($rd_hit,$rd_islock,$null)=explode(",",$detail[1]);
			if(!file_exists("userdata/digest")) @mkdir("userdata/digest",0777);
			if($rd_islock==2||$rd_islock==3)
				$digestdb.="{$tid}|";
			if (empty($filedb) || !in_array($tid,$filedb))
			{
				$count=count($getfiledb);
				$replycount=$count-1;//回复的数量
				$last_line  = $getfiledb[$count-1];
				$lstarray   =explode("|",$last_line);
				$lsp= "$lstarray[2],$lstarray[4]";
				if($lstarray[4]==''||strlen($lstarray[4])!=10 || !is_numeric($lstarray[4])){

					if(filesize("$dbpath/$fid/$getfile")<25) @unlink("$dbpath/$fid/$getfile");
					//@unlink("$dbpath/$fid/$getfile");
				}else{
					$lst_reply  = $count-1;
					if(strlen($lstarray[4])!=10)
					{
						$detail[4]='';
					}
					$key_art=str_pad("|||$detail[2]||$tid|$replycount|$lsp|0||",$db_linesize)."\n";
					$array[$key_art]=$lstarray[4];
				}
			}
		}
	}
	closedir($db);
	if($digestdb)writeover("userdata/digest/digest{$fid}.php","<?die;?>\n$fid\n$digestdb");
	@asort($array);//正序排列贴子数组
	$lst_array=@array_keys($array);
	$headfb=str_pad('<?die;?>',$db_linesize)."\n";
	array_unshift($tpc_top,$headfb);/*在数组开头插入一个或多个单元*/
	if(!is_array($lst_array))$lst_array=array();
	$lst_array=array_merge($tpc_top,$lst_array);/*合并两个或多个数组*/
	writelist("$dbpath/$fid/list.php",$lst_array);
}
function art_delete($id) 
{
	global $method,$limitnum,$limitdate,$author,$nowtime,$dbpath,$db_linesize;
	if (!file_exists("$dbpath/$id/status.php")) return;
	$listfile = "$dbpath/$id/list.php";
	$statusfile = "$dbpath/$id/status.php";
	$readsize=$db_linesize+1;$offset=$readsize*11;
	$topictominus=0;
	if ($method=="byamount")
	{
		$delamount=filesize($listfile)/$readsize-11-$limitnum;
		if($delamount<0)return;
		$delcount=0;
		$fp=fopen($listfile,"rb");
		flock($fp,LOCK_SH);
		$topdb=fread($fp,$offset);
		while(!feof($fp)){
			$delcount++;
			$listdb=fread($fp,$readsize);
			if($delcount<=$delamount){
				$detail = explode("|",$listdb);
				if(@unlink("$dbpath/$id/$detail[5].php")){
					@unlink("$dbpath/$id/{$detail[5]}vote.php");
					$topictominus=$topictominus+$detail[6]+1;
					$deltpcnum++;
				}
			}
			else{
				$listarray[]=$listdb;
			}
		}
		/*$writedb=$topdb.implode("",$listarray);
		rewind($fp);
		fputs($fp,$writedb);
		ftruncate($fp,strlen($writedb));*/
		fclose($fp);
		$count=count($listarray);
		$lastlist=$listarray[$count-1];
		array_unshift($listarray,$topdb);/*$topdb含有11行数据.当做一串进行处理*/
		writelist("$dbpath/$id/list.php",$listarray);
	}
	elseif ($method=="bydate") 
	{
		$limitdate=$limitdate*86400;
		$fp=fopen($listfile,"rb");
		flock($fp,LOCK_SH);
		$topdb=fread($fp,$offset);
		while(!feof($fp)){
			$listdb=fread($fp,$readsize);
			$detail = explode("|",$listdb);
			$lastdb=explode(",",$detail[7]);
			$lasttime=$lastdb[1];
			if ($nowtime-$lasttime>$limitdate)
			{
				if(@unlink("$dbpath/$id/$detail[5].php")){
					@unlink("$dbpath/$id/{$detail[5]}vote.php");
					$topictominus=$topictominus+$detail[6]+1;
					$deltpcnum++;
				}
			}
			else{
				$listarray[]=$listdb;
			}
		}
		fclose($fp);
		$count=count($listarray);
		$lastlist=$listarray[$count-1];
		array_unshift($listarray,$topdb);
		writelist("$dbpath/$id/list.php",$listarray);
	}
	elseif ($method=="byauthor"){
		$fp=fopen($listfile,"rb");
		flock($fp,LOCK_SH);
		$topdb=fread($fp,$offset);
		while(!feof($fp)){
			$listdb=fread($fp,$readsize);
			$detail = explode("|",$listdb);
			if($detail[3]==$author){
				if(@unlink("$dbpath/$id/$detail[5].php")){
					@unlink("$dbpath/$id/{$detail[5]}vote.php");
					$topictominus=$topictominus+$detail[6]+1;
					$deltpcnum++;
				}
			}
			else{
				$listarray[]=$listdb;
			}
		}
		fclose($fp);
		$count=count($listarray);
		$lastlist=$listarray[$count-2];/*使用feof循环数组倒数第二个为最后的真值,当然如果前面做好判断就没这个问题.不过这样会减慢速度*/
		array_unshift($listarray,$topdb);
		writelist("$dbpath/$id/list.php",$listarray);
	}
	$lastlistdb=explode("|",$lastlist);
	$newtpcdb=explode(",",$lastlistdb[7]);
	$lasttpc=explode("|",gets("$dbpath/$id/$lastlistdb[5].php",150));
	$statusarray=explode("|",readover($statusfile));
	$statusarray[1]=$lasttpc[5];$statusarray[2]=$newtpcdb[0];
	$statusarray[3]=date("Y-m-j g:i A",$newtpcdb[1]);
	$statusarray[4]="$id&tid=$lastlistdb[5]";$statusarray[5]=$laststamp;
	$statusarray[6]<$topictominus?$statusarray[6]=0:$statusarray[6]-=$topictominus;
	$statusarray[7]-=$deltpcnum;
	writeover($statusfile,"$statusarray[0]|$statusarray[1]|$statusarray[2]|$statusarray[3]|$statusarray[4]|$statusarray[5]|$statusarray[6]|$statusarray[7]|$statusarray[8]|$statusarray[9]");
}
function update_forumcount($id,$ch_id) 
{
	/*
	*设计思想:子版块的主题放在 第8个数据段,子版块的帖子数与加在第6个数据段共存!!
	*/
	global $dbpath,$forumarray,$forumcount;
	//重新统计版块文章数目
	$listfile = "$dbpath/$id/list.php";
	$statusfile = "$dbpath/$id/status.php";
	$listdb = openfile($listfile);
	$count = count($listdb);
	$atcnum=0;$topics=$count;
	for ($i=0; $i<$count; $i++) {
		if (strpos($listdb[$i],"|")!==false){
			$lastinfo=explode("|",$listdb[$i]);
			$atcnum+=$lastinfo[6]+1;/*+1为加主题数也并为帖子数加入帖子总数,$lastinfo[6]为list中的第6个数据段:回复数!*/
		}
		else
			$topics--;
	}
	if(file_exists($statusfile)) $statusarray=explode("|",readover($statusfile));
	list($lastauthor,$lasttime)=explode(",",$lastinfo[7]);
	if(is_numeric($lastinfo[5])){
		$use_date=date("Y-m-j g:i A",$lasttime);
		$lstfiledb=gets("$dbpath/$id/$lastinfo[5].php",120);
		$filearray=explode("|",$lstfiledb);
		if($ch_id==0||$ch_id=="") $statusarray[8]=0;
		writeover($statusfile,"<?die;?>|$filearray[5]|$lastauthor|$use_date|{$id}&tid={$lastinfo[5]}|$lasttime|$atcnum|$topics|$statusarray[8]|$statusarray[9]");
	}
	/*elseif(isset($lastinfo)){
		writeover($statusfile,"<?die;?>||||||$atcnum|$topics|$statusarray[8]|$statusarray[9]");
	}*/
	for($i=0; $i<$forumcount; $i++) {
		$detail=explode("|",$forumarray[$i]);
		if ($detail[1]=="category")
			continue;
		/*假如没有子版块下面判断退出,如果有子版块需进行对父版块输入信息*/
		if($detail[4]==$id && $detail[5]!=0 && $detail[5]!="")
		{
			//echo $detail[5];
			if(file_exists("$dbpath/$detail[5]/status.php"))
				$fathertemp=explode("|",readover("$dbpath/$detail[5]/status.php"));
			$fathertemp[6]+=$atcnum;/*将子版块的帖子数与父版块的主题数叠加*/
			$fathertemp[8]+=$topics;/*将子版块的主题数计入父版块的索引中的单一数据段中,这里必须为其设置单一数据段,因为thread页面的真正主题数可是要靠第7数据段来实现,所以必须真实*/
			//echo "$detail[5] $fathertemp[8] <br>";
			writeover("$dbpath/$detail[5]/status.php","<?die;?>|$fathertemp[1]|$fathertemp[2]|$fathertemp[3]|$fathertemp[4]|$fathertemp[5]|$fathertemp[6]|$fathertemp[7]|$fathertemp[8]|$fathertemp[9]");
			break;
		}
	}
}
function update_indexsum()
{
	//各版块文章数目求和并写入 bbsnew 索引数据文件
	global $forumarray,$forumcount,$dbpath;
	$thread=0;
	$baysofttopic=0;//主题总数
	for ($i=0; $i<$forumcount; $i++) 
	{
		$temp=explode("|",$forumarray[$i]);
		if ($temp[1]!="category" && file_exists("$dbpath/$temp[4]/status.php")) 
		{
			$statusarray=explode("|",readover("$dbpath/$temp[4]/status.php"));
			if($temp[5]==0)$thread+=$statusarray[6];
			$baysofttopic+=$statusarray[7];
		}
	}
	list($bbsfb,$bbstpc,$bbsatc,$bbstoday,$bbsyestoday,$bbsmost,$bbspostcontrol,$bbsbirthcontrol,$bbsstar,$bbsrich,$bbslucher,$bbsbirthman)=explode("|",readover("bbsdata/bbsatc.php"));
	if($bbsmost>5000000) $bbsmost=0;//最高日发贴智能判断 5000000可以是任意
	if($bbstoday>5000000) $bbstoday=0;if($bbsyestoday>5000000) $bbsyestoday=0;
	$bbstpc=$baysofttopic;
	$bbsatc=$thread;
	$writebbsatcdb="<?die;?>|$bbstpc|$bbsatc|$bbstoday|$bbsyestoday|$bbsmost|$bbspostcontrol|$bbsbirthcontrol|$bbsstar|$bbsrich|$bbslucher|$bbsbirthman|";
	writeover("bbsdata/bbsatc.php",$writebbsatcdb);
}
?>