以純文字方式查看主題

- 周氏家族:::...Chous family (https://chous.100webspace.net/bbs/cgi-bin/leobbs.cgi)
-- 『 家 族 視 聽 娛 樂 間 』 (https://chous.100webspace.net/bbs/cgi-bin/forums.cgi?forum=18)
--- 『 雷傲論壇討論區 』 (https://chous.100webspace.net/bbs/cgi-bin/forums.cgi?forum=19)
---- 想請POP幫我看一看這個hack.. (https://chous.100webspace.net/bbs/cgi-bin/topic.cgi?forum=19&topic=1011)

-- 作者： ilovenaru
-- 發表時間： 2005/10/11 10:53pm

這是主題加色加上收費功能的hack
我照這篇修改之後不知道為什麼無法顯示出修改後的顏色..
不知道問題出在哪裡
請POP有空的話幫我試試看下面這篇m(_ _)m

[code]
##################################
# 原版權顯示
#
# 教程名稱：給帖子主題加色
# 教程版權：三元社區 - 阿強
# 適用版本：LeoBBS X 0815 以上
# 修改文件：postings.cgi、dotop.pl、formus.cgi
# 教程說明：可以更改不同主題的顏色，總固、區固主題顏色僅在當前版塊有效，其它則沿用論壇原有設置。
#
###################################
# 修改版版權
#
# 修改 by tsefai
# 教程說明：在此修改版中除管理員外，其他會員也可以使用主題加色但需要付款；
#           只限使用加色功能，取消加色並不會需要花費，而有關的金額可以在管理中心進行設定；
#           主題顏色可以在所有的版區中顯示
#
###################################


　

1，postings.cgi

找到

代碼：
--------------------------------------------------------------------------------
 'lowlight' => \&lowlight,

加上

代碼：
--------------------------------------------------------------------------------

'titlecolor' => \&titlecolor,
'untitlecolor' => \&untitlecolor,

將以下內容增加到文件的最後面

代碼：
--------------------------------------------------------------------------------

### 3plugs
sub titlecolor {
&mischeader("增加主題顏色");

if(($membercode ne "ad")&&($membercode ne "smo")&&($membercode{$membername} ne "cmo")&&($membercode{$membername} ne "mo")&&($inmembmod ne "yes")&&($checked eq "yes")&&($colorneed ne "")) {
$currentmoney = $numberofposts * $addmoney + $numberofreplys * $replymoney + $visitno * $loginmoney + $mymoney - $postdel * $delmoney + $jhcount * $addjhhb;
if ($currentmoney < $colorneed){ &error("增加主題顏色&你沒有足夠的金錢來增加主題顏色！");}
require "plugin.lib.pl"; &updateuserinfo("$inmembername",0,0,0,0,0,-$colorneed,0); $cleartoedit = "yes";
} else {
$cleartoedit = "no";
}

if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($membercode eq 'smo') && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("增加主題顏色&您不是本論壇壇主或版主，或者您的密碼錯誤！"); }

if (($cleartoedit eq "yes") && ($checked eq "yes")) {
$title_color = $query->param(title_color);
$title_color =~ s/#//;
&error("增加主題顏色&請選擇需要的主題顏色！") if($title_color eq '');
my $file = "$lbdir" . "boarddata/color.cgi";
if (open (FILE, $file))
{
@hightopic = <FILE>;
close (FILE);
if (open (FILE, ">$file"))
{
print FILE "$inforum\-$intopic\-$title_color\n";
foreach (@hightopic)
{
chomp $_;
next if ($_ eq "");
($tempinforum,$tempintopic,$tempcolor) = split (/\-/,$_);
unless (($tempinforum eq $inforum)&&($tempintopic eq $intopic))
{
print FILE "$_\n";
}
}
close (FILE);
}
}
else
{
if (open (FILE, ">$file"))
{
print FILE "$inforum\-$intopic\-$title_color\n";
close (FILE);
}
}
unlink("${lbdir}cache/forumstop$inforum.pl");
&addadminlog("增加主題顏色", $intopic);
$output .= qq~<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr><td bgcolor=$miscbacktwo align=center><font color=$fontcolormisc><b>增加主題顏色成功\</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具體情況：<ul><li><a href="forums.cgi?forum=$inforum">返回論壇</a><li><a href="leoboard.cgi">返回論壇首頁</a></ul></tr></td>
</table></td></tr></table><meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">~;
} else {
$inmembername =~ s/\_/ /g;

require "data/cityinfo.cgi";
if(($membercode ne "ad")&&($membercode ne "smo")&&($membercode{$membername} ne "cmo")&&($membercode{$membername} ne "mo")&&($inmembmod ne "yes")&&($colorneed ne "")) {
$pay=qq~<tr><td bgcolor=$miscbackone colspan=2><font color=$fontcolormisc><b>增加主題顏色需要花費 $colorneed $moneyname！<u>此功\能對版主和壇主無效</u></font></td>~;
}

$output .= qq~<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="titlecolor">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<script>
function selcolor(obj, obj2)
{
var arr = showModalDialog("$imagesurl/editor/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
obj.value = arr;
obj2.innerHTML = "<font color="+arr+">加色後的主題顏色</font>";
}
</script>
<font color=$fontcolormisc><b>[增加主題顏色]</b></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2><font color=$titlefontcolor>您目前的身份是： <font color=$fonthighlight><B><u>$inmembername</u></B></font> ，如果要使用其他會員身份，請在下面輸入會員名稱和密碼。如果不想改變會員身份，請留空。</td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的會員名稱</font></td><td bgcolor=$miscbackone><input type=text name="membername">   <font color=$fontcolormisc><span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">您沒有註冊？</span></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的密碼</font></td><td bgcolor=$miscbackone><input type=password name="password">   <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘記密碼？</a></font></td></tr>
$pay
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入顏色代碼</font></td>
<td bgcolor=$miscbackone><input type=text name=title_color size=7 maxlength=7 onClick="javascript:selcolor(this, colora)" style="cursor:hand"> <span id=colora>現在的主題顏色</span></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 入"></td></form></tr></table></td></tr></table>
</table></td></tr></table>~;
}
}

sub untitlecolor {
&mischeader("取消標題顏色");

$cleartoedit = "no";
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($membercode eq 'smo') && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("取消主題顏色&您不是本論壇壇主或版主，或者您的密碼錯誤！"); }

if (($cleartoedit eq "yes") && ($checked eq "yes")) {

my $file = "${lbdir}boarddata/color.cgi";
if (open (FILE, $file)) {
@colortopic = <FILE>;
close (FILE);

if (open (FILE, ">$file")) {
foreach (@colortopic) {
chomp $_;
next if ($_ eq "");
my ($tempinforum,$tempintopic,$tempcolor) = split (/\-/,$_);
unless (($tempinforum eq $inforum)&&($tempintopic eq $intopic)) {
print FILE "$_\n";
}
}
close (FILE);
}
}
unlink("${lbdir}cache/forumstop$inforum.pl");
&addadminlog("取消主題顏色", $intopic);
$output .= qq~<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr><td bgcolor=$miscbacktwo align=center><font color=$fontcolormisc><b>取消主題顏色成功\</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具體情況：<ul><li><a href="forums.cgi?forum=$inforum">返回論壇</a><li><a href="leoboard.cgi">返回論壇首頁</a></ul></tr></td>
</table></td></tr></table><meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">~;
} else {

$inmembername =~ s/\_/ /g;
$output .= qq~<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="untitlecolor">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>[取消主題顏色]</b></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2><font color=$titlefontcolor>您目前的身份是： <font color=$fonthighlight><B><u>$inmembername</u></B></font> ，如果要使用其他會員身份，請在下面輸入會員名稱和密碼。如果不想改變會員身份，請留空。</td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的會員名稱</font></td><td bgcolor=$miscbackone><input type=text name="membername">   <font color=$fontcolormisc><span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">您沒有註冊？</span></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>請輸入您的密碼</font></td><td bgcolor=$miscbackone><input type=password name="password">   <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘記密碼？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 入"></td></form></tr></table></td></tr></table>
</table></td></tr></table>~;
}
}
### end

　


2，dotop.pl

找到

代碼：
--------------------------------------------------------------------------------

if (open(FILE, "${lbdir}boarddata/highlight$inforum.cgi")) {
$highlight = <FILE>;
close(FILE);
$highlight =~ s/\n/\_/isg;
$highlight = "\_$highlight\_";
$highlight =~ s/[^\w\-\_]//isg;
} else { $highlight = ""; }

加上

代碼：
--------------------------------------------------------------------------------

### 3plugs
if (open(FILE, "${lbdir}boarddata/color.cgi")) {
sysread(FILE, $addtcolor,(stat(FILE))[7]);
close(FILE);
$addtcolor =~ s/\n/\_/isg;
$addtcolor = "\_$addtcolor\_";
$addtcolor =~ s/[^\w\-\_]//isg;
} else { $addtcolor = ""; }
###

　

找到

代碼：
--------------------------------------------------------------------------------

print FILE qq~\$highlight=qq($highlight);\n~;

加上

代碼：
--------------------------------------------------------------------------------

print FILE qq~\$addtcolor=qq($addtcolor);\n~;

　

　

3，formus.cgi

找到

代碼：
--------------------------------------------------------------------------------

$hllink=($highlight=~m/\_$forumid-$topicid\_/i)?"<a href=postings.cgi?action=lowlight&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加重</font></a>":"<a href=postings.cgi?action=highlight&forum=$forumid&topic=$topicid><font color=$titlecolor>加重</font></a>";

加上

代碼：
--------------------------------------------------------------------------------

### 3plugs
$colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
###

找到

代碼：
--------------------------------------------------------------------------------

|$hllink

加上

代碼：
--------------------------------------------------------------------------------

|$colorlink

找到

代碼：
--------------------------------------------------------------------------------

if ($arrowuserdel eq "on") {
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>快速操$LeoBBS_E_CHT： ~;
$admini .= qq~| <a href=postings.cgi?action=lock&forum=$inforum&topic=$topicid><font color=$titlecolor>鎖定此文章，不允許\別人回覆</font></a> ~ unless ($threadstate eq "closed");
$admini .= qq~| <a href=delpost.cgi?action=delete&forum=$inforum&topic=$topicid><font color=$titlecolor>刪除此文章</font></a> |</font> </DIV>~;
}
else { undef $admini; }

改為

代碼：
--------------------------------------------------------------------------------

if ($arrowuserdel eq "on") {
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>快速操$LeoBBS_E_CHT： ~;
$colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
$admini .= qq~| $colorlink ~;
$admini .= qq~| <a href=postings.cgi?action=lock&forum=$inforum&topic=$topicid><font color=$titlecolor>鎖定此文章，不允許\別人回覆</font></a> ~ unless ($threadstate eq "closed");
$admini .= qq~| <a href=delpost.cgi?action=delete&forum=$inforum&topic=$topicid><font color=$titlecolor>刪除此文章</font></a> |</font> </DIV>~;
}
else { undef $admini; }

找到

代碼：
--------------------------------------------------------------------------------

if ($topiccount < $abstopcount) {
if ($membercode eq "ad") {
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>|<a href=postings.cgi?action=absunlocktop&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>取消總固頂</font></a>|<a href=postings.cgi?action=abslocktop&forum=$forumid&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$forumid&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </DIV>~;
} else { undef $admini; }

改為

代碼：
--------------------------------------------------------------------------------

if ($topiccount < $abstopcount) {
if ($membercode eq "ad") {
$colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>|$colorlink|<a href=postings.cgi?action=absunlocktop&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>取消總固頂</font></a>|<a href=postings.cgi?action=abslocktop&forum=$forumid&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$forumid&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </DIV>~;
} else { undef $admini; }

　

找到

代碼：
--------------------------------------------------------------------------------

if ($membercode eq "ad" || $membercode eq "smo" || ",$catemods," =~ /\Q\,$inmembername\,\E/i) {
$admini = qq~<div id=admini style="display:$admindisp" align=right><font color=$titlecolor>|<a href=postings.cgi?action=catunlocktop&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>取消區固頂</font></a>|$abslockbuttom<a href=postings.cgi?action=catlocktop&forum=$forumid&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$forumid&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </div>~;
} else { $admini = ""; }

改為

代碼：
--------------------------------------------------------------------------------

if ($membercode eq "ad" || $membercode eq "smo" || ",$catemods," =~ /\Q\,$inmembername\,\E/i) {
$colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
$admini = qq~<div id=admini style="display:$admindisp" align=right><font color=$titlecolor>|$colorlink|<a href=postings.cgi?action=catunlocktop&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>取消區固頂</font></a>|$abslockbuttom<a href=postings.cgi?action=catlocktop&forum=$forumid&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$forumid&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$forumid&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </div>~;
} else { $admini = ""; }

找到

代碼：
--------------------------------------------------------------------------------

 elsif ($topiccount < $topcount + $abstopcount + $cattopcount) {
if (($membercode eq "ad") || ($inmembmod eq "yes") || ($membercode eq 'smo')) {
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>|<a href=postings.cgi?action=unlocktop&forum=$inforum&topic=$topicid&checked=yes><font color=$titlecolor>取消固頂</font></a>|$abslockbuttom$catlockbuttom<a href=postings.cgi?action=locktop&forum=$inforum&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$inforum&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$inforum&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </DIV>~;
} else { undef $admini; }

改為

代碼：
--------------------------------------------------------------------------------

 elsif ($topiccount < $topcount + $abstopcount + $cattopcount) {
if (($membercode eq "ad") || ($inmembmod eq "yes") || ($membercode eq 'smo')) { $colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
$colorlink=($addtcolor=~m/\_$forumid-$topicid-(.*)\_/i)?"<a href=postings.cgi?action=untitlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>取消加色</font></a>":"<a href=postings.cgi?action=titlecolor&forum=$forumid&topic=$topicid><font color=$titlecolor>加色</font></a>";
$admini = qq~<DIV id=admini style="display:$admindisp" ALIGN=Right><font color=$titlecolor>|$colorlink|<a href=postings.cgi?action=unlocktop&forum=$inforum&topic=$topicid&checked=yes><font color=$titlecolor>取消固頂</font></a>|$abslockbuttom$catlockbuttom<a href=postings.cgi?action=locktop&forum=$inforum&topic=$topicid><font color=$titlecolor>頂</font></a>|$jhbuttom<a href=postings.cgi?action=lock&forum=$inforum&topic=$topicid><font color=$titlecolor>鎖</font></a>|<a href=postings.cgi?action=unlock&forum=$inforum&topic=$topicid&checked=yes><font color=$titlecolor>解</font></a>|</font> </DIV>~;
} else { undef $admini; }

　

4，setvariables.cgi

找到

代碼：
--------------------------------------------------------------------------------

<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=Arial color=#333333><b>只允許\進入論壇的地區</b><br>非允許\地區的 IP 將無法進入論壇，由於利用的是論壇內部的 IP 位址庫，有$LeoBBS_J_CHT判斷的可能性，<b>而且此選項還受 IP 禁止的約束</b>！</font></td>
<td bgcolor=#FFFFFF>
<input type=text name="arrowformwhere" value="$arrowformwhere" size=20>　多個地區用逗號隔開，以市或省為單位</td>
</tr>~;

加上

代碼：
--------------------------------------------------------------------------------

require "data/cityinfo.cgi";
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
<font face=Arial color=#333333><b>增加主題顏色需要花費</b><br></font></td>
<td bgcolor=#FFFFFF>
<input type=text name="colorneed" value="$colorneed" size=5 maxsize=5> $moneyname　<font color=red>此功\能對版主和壇主無效</font></td>
</tr>
~;

　

完成！

[/code]

-- 作者： POP
-- 發表時間： 2005/10/12 07:18pm

OK....

不過得等我放假(六日)才有時間try看看

只有顏色無法顯示但金錢扣減是正常的嗎?
一般會員看的到加色按鈕嗎?(請使用一般會員登入測試)
或者還有其它錯誤請提供...


-- 作者： ilovenaru
-- 發表時間： 2005/10/12 10:57pm

[quote][b]下面引用由[u]POP[/u]在 [i]2005/10/12 07:18pm[/i] 發表的內容：[/b]
OK....
不過得等我放假(六日)才有時間try看看
只有顏色無法顯示但金錢扣減是正常的嗎?
一般會員看的到加色按鈕嗎?(請使用一般會員登入測試)
...
[/quote]
金錢扣減和一般會員使用上面都正常∼只有無法顯示結果顏色而已m(_ _)m

-- 作者： POP
-- 發表時間： 2005/10/15 10:51pm

小弟電腦未裝ActivePerl,因此無法測試程式修改
以下是依據你提供的修改教學
我認為有一個地方未加上所以顏色不會改變

forums.cgi
找到
   $highlightstyle = $topiccount < $abstopcount && $startarray == 0 ? qq~style="color:$color_of_absontop; font-weight:900"~ : $topiccount < $abstopcount + $cattopcount && $startarray == 0 ? qq~style="color:$color_of_quontop; font-weight:900"~ : $topiccount < $abstopcount + $cattopcount + $topcount && $startarray == 0 ? qq~style="color:$color_of_ontop; font-weight:900"~ : $highlight =~ m/\_$forumid-$topicid\_/ ? qq~style="color:$color_of_hightopic; font-weight:600"~ : "";

加上
# 3plugs
my $file = "${lbdir}boarddata/color.cgi";
if (open (FILE, $file)) {
@colortopic = <FILE>;
close (FILE);

foreach (@colortopic) {
chomp $_;
next if ($_ eq "");
my ($tempinforum,$tempintopic,$tempcolor) = split (/\-/,$_);
$highlightstyle = $tempinforum eq $forumid && $tempintopic eq $topicid ? qq~style="color:#$tempcolor; font-weight:600"~ : "";
}
# end

因為以你post的教學
並未有程式改到$topictitletemp(文章標題)地方
請自行試試看,若還是不行請提供boarddata/color.cgi檔案讓我參考

-- 作者： ilovenaru
-- 發表時間： 2005/10/16 03:59am

[quote][b]下面引用由[u]POP[/u]在 [i]2005/10/15 10:51pm[/i] 發表的內容：[/b]
小弟電腦未裝ActivePerl,因此無法測試程式修改
以下是依據你提供的修改教學
我認為有一個地方未加上所以顏色不會改變
forums.cgi
...
[/quote]
這樣加會顯示500錯誤耶..
color.cgi內容是
1-63-6B450C
1-50-2248DD
1-49-F73809

第一個數字好像是論壇編號 第二個是文章編號 第三個是顏色

-- 作者： POP
-- 發表時間： 2005/10/16 05:00pm

不好意思
最後少了一個 }

# 3plugs
my $file = "${lbdir}boarddata/color.cgi";
if (open (FILE, $file)) {
@colortopic = <FILE>;
close (FILE);

foreach (@colortopic) {
chomp $_;
next if ($_ eq "");
my ($tempinforum,$tempintopic,$tempcolor) = split (/\-/,$_);
$highlightstyle = $tempinforum eq $forumid && $tempintopic eq $topicid ? qq~style="color:#$tempcolor; font-weight:600"~ : "";
}
[color=blue][B]}[/B][/color]
# end

-- 作者： ilovenaru
-- 發表時間： 2005/10/17 06:14pm

[quote][b]下面引用由[u]POP[/u]在 [i]2005/10/16 05:00pm[/i] 發表的內容：[/b]
不好意思
最後少了一個 }
# 3plugs
my $file = "${lbdir}boarddata/color.cgi";
...
[/quote]
唔...
加了這段還是不會顯示顏色，而且連加重功能都會失效 :em11:

-- 作者： POP
-- 發表時間： 2005/10/17 07:11pm

改成

# 3plugs
my $file = "${lbdir}boarddata/color.cgi";
if (open (FILE, $file)) {
@colortopic = <FILE>;
close (FILE);

foreach (@colortopic) {
chomp $_;
next if ($_ eq "");
my ($tempinforum,$tempintopic,$tempcolor) = split (/\-/,$_);
if($tempinforum == $forumid && $tempintopic == $topicid) { $highlightstyle = qq~style="color:#$6B450C; font-weight:600"~ ;
}}}
#end

先試試這樣有沒有顏色
若可以再把color:#$6B450C改成color:#$tempcolor

-- 作者： ilovenaru
-- 發表時間： 2005/10/18 00:44am

[quote][b]下面引用由[u]POP[/u]在 [i]2005/10/17 07:11pm[/i] 發表的內容：[/b]
改成
# 3plugs
my $file = "${lbdir}boarddata/color.cgi";
if (open (FILE, $file)) {
...
[/quote]
OK∼解決了∼謝謝指導m(_ _)m[br][br][color=#990000][b]-=-=-=-=- 以下內容由 [i]ilovenaru[/i] 在 [i]2005年10月18日 06:30am[/i] 時新增 -=-=-=-=-[/b][/color]
現在又發現一個小問題
就是加色之後會員無法自行取消加色，但是這樣的話在一般使用者介面上加上取消加色的按鈕不就沒有意義了O_O

-- 作者： POP
-- 發表時間： 2005/10/19 00:39am

那就改成和加色的程式一樣啊

找到
&mischeader("取消標題顏色");

$cleartoedit = "no";

改成
&mischeader("取消標題顏色");

if(($checked eq "yes")&&($colorneed ne "")) {
$cleartoedit = "yes";
} else {
$cleartoedit = "no";
}

© 周氏家族:::...Chous family Since 2002　繁體版權所有：摩尼網　 程式翻譯：auron　 版本： LeoBBS X Build090208