active.cgi

这个是分屏聊天室源码。需要分屏的聊天室请参考

#########################################
#进行动作的替换
sub write_active  {
	&dn_prompt("你没有执行动作指令的权限") if ($userlevel<$level_active) ;
	@chatactive=&readtxtfile($activefile);
	$find_act = 0;
	#$dn_act = substr($says,length($activeid ));
	$dn_act = substr($says,1); #因为当前是1个字符,所以就默认用这个了
	foreach  (@chatactive) {
		($chkactive,$chkact1,$chkact2,$chkact3)=split(/‖/,$_);
		if ( $chkactive eq $dn_act ) { $find_act = 1; last; }
	}
	if ($find_act == 1) {
		#chkact1是自言自语 chkact2是对自己说  chkact3是对别人说
		if (($towho eq "")||($towho eq "大家")) { $chkact1=~s/%1/$username/g; $says = $chkact1; }
		if ($towho eq $username ) { $chkact2=~s/%1/$username/g; $says = $chkact2; }
		if (($towho ne $username) &&($towho ne "")&&($towho ne "大家")) { 
			$chkact3=~s/%1/$username/g; 
			$chkact3=~s/%2/$towho/g;
			$says = $chkact3; }
	}
	else { &dn_prompt("系统目前不支持 $says 运作"); }
}