📄 chat-recordit.pl
字号:
sub recordit
{
open(RECORDIT,"$filehead$recordit");
@record=<RECORDIT>;
close(RECORDIT);
if ($record[0]==1)
{
$recordfile="$roomtitle.rec";
open(MESSAGE,">>$recordhead/$recordfile") || 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 "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";
}
#flock(MESSAGE,8);
close(MESSAGE);
}
}
sub showrecord
{
#显示录音功能操作界面
&send_html;
open(RECORDIT,"$filehead$recordit");
@record=<RECORDIT>;
close(RECORDIT);
print "<html><head><title>$roomtitle录音功能</title></head><body bgcolor=$typeback text=$typeword>\n";
print "$roomtitle录音功能<BR><BR>\n";
if ($record[0]==1)
{print "<li><font color=red>设置录音(当前状态：<b>正在录音</b>)</font>";}
else
{print "<li><font color=red>设置录音(当前状态：<b>没有录音</b>)</font>";}
print "<form method=post action=$cgiurl?job=setrecord$userinfo2>";
print "<input type=hidden name=username value='$username'><input type=hidden name=userpassword value='$userpassword'>";
if ($record[0]==1)
{
print "<input type=radio name=recordit value=1>开始录音<input type=radio name=recordit value=0 checked>停止录音";}
else
{print "<input type=radio name=recordit value=1 checked>开始录音<input type=radio name=recordit value=0>停止录音";}
print "<input type=submit value=执行></form>";
print "<li><font color=red>查看录音</font>";
print "<form method=post action=$cgiurl?job=lookrecord$userinfo2>";
print "<input type=hidden name=username value='$username'><input type=hidden name=userpassword value='$userpassword'>";
print "单间：";
#显示单间
@addroom =&readtxtfile($addroomfile);
if ($userlevel>=$level_addroom) {
print "<select name='room'>\n";
foreach (@addroom) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addroom"/) || ($_ =~ /'$addroom'/));
print "$_";
}
print "</select>\n";
}
print "<input type=submit value=查看录音></form>";
print "<li><font color=red>清除录音</font>";
print "<form method=post action=$cgiurl?job=clearrecord$userinfo2>";
print "<input type=hidden name=username value='$username'><input type=hidden name=userpassword value='$userpassword'>";
print "单间：";
#显示单间
@addroom =&readtxtfile($addroomfile);
if ($userlevel>=$level_addroom) {
print "<select name='room'>\n";
foreach (@addroom) {
$_ =~ s/>/ selected>/g if (($_ =~ /"$addroom"/) || ($_ =~ /'$addroom'/));
print "$_";
}
print "</select>\n";
}
print "<input type=submit value=清除录音></form>";
print "</body></html>";
}
sub lookrecord
{
#查看录音
&send_html;
$recordfile="$roomtitle.rec";
@message=&readtxtfile("$recordhead/$recordfile",1);
@message=sort @message;
print "<html><head><title>收听$roomtitle录音</title>\n";
#print "<META HTTP-EQUIV=REFRESH CONTENT='$reloadx;URL=$cgiurl?job=lookrecord&room=$roomtitle$userinfo1'>\n";
print "</head><body bgcolor=$messageback text=$messageword topmargin=0 leftmargin=0>\n";
print "<font size=-3>[录音]******$roomtitle******</font><BR>\n";
$messageshow=0;
for($i=$#message;$i>=0;$i--) {
($chkdaten,$chktimen,$mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowho,$chkaddwordcolor,$chkaddsays,$chkaddsign,$chksays,$markend,$last)=split(/↑/,$message[$i]);
if ($markend eq "end")
{
require "$chathead/chat-showmsg.pl";
&message_show;
}
}
print "</body></html>\n";
}
sub setrecord
{
#设置录音功能
$temprecord=&get_var('recordit');
open(RECORDIT,">$filehead$recordit");
print RECORDIT $temprecord;
close(RECORDIT);
&showrecord;
}
sub clearrecord
{
#清除录音
open(RECORDIT,">$recordhead/$roomtitle.rec");
close(RECORDIT);
&showrecord;
}
1⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -