~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1,文件[color=#DC143C]getnameinfo.pl
加入收藏夹意见;
在后面加上复制代码
- require "data/membertitles.cgi" if ($mtitlemax eq "" || $mpostmarkmax eq "");
在复制代码
- opendir (DIRS, "$lbdir");
- my @files = readdir(DIRS);
- closedir (DIRS);
- my @memfavdir = grep(/^memfav/i, @files);
- $memfavdir = $memfavdir[0];
后面加入:复制代码
- $pvmsggraphic{$membername} = qq~<span style=cursor:hand onClick="javascript:openScript(';messanger.cgi?action=new&touser=$tempmembername&actionto=msg';,600,400)" title="发送一个短消息给$membername{$membername}"><img src=$imagesurl/images/message.gif border=0 width=16 align=absmiddle>消息</span> ~;
在复制代码
- $favfile = (-e "${lbdir}$memfavdir/close/$membername{$membername}.cgi") ? "${lbdir}$memfavdir/close/$membername{$membername}.cgi" : "${lbdir}$memfavdir/open/$membername{$membername}.cgi";
- $favgraphic{$membername} = (-e $favfile) ? qq~<a href=fav.cgi?action=show&member=$tempmembername target=_blank title="查看$membername{$membername}的个人收藏"><img src=$imagesurl/images/memfav.gif border=0 width=16 align=absmiddle>收藏</a> ~ : "";
后面加上:复制代码
- \$icqgraphic{"$membername"} = qq~$icqgraphic{$membername}~;
2,文件[color=#DC143C]topic.cgi复制代码
- \$favgraphic{"$membername"} = qq~$favgraphic{$membername}~;
在后面加上:复制代码
- $pvmsggraphic{$membername}$profilegraphic{$membername}
顺便给个收藏夹小图片复制代码
- $favgraphic{$membername}
解决看别人的收藏夹,可能不让看也是故意的。
______________________________________________________________________________
文件[color=#DC143C]setbank.cgi
美化意见:
找到[color=#00008B]sub ebankadminlogin
把去掉;复制代码
- table width=100% cellpadding=6 cellspacing=0>
并把改为复制代码
- <td bgcolor=#333333 colspan=2><font color=#ffffff><b>欢迎来到银行行长办公室</b></font>
并去掉最后一个[color=#00008B]</table>。复制代码
- <td bgcolor=#2159C9 colspan=2><font color=#ffffff><b>欢迎来到银行行长办公室</b></font>
解决银行版面花而乱的样子
______________________________________________________________________________
文件[color=#DC143C]fav.cgi
美化意见:
找到改为:复制代码
- if ((lc($inmembername) eq lc($startedby))&&($nodispown eq "yes")){ $mypost="<img src=$imagesurl/images/$mypost_blogo title=我发表的主题> "}else {$mypost=""};
- $topicicon = "<img src=$imagesurl/images/topicnonew.gif width=14 border=0>";
- if (($threadposts >= $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/topichot3.gif width=14 border=0>"; }
- elsif (($threadposts >= $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/topichotnonew.gif width=14 border=0>"; }
- elsif (($threadposts < $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/topicnew3.gif width=14 border=0>"; }
- elsif (($threadposts < $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/topicnonew.gif width=14 border=0>"; }
- $forumcolorone=$forumcolortwo=$miscbacktwo if(($lastpostdate > $forumlastvisit) && ($inmembername ne "客人"));
- $threadstate = "poll" if (($posticon =~/<br>/i)&&($threadstate eq ""));
找到复制代码
- if ((lc($inmembername) eq lc($startedby))&&($nodispown eq "yes")){ $mypost="<img src=$imagesurl/images/$skin/$mypost_blogo title=我发表的主题> "}else {$mypost=""};
- $topicicon = "<img src=$imagesurl/images/$skin/topicnonew.gif width=14 border=0>";
- if (($threadposts >= $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/$skin/topichot3.gif width=14 border=0>"; }
- elsif (($threadposts >= $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/$skin/topichotnonew.gif width=14 border=0>"; }
- elsif (($threadposts < $hottopicmark) && ($forumlastvisit < $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/$skin/topicnew3.gif width=14 border=0>"; }
- elsif (($threadposts < $hottopicmark) && ($forumlastvisit > $lastpostdate) && ($inmembername ne "客人")) { $topicicon = "<img src=$imagesurl/images/$skin/topicnonew.gif width=14 border=0>"; }
- $forumcolorone=$forumcolortwo=$miscbacktwo if(($lastpostdate > $forumlastvisit) && ($inmembername ne "客人"));
- $threadstate = "poll" if (($posticon =~/<br>/i)&&($threadstate eq ""));
改为复制代码
- if ($threadstate eq "closed") { $topicicon = "<img src=$imagesurl/images/topiclocked0.gif width=14 border=0>"; }
- elsif ($threadstate eq "poll") {
- if ($size >= $hotpollmark) { $topicicon = "<img src=$imagesurl/images/closedbhot.gif width=13 border=0>"; }
- else { $topicicon = "<img src=$imagesurl/images/closedb.gif width=13 border=0>"; }
- }
- elsif ($threadstate eq "pollclosed") { $topicicon = "<img src=$imagesurl/images/closedb1.gif width=13 border=0>"; }
解决收藏夹某些图片的相对路径不符导致图片不能显示。复制代码
- if ($threadstate eq "closed") { $topicicon = "<img src=$imagesurl/images/$skin/topiclocked3.gif width=14 border=0>"; }
- elsif ($threadstate eq "poll") {
- if ($size >= $hotpollmark) { $topicicon = "<img src=$imagesurl/images/$skin/closedbhot.gif width=13 border=0>"; }
- else { $topicicon = "<img src=$imagesurl/images/$skin/closedb.gif width=13 border=0>"; }
- }
- elsif ($threadstate eq "pollclosed") { $topicicon = "<img src=$imagesurl/images/$skin/closedb1.gif width=13 border=0>"; }
______________________________________________________________________________
文件[color=#DC143C]topic.cgi
美化意见:
找到改为:复制代码
- if (($usejhpoint eq "yes")&&($jhdata =~ /\_$topicid\_/)) {
- $jhimage = qq~ <img src="$imagesurl/images/$new_JH" align=absmiddle alt=本帖为精华帖子> ~;
- }
解决主题精华帖子某些图片的相对路径不符导致图片不能显示。复制代码
- if (($usejhpoint eq "yes")&&($jhdata =~ /\_$topicid\_/)) {
- $jhimage = qq~ <img src="$imagesurl/images/$skin/$new_JH" align=absmiddle alt=本帖为精华帖子> ~;
- }
______________________________________________________________________________
文件[color=#DC143C]modscard.cgi
一些小的矫正并加上签到率:
找到[color=#00008B]sub top_page{[color]
在下面加上找到[color=#00008B]if(-e $today_log){复制代码
- my $total_member = 0;
- open (FILE, "$lbdir/data/lbmember.cgi");
- while(<FILE>){
- my @tmpuserdetail = split (/\t/, $_);
- chomp @tmpuserdetail;
- next unless($tmpuserdetail[1] eq "ad" || $tmpuserdetail[1] eq "smo" || $tmpuserdetail[1] eq "cmo" || $tmpuserdetail[1] eq "mo");
- $total_member++;
- }
- chomp @memberdata;
- close (FILE);
在下面把改为复制代码
- open(FILE,$today_log);
- $/="";
- $get_today_log = <FILE>;
- $/="\n";
- close(FILE);
- chop $get_today_log;
- $get_today_log =~s/[\n\r]/\_/g;
- $get_today_log =~s/^\_+//;
- $get_today_log =~s/\_+$//;
- $get_today_log = "\_$get_today_log\_";
- $pcard_or_not = 1 if($get_today_log=~/\_$inmembername\_/i);
- $get_today_log_list = $get_today_log;
- $get_today_log_list =~s/^\_+//;
- $get_today_log_list =~s/(.+?)\_/<option>$1<\/option>/gi;
找到复制代码
- open(FILE,$today_log);
- while(my $line = <FILE>){
- chomp $line;
- ($line,undef) = split(/\*/,$line);
- $get_today_log .= $line."_";
- $get_today_log_list .= ';<option>';.$line.';</option>';;
- $total_pcard++;
- }
- close(FILE);
- chop $get_today_log;
- $get_today_log = "\_$get_today_log\_";
- $pcard_or_not = 1 if($get_today_log=~/\_$inmembername\_/i);
在下面加上:复制代码
- $get_today_log_list.=qq~<option>$inmembername</option>~;
[color=#00008B]sub top_page{
紧接着在下面,注意在}外加上找到(注意:一共两处)复制代码
- $total_member = 1 unless($total_member);
- $pcard_pc = sprintf("%.2f",($total_pcard/$total_member)*100);
接着后面加上复制代码
- <font color="$fontcolormisc">日期:<i>$today_date<i>
找到复制代码
- 签到率:<i>$pcard_pc%</i>
改为复制代码
- if (($userdetail[9]) && ($userdetail[9] =~ /^[0-9]+$/)) {
- $oicqgraphic = qq~<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$userdetail[9] target=_blank title="查看 QQ:$oicqnumber的资料"><img src=$imagesurl/images/oicq.gif border=0 width=16 align=absmiddle>QQ</a>~;
- }
- if (($userdetail[10]) && ($userdetail[10] =~ /^[0-9]+$/)) {
- $icqgraphic = qq~<span style="cursor:hand" onClick="javascript:openScript(';misc.cgi?action=icq&UIN=$userdetail[10]';,450,300)" title="给 ICQ:$icqnumber 发个消息"><img src=$imagesurl/images/icq.gif border=0 width=16 align=absmiddle>ICQ</span>~;
- }
解决查看签到斑竹的QQtitle仍然显示是自己的QQ,并加上了签到率,让坛主或者说“一把手”心里有个底。Ps:最好是能够在loginout.cgi加上一个自动签到标记。复制代码
- if (($userdetail[9]) && ($userdetail[9] =~ /^[0-9]+$/)) {
- $oicqgraphic = qq~<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$userdetail[9] target=_blank title="查看 QQ:$userdetail[9]的资料"><img src=$imagesurl/images/oicq.gif border=0 width=16 align=absmiddle>QQ</a>~;
- }
- if (($userdetail[10]) && ($userdetail[10] =~ /^[0-9]+$/)) {
- $icqgraphic = qq~<span style="cursor:hand" onClick="javascript:openScript(';misc.cgi?action=icq&UIN=$userdetail[10]';,450,300)" title="给 ICQ:$userdetail[10] 发个消息"><img src=$imagesurl/images/icq.gif border=0 width=16 align=absmiddle>ICQ</span>~;
- }
______________________________________________________________________________
文件[color=#DC143C]bbs.lib.pl
1,合理性建议:
在[color=#00008B]sub title {找到改为:复制代码
- if ($forumgraphic) {
- ($fgwidth,$fgheight) = split(/\|/,$fgwidth);
- if ($forumgraphic =~ /\.swf$/i) {$forumgraphicoutput = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$forumgraphic quality=high width=$fgwidth height=$fgheight pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
- else {$forumgraphicoutput = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$forumgraphic border=0 height=60></a>~};
- } else {
- if ($boardlogo =~ /\.swf$/i) {$forumgraphicoutput = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$boardlogo quality=high width=$boardlogow height=$boardlogoh pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
- else {$forumgraphicoutput = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$boardlogo border=0 height=60></a>~};
- }
解决分论坛的Logo大小由自己设定。复制代码
- if ($forumgraphic) {
- ($fgwidth,$fgheight) = split(/\|/,$fgwidth);
- if ($forumgraphic =~ /\.swf$/i) {$forumgraphicoutput = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$forumgraphic quality=high width=$fgwidth height=$fgheight pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
- else {$forumgraphicoutput = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$forumgraphic border=0 height=$fgheight></a>~};
- } else {
- if ($boardlogo =~ /\.swf$/i) {$forumgraphicoutput = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$boardlogo quality=high width=$boardlogow height=$boardlogoh pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
- else {$forumgraphicoutput = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$boardlogo border=0 height=$fgheight></a>~};
- }
2,合理性建议:
在[color=#00008B]sub whosonline {找到改为:复制代码
- $fromwhere = "未知" if (length($fromwhere) > 40);
- $saveosinfo = "未知" if (length($saveosinfo) > 15);
- $savebrowseinfo = "未知" if (length($savebrowseinfo) > 28);
解决一些长地址范围导致未知的问题。可能有些问题看复杂了,我把[color=#DC143C]fastlogin.cgi也加上了IP,因为怎么引用,[color=#DC143C]bbs.lib.pl中的[color=#00008B]whosonline函数对[color=#DC143C]fastlogin.cgi的[color=#00008B]$trueipaddress无法识别,于是我在[color=#DC143C]fastlogin.cgi开始加上了一段复制代码
- $fromwhere = "未知" if (length($fromwhere) > 50);
- $saveosinfo = "未知" if (length($saveosinfo) > 20);
- $savebrowseinfo = "未知" if (length($savebrowseinfo) > 30);
也许根本不需加,但是我怎么测试也不行,暂时加上为妙~~ :)复制代码
- my $ipaddress = $ENV{';REMOTE_ADDR';};
- $trueipaddress = $ENV{';HTTP_X_FORWARDED_FOR';};
- $trueipaddress = $ipaddress if ($trueipaddress eq "" || $trueipaddress eq "unknown" || $trueipaddress =~ m/^192\.168\./ || $trueipaddress =~ m/^10\./);
- my $trueipaddress1 = $ENV{';HTTP_CLIENT_IP';};
- $trueipaddress = $trueipaddress1 if ($trueipaddress1 ne "" && $trueipaddress1 ne "unknown" && $trueipaddress1 !~ m/^192\.168\./ && $trueipaddress1 !~ m/^10\./);
______________________________________________________________________________
文件[color=#DC143C]messanger.cgi
1,小缺陷:
在[color=#00008B]elsif ($action eq "read")找到改为:复制代码
- if ($inmsg < @outboxmessages - 1)
- {
- my $outboxdown = $inmsg + 1;
- (undef, $nreadstate, undef, $nmessagetitle, undef) = split(/\t/, $outboxmessages[$outboxdown]);
- $outboxmsgdown = qq~<a href=$thisprog?action=outread&msg=$outboxdown title="下一封訊息: ($readstatus{$nreadstate})\n訊息標題: $nmessagetitle">下一封</a>~;
- }
- if ($inmsg > 0)
- {
- my $outboxup = $inmsg - 1;
- (undef, $preadstate, undef, $pmessagetitle, undef) = split(/\t/, $outboxmessages[$outboxup]);
- $outboxmsgup = qq~<a href=$thisprog?action=outread&msg=$outboxup title="上一封訊息: ($readstatus{$preadstate})\n訊息標題: $pmessagetitle">上一封</a>~;
- }
- $outboxsplitline = " | " if ($outboxmsgdown ne "" && $outboxmsgup ne "");
- if ($outboxmsgdown ne "" || $outboxmsgup ne "")
- {
- $outboxtempone = "[ ";
- $outboxtemptwo = " ]";
- }
解决收件箱上翻下翻页面。[color=#990000]tsefai建议.复制代码
- if ($inmsg < @inboxmessages - 1)
- {
- my $inboxdown = $inmsg + 1;
- (undef, $nreadstate, undef, $nmessagetitle, undef) = split(/\t/, $inboxmessages[$outboxdown]);
- $inboxmsgdown = qq~<a href=$thisprog?action=read&msg=$inboxdown title="下一条消息: ($readstatus{$nreadstate})\n消息标题: $nmessagetitle">下一条</a>~;
- }
- if ($inmsg > 0)
- {
- my $inboxup = $inmsg - 1;
- (undef, $preadstate, undef, $pmessagetitle, undef) = split(/\t/, $inboxmessages[$outboxup]);
- $inboxmsgup = qq~<a href=$thisprog?action=read&msg=$inboxup title="上一条消息: ($readstatus{$preadstate})\n消息标题: $pmessagetitle">上一条</a>~;
- }
- $inboxsplitline = " | " if ($inboxmsgdown ne "" && $inboxmsgup ne "");
- if ($inboxmsgdown ne "" || $inboxmsgup ne "")
- {
- $inboxtempone = "[ ";
- $inboxtemptwo = " ]";
- }
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
欢迎光临 星星博客 (http://commerce.huhoo.net/) | Powered by Discuz! 7.0.0 |