chat-writemsg.pl

来自「java开发的聊天室」· PL 代码 · 共 71 行

sub write_message {
#执行录音
require "$chathead/chat-recordit.pl";
&recordit("$_[0]");

&lockfile("$filehead$messagefile");
open(MESSAGE,">>$filehead$messagefile") || die $!;
#flock(MESSAGE,2);
if ($_[0] eq "says") {
		print MESSAGE "$daten↑$timen↑says↑$userip↑$username↑$userlevel↑$usersex↑$towhoway↑$towho↑$addwordcolor↑$addsays↑$addsign↑$says↑end↑\n"; 
}
elsif ($_[0] eq "mysays") {
		print MESSAGE "$daten↑$timen↑mysays↑↑系统↑↑↑private↑$username↑↑↑↑对象[$towho]已不在[$roomtitle]内！请在名单中选择聊天对象。↑end↑\n"; 
}
elsif ($_[0] eq "mysays1") {
		print MESSAGE "$daten↑$timen↑mysays↑↑系统↑↑↑private↑$username↑↑↑↑您的信用点太少已不能进行私聊或贴图！↑end↑\n"; 
}
elsif ($_[0] eq "mysays2") {
		print MESSAGE "$daten↑$timen↑mysays↑↑系统↑↑↑private↑$username↑↑↑↑您的信用点太少已不能踢人！↑end↑\n"; 
}
elsif ($_[0] eq "mysays3") {
		print MESSAGE "$daten↑$timen↑mysays↑↑系统↑↑↑private↑$username↑↑↑↑欢迎光临，希望您自觉维护聊天室舒适的环境！如有问题，请与<a href=mailto:pjf\@hljttsc.com>007</a>联系！↑end↑\n"; 
}
elsif ($_[0] eq "login") {
	print MESSAGE "$daten↑$timen↑login↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n";
}
elsif ($_[0] eq "logout") {
   print MESSAGE "$daten↑$timen↑logout↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n"; 
}
elsif ($_[0] eq "out") {
   print MESSAGE "$daten↑$timen↑out↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n"; 
}
elsif ($_[0] eq "leave") {
   print MESSAGE "$daten↑$timen↑leave↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑匆匆忙忙离开这里到[$roomtitle]去了！↑end↑\n"; 
}
elsif ($_[0] eq "enter") {
   print MESSAGE "$daten↑$timen↑enter↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑从[$user_room]来到这里！大家欢迎啊！↑end↑\n"; 
}
#flock(MESSAGE,8);
close(MESSAGE);
&unlockfile("$filehead$messagefile");
}

sub write_allroom {
@addroom     =&readtxtfile($addroomfile);
   foreach (@addroom) {
   ($temp1,$roomname,$temp2)=split(/"/,$_);
$messagefile1="$roomname.msg";

&lockfile("$filehead$messagefile1");
open(MESSAGE,">>$filehead$messagefile1") || die $!;
#flock(MESSAGE,2);

if ($_[0] eq "login") {
	print MESSAGE "$daten↑$timen↑login↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n";
}
elsif ($_[0] eq "logout") {
   print MESSAGE "$daten↑$timen↑logout↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n"; 
}
elsif ($_[0] eq "out") {
   print MESSAGE "$daten↑$timen↑out↑$userip↑$username↑$userlevel↑$usersex↑↑↑↑↑↑↑end↑\n"; 
}
elsif ($_[0] eq "system") {
print MESSAGE "$daten↑$timen↑system↑$userip↑$username↑$userlevel↑$usersex↑$towhoway↑$towho↑$addwordcolor↑$addsays↑$addsign↑$says↑end↑\n"; 
}
#flock(MESSAGE,8);
close(MESSAGE);
&unlockfile("$filehead$messagefile1");
   } 
}
1;