📄 setstyles.cgi
字号:
#!/usr/bin/perl
#############################################################
# Ikonboard v2.1
# Copyright 2000 Ikondiscussion.com - All Rights Reserved
# Ikondiscussion is a trademark of Ikondiscussion.com
#
# Software Distributed by: Ikondiscussion.com
# Visit us online at http://www.ikondiscussion.com
# Email us on boards@ikondiscussion.com
#
# All files written by Matthew Mecham
#############################################################
#use CGI::Carp "fatalsToBrowser"; # Output errors to browser
use CGI qw(:standard); # Saves loads of work
$CGI::POST_MAX=1024 * 150; # limit post data
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
eval {
($0 =~ m,(.*)/[^/]+,) and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib"; # Require ikonboard ()
require "ikonadmin.lib"; # Require Admin func()
require "data/progs.cgi"; # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi"; # Require styles info
};
if ($@) {
print header(-charset=>"gb2312"); print start_html(-title=>"ib2000 出错！");
print "不能够找到文件：$@\n如果您使用的是 Windows 类操作系统，请在每一个程序中更改 require 的设置，填入绝对路径！";
print end_html; exit;
}
$|++; # Unbuffer the output
#################--- Begin the program ---###################
$thisprog = "setstyles.cgi";
$query = new CGI;
&checkVALIDITY;
$boardurltemp =$boardurl;
$boardurltemp =~ s/http\:\/\/(\S+?)\/(.*)/\/$2/;
$cookiepath = $boardurltemp;
$cookiepath =~ s/$thisprog//sg;
@params = $query->param;
foreach (@params) {
$theparam = $query->param($_);
$theparam =~ s/\@/\\\@/g;
$theparam = &unHTML("$theparam");
${$_} = $theparam;
if ($_ ne 'action') {
$printme .= "\$" . "$_ = \"$theparam\"\;\n";
}
}
$inmembername = cookie("adminname");
$inpassword = cookie("adminpass");
print header(-charset=>"gb2312");
&admintitle;
&getmember("$inmembername");
if (($membercode eq "ad") && ($inpassword eq $password) && ($inmembername eq $membername)) {
if ($action eq "process") {
$printme .= "1\;\n";
$filetomake = "$ikondir" . "data/styles.cgi";
open(FILE,">$filetomake");
flock(FILE,2) if ($OS_USED eq "Unix");
print FILE "$printme";
close(FILE);
if (-e $filetomake && -w $filetomake) {
print qq~
<tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
<b>欢迎来到论坛管理中心 / 风格设置</b>
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle colspan=2>
<font face=宋体 color=#333333><center><b>以下的信息全部成功保存</b><br><br>
</center>~;
$printme =~ s/\n/\<br>/g;
$printme =~ s/\"//g;
$printme =~ s/\$//g;
$printme =~ s/\\\@/\@/g;
$printme =~ s/1\;//g;
print $printme;
print qq~
</td></tr></table></td></tr></table>
~;
}
else {
print qq~
<tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
<b>欢迎来到论坛管理中心 / 风格设置</b>
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#333333><b>所有信息没有保存</b><br>文件或者目录不可写，请设置属性为 777 ！
</td></tr></table></td></tr></table>
~;
}
}
else {
$inmembername =~ s/\_/ /g;
print qq~
<tr><td bgcolor=#333333" colspan=2><font face=宋体 color=#FFFFFF>
<b>欢迎来到论坛管理中心 / 风格设置</b>
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#333333><b>设定风格</b>
</td></tr>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="process">
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b>论坛页首菜单</b>
</font></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333>页首背景颜色 (菜单带上方)</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="titleback" value="$titleback"> 默认：#EEEEEE</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333>页首字体颜色 (菜单带上方)</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="titlefont" value="$titlefont"> 默认：#555555</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333>页首边界颜色 (菜单带上方)</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="titleborder" value="$titleborder"> 默认：#333333</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>菜单带字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="menufontcolor" value="$menufontcolor"> 默认：#333333</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>菜单带背景颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="menubackground" value="$menubackground"> 默认：#DDDDDD</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b>字体外观和颜色</b>
</font></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>主字体外观</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
~;
$tempoutput = "<select name=\"font\">\n<option value=\"宋体\">宋体\n<option value=\"仿宋\">仿宋\n<option value=\"楷体\">楷体\n<option value=\"黑体\">黑体\n<option value=\"隶书\">隶书\n<option value=\"幼圆\">幼圆\n</select><p>\n";
$tempoutput =~ s/value=\"$font\"/value=\"$font\" selected/;
print qq~
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>"最后发贴者"字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="lastpostfontcolor" value="$lastpostfontcolor"> 默认：#000000</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>"加重区"字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="fonthighlight" value="$fonthighlight"> 默认：#990000</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>查看时发表者名称字体</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
~;
$tempoutput = "<select name=\"posternamefont\">\n<option value=\"宋体\">宋体\n<option value=\"仿宋\">仿宋\n<option value=\"楷体\">楷体\n<option value=\"黑体\">黑体\n<option value=\"隶书\">隶书\n<option value=\"幼圆\">幼圆\n</select><p>\n";
$tempoutput =~ s/value=\"$posternamefont\"/value=\"$posternamefont\" selected/;
print qq~
$tempoutput</td>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>一般用户名称字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="posternamecolor" value="$posternamecolor"> 默认：#000066</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>坛主名称字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="adminnamecolor" value="$adminnamecolor"> 默认：#990000</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>版主名称字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="teamnamecolor" value="$teamnamecolor"> 默认：#0000ff</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b><center>所有页面颜色</center></b><br>
<font face=宋体 color=#333333>这些颜色配置将用于每个页面。用于注册、登陆、在线以及其他页面。
</font></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333>主字体颜色</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="fontcolormisc" value="$fontcolormisc"> 默认：#333333</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>其他背景颜色一</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="miscbackone" value="$miscbackone"> 默认：#FFFFFF</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<font face=宋体 color=#333333>其他背景颜色二</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text name="miscbacktwo" value="$miscbacktwo"> 默认：#EEEEEE</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b><center>表格颜色</center></b><br>
<font face=宋体 color=#333333>这些颜色大部分用于ikonboard.cgi，forums.cgi和topic.cgi
</td></tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -