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自动设置的不分,最好不要改

#---------------------------------------

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] 下一页

上一篇:在winnt/win9x下用blat发email的示例

下一篇:Cgi入门教程之：5 Perl简介