| |
下面引用由POP在 2003/08/26 06:39pm 發表的內容：
我現在才發現3.08和3.01真的不一樣
先測試leoboard是否會通過好了
leoboard.cgi
找到
...
|
|
執行上∼沒問題ㄟ
只是還是沒辦法隱藏
不知是不是我論壇新帖的調用法有關??
以下是我首頁的調用法
leoboard.cgi
找到：
$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;
在後面加入：
if ($maxpersontopic && $inmembername ne "客人")
{
$myposts = &getmytopic("post");
$myreplys = &getmytopic("reply");
$newtopics = &getmytopic("all");
$output .= qq~<tr><td bgcolor=$titlecolor width=30%><b>-=> 我被回復的主題：</b></td><td bgcolor=$titlecolor width=30%><b>-=> 我參與討論的主題：</b></td><td bgcolor=$titlecolor width=*><b>-=> 論壇最新發表主題：</b></td></tr><tr><td bgcolor=$forumcolorone valign=top style="line-height: 130%">$myposts</td><td bgcolor=$forumcolortwo valign=top style="line-height: 130%">$myreplys</td><td bgcolor=$forumcolortwo valign=top style="line-height: 130%">$newtopics</td></tr></table></td></tr></table>~;
$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;
}
找到：
END {
if ($cpudisp eq "1") {
$TT1 = new Benchmark;
$td = Benchmark::timediff($TT1, $TT0);
$td = Benchmark::timestr($td);
$td =~ /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s*sys/i;
print "<center><font color=$#c0c0c0>程式佔用 CPU 時間：$2 usr + $3 sys";
}
}
在前面加入：
sub getmytopic
{
my $mode = shift;
if ($mode eq "all")
{
$filetoopen = $lbdir . "data/recentpost.cgi";
}
else
{
$filetoopen = $lbdir . "mytopic/" . $mode . "/" . $memberfilename . ".cgi";
$filetoopen = &stripMETA($filetoopen);
}
my @temptopics;
if (-e $filetoopen)
{
open(FILE, $filetoopen);
@temptopics = <FILE>;
close(FILE);
}
my $mytopics = "";
if (@temptopics)
{
foreach (@temptopics)
{
chomp($_);
my ($tempinforum, $tempintopic, $temptopictitle, $tempcurrenttime, $tempposticon, $tempmembername) = split(/\t/, $_);
if (($tempposticon eq "") || ($tempposticon !~ /^[0-9]+\.gif$/i))
{
$tempposticon = int(rand(23));
if ($tempposticon <10 )
{
$tempposticon = "0$tempposticon.gif";
}
else
{
$tempposticon = "$tempposticon.gif";
}
}
$temptopictitle =~ s/\&/\&/g;
$temptopictitle =~ s/\"/\"/g;
$temptopictitle =~ s/\</</g;
$temptopictitle =~ s/\>/>/g;
$temptopictitle =~ s/\ / /g;
if (length($temptopictitle) > 30)
{
$temptopictitle = substr($temptopictitle, 0, 26);
if ($temptopictitle =~ /^([\000-\177]|[\200-\377][\200-\377])*([\000-\177]|[\200-\377][\200-\377])$/)
{
$temptopictitle .= " ...";
}
else
{
chop($temptopictitle);
$temptopictitle .= " ...";
}
}
else
{
my $addspace = 30 - length($temptopictitle);
for (my $i = 0; $i < $addspace; $i++) {$temptopictitle .= " ";}
}
$temptopictitle =~ s/\&/\&/g;
$temptopictitle =~ s/\"/\"/g;
$temptopictitle =~ s/</\</g;
$temptopictitle =~ s/>/\>/g;
$temptopictitle =~ s/ /\ /g;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($tempcurrenttime + $timezone * 3600 + $timedifferencevalue * 3600);
$year += 1900;
$mon++;
$mon = "0$mon" if ($mon < 10);
$mday = "0$mday" if ($mday < 10);
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$tempcurrenttime = "$year/$mon/$mday $hour:$min";
if ($mode eq "all")
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="帖子發表時間: $tempcurrenttime">$temptopictitle</a>[<a href=profile.cgi?action=show&member=$tempmembername title="點擊查看$tempmembername的資料" target=_blank>$tempmembername</a>]<br>~;
}
elsif ($mode eq "post")
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="最後回復時間: $tempcurrenttime">$temptopictitle</a><br>~;
}
else
{
$mytopics .= qq~<img src=$imagesurl/posticons/$tempposticon border=0> <a href=$boardurl/topic.cgi?forum=$tempinforum&topic=$tempintopic target=_blank title="最後參與時間: $tempcurrenttime">$temptopictitle</a><br>~;
}
}
}
else
{
$mytopics = " 暫時沒有記錄";
}
return $mytopics;
}
| | |
版權所有，但歡迎擅自轉載。
|
|
|
頂端 
加到"我的最愛"
主題管理：
總固頂 
取消總固頂 
短訊息
查看
搜尋
通訊錄
複製
引用
回覆
只看我
2003/08/23 06:01pm 
IP: 已設定保密
