|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
Perl实例:
|
日期：2008年3月31日 作者： 查看:[大字体
中字体 小字体]
|
1、 聊天室
源代码：
(一)
#!/usr/bin/perl
# 根据说明修改以下设置
$saysback = "#ffffff"; #最新发言的背景
$saysword = "#000000"; #最新发言字色
$loginword = "#ff0000"; #进入公告的字色
$logoutword = "#ff0000"; #离开公告的字色
$onlineback = "#FFFFcc"; #Online区的背景
$onlineword = "#000080"; #Online区的字色
$typeback = "#000080"; #打字区的背景
$typeword = "#ffffff"; #打字区的字色
$funcback = "#FFFFcc"; #Func区的背景
$funcword = "#ffffff"; #Func区的字色
$reload = 12; # 无发言状态下每次更新发言的时间sec.
$reload_online = 30 #在线名单更新秒数
$kicktime = 3000; # 执行管制後解除的时间sec
$advert = 40; # 广告更新时间
$image_size = 5; # 图案大小
$allow_mess = 12; # mess笔数.
$allow_sex1 = 1; # 1=允许Sex在message区出现 2=Sex在messgae不出现但login,logout出现 0=Sex都不出现
$allow_sex2 = 1; # 1=允许Sex在online区出现 0=不出现
$allow_time = 1; # 1=允许time在message区出现 0=不出现
$time_miss = 0; # Server时区调整
$level_towho = 1; # 允许user使用私下谈话的Level
$level_seeprivate= 2; # 允许user看见别人私下对谈的level
$level_wordcolor = 1; # 允许user使用文字颜色的Level
$level_addsays = 1; # 允许user使用表情的level
$level_addimage = 1; # 允许user使用图案的level
$level_midi = 1; # 允许user点播Midi的level
$level_html = 2; # 允许user使用HTML的level
$level_seeip = 2; # 允许user看见IP的level
$level_kick = 3; # 允许user执行人员管制的level
$level_seelevel = 2; # 允许user看见user等级的level
$level_fun = 2; #使用趣语的等级
$level_sysadmin = 3; #使用管理功能的等级
$super[0] = "yishan‖test‖3"; # Super User的id,密码,权限 最低user为1
$title = "彬彬聊天室"; #聊天室名称
#房间. 注意:请建立onlineN.cgi和saysN.cgi,N=1,2,3... 有多少房间就建多少个 chmod 666
@rooms = ("网络沙龙","失落的天空","恋爱俱乐部","不谈电脑");
#发言内容下面的链接
$link="<p><center><a href=http://www.computer.net.cn target='windows'>电脑资讯网</a></center>\n";
#---------------------------------------
#以下为路径&URL自动设置的不分,最好不要改
#---------------------------------------
$dir=&mypath; #获取当前文件所在的绝对路径
$myurl=&myurl; #获取当前文件所在的URL位置
$cgiurl = "$myurl/chat.cgi"; # chat.pl 的执行连结URL
$logouturl = "http://www.computer.net.cn"; # 离开聊天室後的URL
$kickouturl = "http://www.computer.net.cn"; # 从聊天室被踢走後的URL
$onlinefile = "$dir/online.cgi"; # 记录线上人员的档案 666
$messfile = "$dir/says.cgi"; # 记录发言的档案 666
$wordcolorfile = "$dir/wordcolor.txt"; # 文字颜色的档案 644
$addsaysfile = "$dir/addsays.txt"; # 附加表情的档案 644
上一篇:在winnt/win9x下用blat发email的示例
下一篇:Cgi入门教程之：5 Perl简介
|
| 相关文章： |
|
|
|
| 相关软件： |
|
|
|
|
