chat.cgi

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

#!/usr/bin/perl

#$path = ".";  #这是unix下的配置
$path = &deenpath; #这是win nt iis下的所用的配置           k666软件园 http://www.vv66.net
#聊天主程序
$allow_html=0;
$userlevel = 0;

# 打开配置文件与公用模块
do "$path/config.cgi";
do "$path/public.cgi";

&get_form;
&set_var;
if ($job eq "look") {
	if ( $dnsecn % $reloadn == 0) {  #每间隔$reloadn,就进行用户名单的检查
		do "$path/write_online.cgi";  &write_online("line"); }
   &check_password("show");
    do "$path/show.cgi";
   &return_message;  }
elsif ($job eq "says") {
   &check_password("show"); #检查密码，并检查是否被踢
  ($says = &filterhtml($says)) if ( $allow_html == 0);
  &dn_prompt("信息太长了") if (length($says) > $saylength );
  if ($says eq "") { &dn_prompt("输入信息不能为空"); }
  do "$path/show.cgi" ;
  if ($chkstat ne '2') {
		#$actsays = substr($says,0,length($activeid));
		$talkid = "says";
		$actsays = substr($says,0,1); #因为当前是1个字符,所以就默认用这个了
		if ($actsays eq $activeid ) {  do "$path/active.cgi" ; &write_active; $talkid = "act"; }  #判断是否动作
		do "$path/write_message.cgi" ;
		&write_message($talkid ); 
		if (($towho eq $bchatgenius)||($towho eq $gchatgenius)) {
			do "$path/write_genus.cgi" ;
			&write_genus ; }
	}
	&getusernum;
    &return_message;  }
elsif ($job eq "online") {
   do "$path/write_online.cgi";
   &write_online("line");
    &check_password();
	do "$path/online.cgi" ;
   &return_online; }
elsif ($job eq "adver") {
	do "$path/line.cgi" ;
   &return_adver;  }
elsif ($job eq "no") {
    &check_password("show");
	do "$path/showhead.cgi" ;
    &return_head;
	do "$path/online.cgi" ;
    &return_online;
	do "$path/show.cgi" ;
   &return_message;   }
elsif ($job eq "dnreload") {
	&check_password("show");
	do "$path/showhead.cgi" ;
    &return_head;
	do "$path/show.cgi" ;
   &return_message;}
exit;
############################
sub deenpath  {
	local $filename,$mypath;
	$filename=__FILE__;
	if ($filename=~/\\/) { $filename=~ s/\\/\//g;}
	if ($filename) { $mypath=substr($filename,0,rindex($filename,"/"));  }
	else { $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\")); $mypath=~ s/\\/\//g; }
	return $mypath; }