chat_vars_test.pm

基于socket的聊天室实现原理 付论文

package chat_vars_test;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(@EXPORT_OK);
@EXPORT_OK = qw(@admin @mod @emote @colors %config);

use strict;
use vars qw(@admin @mod @emote @colors %config);

$config{'logfile'}="/path/to/logfile/chat.log";
$config{'port'}=9148;#服务器端口

$config{'listen'}=10;#listen队列长度
$config{'timeout'}=15;#从login到chat超时时长
$config{'sid_len'}=20;#sid长度
$config{'max_name_len'}=16;#允许的最大名字长度
$config{'max_passwd_len'}=20;#允许的密码长度，加密后的(?)
$config{'refresh_interval'}=30;#在线名单刷新间隔(秒)，不能太长，anti_idle在此处调用
$config{'entry_url'}="http://tucows.qz.fj.cn/chat";

@admin=("admin");#管理员
$config{'admin_pass'}="win3.11";

@mod=("xixi","aaa");#室主
@colors=('Black','Maroon','Red','Purple','Fuchsia','Green','Olive','Navy','Blue','Teal');
#黑色,茶色,红色,紫色,紫红,绿色,橄榄,深蓝,蓝色,青色 共10种颜色
#暂时定黑色为系统消息颜色


# don't remove this line      
#begin_emote_list
@emote=('0~~~:(~~~~~~self愁眉苦脸的，一副倒霉样。~~~self对target说到：＂怎么每次看见你，你都是愁眉苦脸的，一副倒霉样？＂',
'0~~~:((~~~~~~self露出了很是难过的表情。~~~self看着target，难过得哭了出来。',
'0~~~:)~~~~~~self的脸上露出愉快的表情。~~~self对target说到：这世上不顺心的事太多了，能笑还是笑吧！',
'0~~~:))~~~~~~self＂哈哈哈＂地大笑了几声。~~~self瞟了target一眼，仰天打了个哈哈。',
'0~~~:)..~~~~~~哇！这么诱人呀！~~~self对target垂涎三尺，不知道下一步会有何举动了。',
'0~~~:D~~~~~~self笑得嘴巴都合不起来。~~~self对着target不停地笑，笑得嘴巴都合不起来。',
'1~~~:P~~~惊讶~~~self惊讶得两眼瞪得贼大~~~self吃惊地看着target，嘴巴张大得足以塞进一个鸡腿汉堡。',
'0~~~?~~~~~~self的脸上露出疑惑的表情。~~~self很疑惑地看著target。',
'0~~~@@~~~~~~self的一双眼睛瞪得比铜铃还大！~~~self对target叹道：＂唉，你可真是一块美人胚子，就可惜眼睛小了点！＂',
'1~~~ack~~~惊叫~~~self惊叫一声，吓了别人一大跳！~~~self对target惊叫一声：＂啊！你真是的！＂',
'1~~~addoil~~~加油~~~self默默地给自己加油。~~~self对target高喊：加油！加油！！',
'1~~~admire~~~崇拜~~~self抱拳团团一拜，讨好地说道：敝人对各位的景仰之情，有如涛涛江水连绵不绝。~~~self讨好地对target说道：敝人对您的景仰之情，有如涛涛江水连绵不绝。',
'1~~~agree~~~同意~~~self说：你们大家都对，行了吧？~~~self完全同意target的看法。',
'1~~~ah~~~惊讶~~~self惊讶地「啊！」了一声。~~~self对着target惊讶地「啊！」了一声。',
'1~~~ai~~~爱~~~self高叫道：我爱泉聊聊聊聊聊聊聊聊！~~~self对target哼哼道：喔－喔喔－喔－－－耶．．．．，爱你在心口难开．．．',
'1~~~angry~~~生气~~~self很生气地撅了撅嘴。~~~self很生气地看着target。',
'1~~~applaud~~~鼓掌~~~self鼓掌喝采！~~~self对target鼓掌赞许！',
'0~~~benger~~~~~~self用手指弹了一下自己的脑门儿。~~~self在target的头上弹了个清脆的脑崩儿，target的脑门儿上立刻长出了个小臌包。',
'1~~~birth~~~生日~~~self又再想：今天是谁的生日呢？~~~self和在场的人一起向target致以衷心的祝福，祝target生日快乐，大家一起唱：祝你生日快乐，祝你生日快乐．．．',
'1~~~bite~~~咬~~~self磨了磨牙。~~~self想狠狠地咬target一口。',
'1~~~blink~~~眨眼~~~self天真地眨了眨眼睛！~~~self对target眨了眨眼',
'1~~~blush~~~脸红~~~self害羞地脸红了。~~~self看着target，脸「唰」的一下红了起来。',
'1~~~bored~~~无聊~~~self打了个哈欠，觉得无聊极了。~~~self对着target打了个大哈欠．．，target这人真无聊．．．  ',
'0~~~born~~~~~~self想要小孩了？~~~self抱着小target左看又看，良久言道"怎么看怎么象我，难道？？．．．"',
'1~~~boss~~~头来了~~~self匆忙道：头来了，开溜-（-（-（ !!~~~self对着target惊呼：头来了 !开溜）-（-）-（-）',
'0~~~bow~~~~~~self弯下身鞠躬。~~~self拱手作揖，很谦逊地跟target说：在下self，请多指教！',
'0~~~brag~~~~~~self双眼一翻："大丈夫可杀不可辱……"~~~self把胸脯拍得噼啪响，对target咆哮："武林中拳头大的说话，有种的上来比划比划！"',
'0~~~bud~~~~~~self趴在地下，对空膜拜个不停。~~~在这一瞬间，self觉得target简直跟神一样。',
'1~~~bye~~~再见~~~self向在场的人道别：走咯！我会想你们的．．．~~~其时明月在天，清风吹叶，树巅乌鸦呀啊而鸣，self再也忍耐不住，望着target的背影，泪珠夺眶而出。',
'0~~~callname~~~~~~self高叫道：是驴是马，拉出来遛遛就知道了！~~~self指着target破口大骂：贼撕鸟！ 敢跟大爷过不去？ 你不要命了？！',
'1~~~careful~~~小心~~~self叹了口气，叹道：＂这世道．．．~~~self忽然叹道："人在江湖还是收敛一点好，否则下场难免要和target一样，死了都还不知道是谁下的手！"',
'1~~~cat~~~猫~~~self叫了声：喵~~~self像只小猫般地依偎在target的怀里撒娇。',
'1~~~chitchat~~~天气真好~~~self笑呵呵地对大伙一抱拳，说道：今天这个，... 这个天气真好！~~~self朝着target一抱拳，说道：哈哈哈，这个，今天，... 这个天气真好！',
'1~~~club~~~木棒~~~self晃动着手中的木棒，到处寻找目标。~~~self手舞木棒，对准target的后脑一记闷棍，target哼也没哼一声，软软的摔倒在地。',
'1~~~coffin~~~棺材~~~self长叹了一口气,那神情仿佛是在说：我都是要进棺材的人了，还在乎些什么？？！~~~',
'1~~~comfort~~~安慰~~~self露出关爱的眼神，说：没关系！~~~self安慰target道：别怕，面包会有的，什么都会有的！  ',
'1~~~consider~~~考虑~~~self来回地踱着方步，陷入沉思中。~~~self围着target不怀好意的转来转去，嘴巴里不知在嘀咕些什麽。',
'1~~~cook~~~做菜~~~self撸起袖子准备学做菜。~~~self把target做成的肉块放进锅里用薄油炒了炒，再盛到沙锅里用大汤文火炖烂。',
'1~~~corpse~~~尸体~~~self两眼翻白，腿儿蹬了几下，脑袋一歪，死了。~~~self很利索地把target的肚子剖了开来，塞进稻草，只一会就作成了一具好看的木乃伊。',
'1~~~courage~~~鼓励~~~self点了点头，挥着手说道：同志们辛苦了！~~~self感动得热泪盈眶，向着target振臂高呼：首长辛苦了！',
'1~~~crazy~~~狂笑~~~self仰天狂笑。~~~self用手中的剑指着target，仰天狂笑起来。',
'1~~~cry~~~哭~~~self忍不住放声大哭。哇呜呜呜呜呜呜呜呜．．．~~~self趴在target的肩膀上大哭一场。',
'1~~~cut~~~切~~~self正用一把快刀细心地削着手指甲。~~~self扬起一把牛角解腕尖刀，三下两下就把target剁成了许多小块，放在太阳底下晒干。',
'0~~~dan~~~~~~坏了，你看到你老板正在向你逼近。快退出吧！~~~self对target叫道：不好意思老板，我不干了！',
'1~~~dance~~~跳舞~~~self快乐地手足蹈舞！~~~self拉起target的小手跳起舞来！两人好陶醉的样子！',
'1~~~die~~~死~~~self天真地问道：死，死会是什么样的一种感觉呢？~~~self轻蔑地对target说道：死？死算得了什么？人生自古谁无死！  ',
'1~~~disapp~~~失望~~~self失望极了。~~~self对target失望极了："target没救了。"',
'1~~~doubt~~~想~~~self想啊想，差点儿把脑袋给想破了。~~~self歪着脑袋，似乎很不明白为什麽target死的时候白白的肚皮朝着天。',
'1~~~dream~~~做梦~~~self又开始做梦了。~~~self觉得target又开始做白日梦了。',
'1~~~drinkup~~~喝酒~~~self躲在一边一声不吭，独个儿大口大口地喝着闷酒。~~~self亲热把target拉到一旁，笑咪咪地说道：走，咱哥俩喝一盅去！',
'1~~~drug~~~药~~~self提着小竹篮，背着小扁担，沿街叫卖：祖传仙药，有病治病，无病强身！~~~self悄悄地把一包砒霜放在target的碗里，躲在一旁，喜滋滋地看着target喝了下去。',
'1~~~duh~~~简单~~~self点头道：喔，原来这么简单呀？！~~~self用力地拍了一下target的脑袋，大声地说：对呀！你怎麽没想到？！',
'1~~~dunno~~~不知道~~~self摇摇头说道: 我不知道...~~~self问target:你说什麽我不懂耶... ',
'1~~~escape~~~溜~~~self脚底抹油，一声不吭地溜了。~~~self扯了扯target的衣袖，悄声说：还是赶紧溜吧．．．',
'1~~~exer~~~运动~~~self娇娇的唱道："脖子扭扭，屁股扭扭。大家一起做运动嘛！"~~~',
'1~~~faceless~~~不要脸~~~self大叫道：嘿嘿，面子卖多少钱一斤？~~~self突然发现自己越来越不要脸了。',
'1~~~faint~~~昏~~~self口吐白沫，昏了过去。~~~self被target气得昏了过去。',
'1~~~fear~~~害怕~~~self脸色苍白！好像惧怕什麽！~~~self对target说：怕了吧！哈哈哈！',
'1~~~flatter~~~拍马屁~~~self东张西望，那神情象是想拍谁的马屁了。~~~self对target脸上带着讨好的笑，说："您真伟大！"',
'1~~~flook~~~望~~~self痴痴的望着前方，不知是不是傻子。~~~self痴痴的望着target，那深情的眼神和口中流下的一丝．．．说明了一切。',
'1~~~fool~~~白痴~~~self像白痴一样呆呆地傻笑着．．．~~~self请大家注意target这个大白痴……真是天上少有……人间仅存的活宝……不看可惜……',
'1~~~forgive~~~原谅~~~self连哭带喊地叫道：你们大家再原谅我一次吧！~~~self终于原谅了target，target激动地要请大家的客。算了吧，就那点钱．．．',
'1~~~friend~~~知音~~~self这里会不会有我的知音呢？~~~self感叹道：“target真是我的知音啊！',
'0~~~gezz~~~~~~self道：天那！怎么会这样！ ~~~self对target说道：＂给你个台阶，你还真爬上去了！也不怕摔下来跌死你！＂',
'0~~~giggle~~~~~~self发出一串母鸡下蛋般的笑声。~~~self对著target咯咯地笑了起来。',
'0~~~goaway~~~~~~self默默地走了，风中飘散的长发和孤寂的背影在斜阳下显得分外潇洒。~~~self看着target默默远走的背影，看着target在风中飘散的长发和那孤寂的背影，泪水止不住滑落到胸口，心中呼喊着"target，其实我真的爱你"。',
'1~~~goodbye~~~goodbye~~~self凄婉地说道："世上没有不散的宴席，我先走一步了，大家保重。"~~~',
'1~~~greet~~~打招呼~~~self愉快地向在场的所有人打招呼。~~~self愉快地跟target打招呼：吃了吗？',
'0~~~grin~~~~~~self邪恶地笑了起来。~~~self和target邪恶的笑着，大概是同时想到什么歪处了！',
'0~~~haha~~~~~~self大笑起来，一副唯我独尊的样子。~~~self对着target大笑起来：哈哈！太好笑了，真快笑死人了！',
'1~~~hammer~~~铁锤~~~self突然从身后抽出个大铁锤。~~~self举起好大好大的铁锤往target头上用力一敲！*** 『 锵 ！』 ***',
'1~~~handshake~~~握手~~~self和在场的每一个人踊跃握手致敬！  ~~~self很高兴地和target握手。',
'1~~~headshake~~~摇头~~~self摇摇头, 一副很无辜的样子.~~~self对著target猛摇头：孺子不可教也！',
'0~~~hehe~~~~~~self＂呵呵＂地傻笑了几声。~~~self对target＂呵呵＂地傻笑了几声。',
'0~~~heihei~~~~~~self「嘿嘿嘿....」地讥笑了几声。大概又看不起谁了。~~~self一面用锐利的目光盯著target，一面「嘿嘿嘿....」地讥笑著。',