📄 spccmd.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
字号:
######################### 查看对话指令  #################################
sub look_spccmd {

print "<html>\n<head>\n";
print qq~
<LINK REL=stylesheet HREF="$homeurl/styles.css" TYPE="text/css">
</head><SCRIPT language=javascript>
function cxcg(w){
var tmp=window.opener.document.forms[0].towho.value;
if (tmp==\"大家\")\n tmp=\"\";\n tmp=w+\" \"+tmp;
window.opener.document.forms[0].says1.value=tmp;
window.opener.document.forms[0].says1.focus();
self.close();}
</SCRIPT><body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color>
~;
  if ($user_level <= $level_spccmd) {
print "<table><tr><td align=\"left\"><table><tr><td bgcolor=\"#FFFFFF\">\n";
print "<a target=_blank href=$homeurl/command.htm>说明</a></td><td bgcolor=\"#FFFFFF\">\n";
print "<a target=_blank href=$fullurl?job=command_chinese$userinfo>中文对照</a></td></tr></table></td></tr>\n";
#print "----------<br></center><pre>\n";
open (CMDFILE,"$homedir/command.dat") || &error("无法打开文件$homedir/command.dat!");
@lines=<CMDFILE>;
close(CMDFILE);
@lines = sort @lines;
foreach $line (@lines) {
$line =~ s/\n//g;
$line =~ s/\r//g;
$line =~ s/var_talk/\<font color=red\>自已\<\/font\>/g;
$line =~ s/var_betalk/\<font color=red\>对方\<\/font\>/g;
($cmd1,$msg1,$msg2)=split(/__/,$line);
print "<tr><td><pre><a href=# onclick=cxcg(\"$cmd1\")>$msg1<br>$msg2</a></pre></td></tr>\n";
}
  } else {
print "您没有使用对话指令的权利!\n";
  }
  print "</table></body></html>\n";
}

######################## 对话指令中文对照 ###############################

sub command_chinese {
  
  $reload*=4;
  print "<html><head><meta http-equiv=refresh  $reload;URL=$fullurl?job=look$userinfo><LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\"></head>\n";
  print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color>\n";
  print "<table>\n";
  print "<tr><td>\指令<td>\不加对方姓名<td>\加对方姓名</tr>\n";
  open (CMDFILE,"$homedir/command.dat") || &error("无法打开文件$homedir/command.dat!");
  @lines=<CMDFILE>;
  close(CMDFILE);
  @lines = sort @lines;
  foreach $line (@lines) {
$line =~ s/\n//g;
$line =~ s/\r//g;
$line =~ s/var_talk/\<font color=red\>自已\<\/font\>/g;
$line =~ s/var_betalk/\<font color=red\>对方\<\/font\>/g;
($cmd1,$msg1,$msg2)=split(/__/,$line);
print "<tr><td>$cmd1 [name]<td>$msg1<td>$msg2</tr>\n";
  }
  print "</table></body></html>\n";
}
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -