📄 misc.cgi
字号:
#!/usr/bin/perl
#############################################################
# LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
# 版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
# 制作人 : 山鹰糊 (Shining Hu)
# 花无缺 (Ifairy Han)
#
# 主页地址: http://www.CGIer.com/ CGI 编程者之家
# http://www.LeoBoard.com/ 雷傲论坛支持主页
# http://www.leoBBS.com/ 本论坛直通车
#
#############################################################
BEGIN {
$LBPATH = '.';
my $pgm = $0;
$pgm =~s/\\/\//g;
$pgm =~s/^.*\/([^\/]+)$/$1/g;
unless (-e $LBPATH.'/'.$pgm) {
foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
}
}
unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "lb.lib.pl";
$|++; # Unbuffer the output
$thisprog = "misc.cgi";
$query = new LBCGI;
&ipbanned; #封杀一些 ip
$UIN = $query -> param('UIN');
$action = $query -> param('action');
$aimname = $query -> param('aimname');
$aimname =~ s/ //g;
if (! $inmembername) { $inmembername = $query->cookie("amembernamecookie"); }
if (! $inpassword) { $inpassword = $query->cookie("apasswordcookie"); }
$inmembername =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$inpassword =~ s/[\a\f\n\e\0\r\t\|\@\;\#\{\}\$]//isg;
if ($inmembername eq "" || $inmembername eq "客人" ) { $inmembername = "客人"; }
if ($action eq "showsmilies") {
$output = qq~
<html><head><title>表情转换</title>
<style>
.t { LINE-HEIGHT: 1.4 }
BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
INPUT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px; }
TEXTAREA{ FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
DIV { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
FORM { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
OPTION { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
P { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
BR { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
</style>
</head>
<body topmargin=0 leftmargin=0>
<table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
<tr>
<td>
<table width=100% cellpadding=5 cellspacing=1 border=0>
<tr>
<td bgcolor=$titlecolor align=center colspan=2>
<font color=$titlefontcolor><b>$boardname - 表情转换</b></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbacktwo align=center>
<font color="$fontcolormisc">代码</font>
</td>
<td bgcolor=$miscbacktwo align=center>
<font color=$fontcolormisc>转换后</font>
</td>
</tr>
~;
open (FILE, "$lbdir/data/lbemot.cgi");
my @emoticondata = <FILE>;
close (FILE);
chomp @emoticondata;
foreach $picture (@emoticondata) {
$smileyname = $picture;
$smileyname =~ s/\.gif//g;
$output .= qq~
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc>:$smileyname:</font>
</td>
<td bgcolor=$miscbackone align=center>
<img src=$imagesurl/emot/$picture>
</td>
</tr>
~;
}
$output .= qq~
</table>
</td></tr>
</table>
</body>
</html>
~;
}
elsif ($action eq "icq") {
$output = qq~
<html><head><title>$boardname 的 ICQ 寻呼</title>
<style>
A:visited { TEXT-DECORATION: none }
A:active { TEXT-DECORATION: none }
A:hover { TEXT-DECORATION: underline overline }
A:link { text-decoration: none;}
A:visited { text-decoration: none;}
A:active { TEXT-DECORATION: none;}
A:hover { TEXT-DECORATION: underline overline}
.t { LINE-HEIGHT: 1.4 }
BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
INPUT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px; }
TEXTAREA{ FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
DIV { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
FORM { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
OPTION { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
P { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
BR { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
</style>
</head>
<body topmargin=10 leftmargin=0>
<table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
<tr>
<td>
<form action="http://wwp.mirabilis.com/scripts/WWPMsg.dll" method="post">
<input type="hidden" name="subject" value="来自 - $boardname"><input type="hidden" name="to" value="$UIN">
<table width=100% cellpadding=5 cellspacing=1 border=0>
<tr>
<td bgcolor=$titlecolor align=center colspan=2>
<font color=$titlefontcolor><b>$boardname - ICQ 寻呼</b><br>发送一个消息给 $UIN</font>
</td>
</tr>
<tr>
<td bgcolor=$miscbacktwo valign=top>
<font color=$fontcolormisc>请输入您的姓名</font>
</td>
<td bgcolor=$miscbacktwo>
<input type="text" name="from" size="20" maxlength="40">
</td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top>
<font color=$fontcolormisc>请输入您的 Email</font>
</td>
<td bgcolor=$miscbackone>
<input type="text" name="fromemail" size="20" maxlength="40">
</td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top>
<font color=$fontcolormisc>要发送的消息</font>
</td>
<td bgcolor=$miscbackone>
<textarea name="body" rows="3" cols="30" wrap="Virtual"></textarea>
</td>
</tr>
<tr>
<td bgcolor=$miscbacktwo align=center colspan=2>
<input type="submit" name="Send" value="发送消息"></form>
</td>
</tr>
</table>
</td></tr>
</table>
</body>
</html>
~;
}
elsif ($action eq "lbcode") {
$output = qq~
<html><head><title>LB5000 标签</title>
<style>
A:visited { TEXT-DECORATION: none }
A:active { TEXT-DECORATION: none }
A:hover { TEXT-DECORATION: underline overline }
A:link { text-decoration: none;}
A:visited { text-decoration: none;}
A:active { TEXT-DECORATION: none;}
A:hover { TEXT-DECORATION: underline overline}
.t { LINE-HEIGHT: 1.4 }
BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
INPUT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px; }
TEXTAREA{ FONT-FAMILY: 宋体; FONT-SIZE: 9pt; }
DIV { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
FORM { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
OPTION { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
P { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
BR { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }
</style>
<script language="javaScript" type="text/javascript" SRC="$imagesurl/images/board.js"></SCRIPT>
</head>
<body topmargin=10 leftmargin=0>
<table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
<tr>
<td>
<table width=100% cellpadding=5 cellspacing=1 border=0>
<tr>
<td bgcolor=$titlecolor align=center colspan=2>
<font color=$titlefontcolor><b>LB5000 标签</b>
<br>LB5000 标签很象 HTML 标签，但比 HTML 标签安全。你可以参照下面手册中的格式来使用它！
</font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone><ul>
<font color=$fontcolormisc>
<font color=$fonthighlight>[quote]</font>这个标签是用来做为引用所设置的，如果你有什么内容是引用自别的地方，请加上这个标签！<font color=$fonthighlight>[/quote]</font>
</td>
<td bgcolor=$miscbackone>
<font color=$fontcolormisc><hr noshade color=$fonthighlight><blockquote>这个标签是用来做为引用所设置的，如果你有什么内容是引用自别的地方，请加上这个标签！</blockquote><hr noshade color=$fonthighlight></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone><UL>
<font color=$fontcolormisc>
<font color=$fonthighlight>[code]</font>
<BR>unless ( eq "$authenticateme") {
<BR>print "错误的管理密码";
<BR>&unlock;
<BR>exit;
<BR>}<BR>
<font color=$fonthighlight>[/code]</font>
</td>
<td bgcolor=$miscbackone>
<font color=$fontcolormisc>
<BLOCKQUOTE>代码：<hr noshade color=$fonthighlight>
unless ( eq "$authenticateme") { <BR>
print "错误的管理密码"; <BR>
&unlock; <BR>
exit; <BR>
}<hr noshade color=$fonthighlight></FONT></BLOCKQUOTE>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><font color=$fonthighlight>[html]</font><font size=5>HTML 和 JS 代码支持</font><font color=$fonthighlight>[/html]</font>
</font>
</td>
<td bgcolor=$miscbackone>
<font color=$fontcolormisc><SPAN><IMG src=$imagesurl/images/code.gif align=absBottom> HTML 代码片段如下:<BR><TEXTAREA style="WIDTH: 94%; BACKGROUND-COLOR: #f7f7f7" name=textfield rows=4><font size=5>HTML 和 JS 代码支持</font><\/TEXTAREA><BR><INPUT onclick=runEx() type=button value=运行此代码 name=Button> [Ctrl+A 全部选择 提示:你可先修改部分代码，再按运行]</SPAN><BR></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><font color=$fonthighlight>[url]</font>http://www.CGIer.com<font color=$fonthighlight>[/url]</font>
</font>
</td>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><a href="http://www.CGIer.com">http://www.CGIer.com</a></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><font color=$fonthighlight>[url=http://www.CGIer.com]</font>CGI 编程者之家<font color=$fonthighlight>[/url]</font>
</font>
</td>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><a href="http://www.CGIer.com">CGI 编程者之家</a></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><font color=$fonthighlight>[email=webmaster\@cgier.com]</font>写信给我<font color=$fonthighlight>[/email]</font>
</font>
</td>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><a href="mailto:webmaster\@cgier.com">写信给我</a></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><font color=$fonthighlight>[email]</font>webmaster\@cgier.com<font color=$fonthighlight>[/email]</font>
</font>
</td>
<td bgcolor=$miscbackone align=center>
<font color=$fontcolormisc><a href="mailto:webmaster\@cgier.com">webmaster\@cgier.com</a></font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone align=center>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -