- UID
- 1
- 威望
- 1240 点
- 金钱
- 10002 金币
- 点卡
- 317 点
|
1#
发表于 2004-12-13 18:45
| 只看该作者
[分享]关于隐藏论坛问答
非四问:
在界面上可以很简单的在$forumname\n</option>"后添加 if ($hiddenforum ne "yes")
但实际上还是搜索了所有的论坛,包括我所不想被搜索的隐藏论坛。
请教怎么样不被搜索。。谢谢。
royroy答:
把 @FORUMS_TO_SEARCH=("all"); 改成以下應該行了..
$filetoopen = "$lbdir" . "data/allforums.cgi";
&winlock($filetoopen) if (($OS_USED eq "Nt")||($OS_USED eq "Unix"));
open(FILE, "$filetoopen");
flock(FILE, 1) if ($OS_USED eq "Unix");
@forums = <FILE>;
close(FILE);
&winunlock($filetoopen) if (($OS_USED eq "Nt")||($OS_USED eq "Unix"));
@FORUMS_TO_SEARCH=();
foreach(@forums){
chomp $_;
@getforum=split(/\t/,$_);
push(@FORUMS_TO_SEARCH,$getforum[0]) if($getforum[18] ne "yes");
}
不過會比較慢...
jt009806问:
功能表现:某板块设置为隐藏板块后,普通会员无根本就看不到并无法进入,只有得到认证以后能够看到此板块并能进入论坛。(最新的041101版中某板块设置隐藏以后除了总斑竹和坛主以外其它会员都无法查看到,希望这里能够将认证会员这个会员级别添加进去,不知道如何添加,希望斑竹能够帮忙解决这个问题)
DA蒙蒙答:
1,修改 leobbs.cgi
找到- next unless (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo"));
复制代码 改为:- next unless (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo")||($membercode eq "rz"));
复制代码 2,修改forums.cgi
找到- print header(-cookie=>[$allowforumcookie, $onlineviewcookie, $tempvisitcookie, $permvisitcookie] , -expires=>"$EXP_MODE" , -cache=>"$CACHE_MODES");
复制代码 下面增加:- &error("进入论坛&一般会员不允许进入此论坛!") unless (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo")||($membercode eq "rz"));
复制代码 3,修改topic.cgi
找到- $myinmembmod = $inmembmod;
复制代码 下面增加:- &error("进入论坛&一般会员不允许进入此论坛!") unless (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo")||($membercode eq "rz"));
复制代码 4,修改getcforms.pl
找到- foreach (@childforum) {
- chomp $_;
- ($cforumname, $cforumdescription, $cprivateforum, $cstartnewthreads, $clastposter, $clastposttime1, $cthreads, $cposts,$chiddenforum,$cforumid, $modout, $cteam, $cmiscad4, $ctodayforumpost, $cmiscad5) = split(/\t/,$_);
- next unless ($chiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo"));
复制代码 改为:- foreach (@childforum) {
- chomp $_;
- ($cforumname, $cforumdescription, $cprivateforum, $cstartnewthreads, $clastposter, $clastposttime1, $cthreads, $cposts,$chiddenforum,$cforumid, $modout, $cteam, $cmiscad4, $ctodayforumpost, $cmiscad5) = split(/\t/,$_);
- next unless ($chiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "rz"));
复制代码 |
我是一个呼吸着现在的空气而生活在过去的人
这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
我已习惯了孤独,爱上孤独
他让我看清了自我,还原了自我
让我再静静的沉思中得到快乐和满足
再孤独的世界里我一遍又一遍
不厌其烦的改写着自己的过去
延伸到现在与未来
然而那只是泡沫般的美梦
产生的时刻又伴随着破灭的到来
在灰飞烟灭的瞬间我看到的是过程的美丽
而不是结果的悲哀。。。
|
|