⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 config.cgi

📁 这个是分屏聊天室源码。需要分屏的聊天室请参考
💻 CGI
字号:
#设置文件
################################################
# Dnchat10.3v    聊天同盟开发   程式制作: Deen    #
# http://deen.126.com   Email: deen666@126.com #
# 如有问题,请访问我的主页寻求技术支持 2001-02-05    #
################################################
$cgiurl    = &deenurl; # 聊天程序的URL位置
#$cgiurl     = "http://61.139.42.112/97star/deen/cgi-bin/dnchat10.0/"; 
$filehead  = "$path/txt/";  # 文本文件的路径,最关键的设置,请注意
$userhead  = "$path/txt/user/"; #用户资料存放的路径
$linehead  = "$path/txt/line/"; #名单文件存放的路径 
$messhead  = "$path/txt/mess/"; #信息备份文件存放的路径

#次重要的设置了
$logouturl  = "http://61.139.42.112/97star/deen/";   # 退出聊天室以后的url
$killurl    = "http://61.139.42.112/97star/deen/";  #被踢以后转向的地址
$picturl   = "http://61.139.42.112/97star/deen/chat/pict/";  #留言本图像的路径
$sendprog   = "/usr/sbin/sendmail";          #服务器sendmail 程序的确切位置
$bbsurl     = ""; #登录页面上论坛的地址

#超级用户
$superuser    = "deen"  ; # 超级用户
$superhidden  = 1;       # 超级用户是否进入与退出隐身,0=不,1=是
$mailbox     = "deen666\@126.com";  # 系统管理员的邮箱

# 个性化的一些设置
$lookurl   = "deen.126.com" ;       #  系统管理员的主页地址,不能要 http://
$lookmess  = "聊天同盟";  #   用户信息显示窗口下方地址文本
$roomtitle   = "【网缘聊天室】"; #聊天室名称
$roompromt   = "快报"         ; #聊天室提示
$roomin{'Boy'} = "开着宝马飞奔而来"   ;  #boy进入聊天室的提示,来点有趣的吧。
$roomin{'Girl'} = "坐着花车款款而来!" ; #boy退出聊天室的提示,来点有趣的吧。
$roomout{'Boy'} = "开着法拉利飞驰离去";  #girl进入聊天室的提示,来点有趣的吧。
$roomout{'Girl'} = "荡着一叶轻舟飘然离去" ; #girl退出聊天室的提示,来点有趣的吧。
$roomkickout     = "用降龙十八掌扔到外太空"   ; #踢出聊天室以后显示的提示
$bchatgenius     = "聊天王子";                #男聊天精灵的名字
$gchatgenius     = "聊天公主";                #女聊天精灵的名字
$chattitle       = "更高,更快,更强";              #聊天室的主题
$bd_wd = "|他妈的|妈的|他爸的|操你妈|狗娘的|狗日的|shit|日你娘|日你妈|娘的|日你姐|fuck|龟孙子|龟儿子|\n|<script>|</script>|javascript|java|阴茎|阴毛|\
|"; #过滤的脏字

#对聊天室的一些控制
$kick_out_time   = 60;		 # 设定踢人时间(分钟)
$level_allow     = 1;		 # 是否对用户进行升级,0不升,1升级
$time_hour       = 0;		 # Server时区调整,小时
$time_min        = 0;        # server时区调整,分钟
$send_allow      = 1;        # 用户的留言是否发送, 0不发,1发送
$sysmess_allow   = 1;        # 系统信息是否显示,0不显,1显示
$linecount       = 100;      # 少于多少人出现聊天精灵
$unixsys         = 0;        # unix系统=1,否则为0
$allow_message   = 20;       # 信息文件中每个用户保存信息的条数   
$saylength       = 200;      # 用户发言的最大长度
$sayspace        = 1;        # 两次发言的间隔,秒
$sayspace_allow  = 0;        # 是否对发言框两次发言进行时间限制,1限制,0不限,上一个参数就没有意义了
$activeid        = "/";      # 定义动作的首字符,尽量不要改了 
$line_level      = 0;        # 定义是否在名单框中显示级别,0=不显示,1=显示
$maxlevel        = 100;      # 定义用户允许的最大级别
$initno          = 20;       # 初始化信息框时,显示多少条信息

#以下的一些设置,如果你不熟,将就用吧
#本程序所用到的一些文件,你可以根据需要进行设置
$chat             = "chat.cgi";
$login            = "login.cgi";
$manage           = "manage.cgi";
$userext          = ".con";             #用户文件的扩展名
$messagefile      = "message.txt";		#信息文件
$adverfile        = "adver.txt";		#广告文件,不需要空白
$killfile         = "killip.txt";       #被踢人员名单
$guestfile        = "guestbook.txt";    #留言本
$addwordcolorfile = "color.txt";		#颜色文件
$addsaysfile      = "says.txt";			#表情文件
$addsignfile      = "sign.txt";         #符号文件
$addemotefile     = "emote.txt";        #趣语文件
$sysmessfile      = "sysmess.txt";      #系统信息文件
$bchatfile        = "bchat.txt";        #男精灵的文件
$gchatfile        = "gchat.txt";	    #女精灵的文件
$backfile         = "backuser.txt";     #备份用户数据的文件
$superfile        = "superpass.txt";    #超级用户的密码文件
$activefile       = "active.txt";       #动作文件
$levelfile        = "level.txt";        #级别文件
$numfile          = "number.txt";       #信息序列号文件

#程序所用到的一些颜色设定        
$messageback	= "EEEEFF";		# 信息窗口背景颜色
$smessageback	= "FBF8E6";		# 分屏信息窗口背景颜色
$messageword	= "000002";		# 信息窗口前景颜色
$onlineback		= "DDDDFF";		# 联机窗口背景颜色
$onlineword		= "000000";		# 联机窗口前景颜色 
$funcback		= "DDDDFF";		# 联机窗口背景颜色
$funcword		= "000000";		# 联机窗口前景颜色 
$typeback		= "DDDDFF";		# 发言窗口背景颜色
$typeword		= "000000";		# 发言窗口前景颜色
$loginword		= "ff0000";		# 用户进入聊天室的提示颜色
$logoutword		= "007700";		# 用户退出聊天室的提示颜色
$bg_color		= "EEEEFF";	    # 大多数页面的背景颜色
$text_color		= "000000";		# 大多数页面的前景颜色
$link_color		= "ff0000";		# 链接颜色
$vlink_color	= "008800";		# 链接颜色
$buttoncolor	= "FFFF00";     # 按钮的前景颜色
$buttonback		= "0099FF";     # 按钮的背景颜色
$sysmesscolor   = "FF0000";     # 系统信息的颜色
$bchatcolor     = "CC0033";     # 男精录的颜色
$gchatcolor     = "8800ff";     # 女精录的颜色
$sayscolor1     = "000088";     # 发言区说话者的颜色
$sayscolor2     = "blue";		# 发言区说话对象的颜色

$usersexcolor{"Boy"}  = "0000CC";  #男孩的颜色
$usersexcolor{"Girl"} = "FF00FF";  #女孩的颜色

#用户显示信息的一些设定
$usernameasuserid = 1;     # 1=省略userid的栏位以username代替userid,则管理员在聊天室所使用名称与ID相同 0=不省略,则管理员在聊天室所使用名称与ID不相同
$useridmust       = 1;     # 1=用户id 必须与用户名相同,0=用户id 与用户名可以不同
$usersexmust      = 1;     # 1=必需有usersex 0=不必
$resize           = 0;     # 1=User可以改变各个frame大小 0=no
$reloadx          = 5;    # 无发言状态下每次更新发言的时间sec.
$reloadxxx		  = 300;   # 用户多少秒没有与服务器进行联系就踢出
$reloadn          = 10;    # 用户名单断线检测的时间间隔
$addsign_size     = 4;     # 贴图大小
$allow_sex1       = 1;     # 1=允许usersex在online区出现 0=不出现
$allow_sex2       = 2;	   # 1=允许usersex在message区出现 2=login.logout出现 0=不出现 
$allow_time       = 1;     # 1=允许time在message区出现 0=不出现 
$allow_messagerecord = 1;  # 记录所有用户说话的信息

#聊天程序各种权限的相应级别,请自己把握
$level_autocls     = 1;  # 允许user选择自动清除的Level
$level_private     = 1;  # 允许user使用私下谈话的Level
$level_addwordcolor= 1;  # 允许user使用文字颜色的Level
$level_backcolor   = 1;  # 允许user使用背景颜色的 level
$level_addsays     = 1;  # 允许user使用表情的level
$level_addsign     = 1;  # 允许user使用addsign的level
$level_emote	   = 1;  # 允许user使用趣语的level
$level_html        = 10;  # 允许user使用HTML的level
$level_seelevel    = 40;  # 允许user看见user等级的level 
$level_seeip       = 80;  # 允许user看见IP的level 
$level_seeprivate  = 1000; # 允许user看见别人私下对谈的level
$level_killer      = 60;  # 允许user踢人的level
$level_filter      = 1;   # 允许user过滤的level
$level_change      = 1;   # 允许user修改资料的level
$level_find        = 1;   # 允许user查找聊友的level
$level_guest       = 1;   # 允许user约会留言的level
$level_super       = 100; # 允许user使用超级管理level
$level_message     = 1;   # 允许用户自定义进入与退出提示的level
$level_cls         = 50;  # 允许用户清空信息的等级
$level_gen         = 70;  # 允许设置精灵语言的等级
$level_active      = 1;   # 允许执行动作指令的等级
$level_div		   = 1;   # 定义可以分屏的等级
$level_small       = 90;  # 定义拥有小网管级别的等级

$user_kill_day   = 30;   # 用户不来聊天,进行删除的日期限制
sub deenurl {  #取cgi程序的http主址
	local $myurl,$server_port;
	if ($ENV{'SERVER_PORT'} ne '80') { $server_port=":$ENV{'SERVER_PORT'}"; }
	$fullcgiurl = "http://$ENV{'SERVER_NAME'}$server_port$ENV{'SCRIPT_NAME'}";
	$myurl=substr($fullcgiurl,0,(rindex($fullcgiurl,"/") +1));
	return $myurl; }
1;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -