说明：

1、根据 //www.leohacks.com/cgi-bin/topic.cgi?forum=14&topic=552 整理。详细机制皆在这个帖子里面。
2、原来是为每10分钟加多少论坛货币。整理时候为了大家方便变成每1分钟。。
3、后台添加设置。
4、如果用户在150s内重复登陆不计算在线时间。即不奖励。

修改：

1、setstyles.cgi：

找到

<tr>
               <td bgcolor=#FFFFFF colspan=2>
               <font color=#333333>默认用户在线时间是多少分钟？<BR>如果用户超过这个时间还没有动作则默认用户已经离开了论坛。</font></td>
               <td bgcolor=#FFFFFF>
               <input type=text name="membergone" value="$membergone" size=3 maxlength=3>　一般为 5 -- 15</td>
               </tr>

在其下面添加：

 <tr>
               <td bgcolor=#FFFFFF colspan=2>
               <font color=#333333>用户在线时间1分钟奖励多少论坛货币？<BR>如果用户在150s内重复登陆不计算在线时间。<br>该数据会在退出登陆界面显示。</font></td>
               <td bgcolor=#FFFFFF>
               <input type=text name="onlineaddmoney" value="$onlineaddmoney" size=3 maxlength=3>　一般为 5 -- 15</td>
               </tr>

保存文件后进后台“默认风格设置”设置一次这个时间，保存。

2、bbs.lib.pl

找到

if ($visit eq "T") { $visitno++ if (($nowtimetemp - $lastgone) > 300); } else { $onlinetime = 0 if ($onlinetime =~ /[^0-9]/); $onlinetime = $onlinetime + $savedtime-$savedcometime if (($nowtimetemp - $lastgone) > 150); unlink ("${lbdir}cache/id/$nametocheck.cgi"); unlink ("${lbdir}cache/myinfo/$nametocheck.pl"); unlink ("${lbdir}cache/online/$nametocheck.cgi"); }

if ($visit eq "T")
           {
             $visitno++ if (($nowtimetemp - $lastgone) > 300);
           }
           else
           {
             $onlinetime = 0 if ($onlinetime =~ /[^0-9]/);
             my $time_s = $savedtime-$savedcometime;
             $onlinetime = $onlinetime + $time_s  if (($nowtimetemp - $lastgone) >150);
             if (($nowtimetemp - $lastgone) >150)
             {
               $mymoney = $mymoney + ( int( $time_s /60) ) * $onlineaddmoney;
               if (($thisprog eq "loginout.cgi")&& (lc($membername) eq lc($inmembername)) ) #处理显示
               {
                my $time_m = int( $time_s /60);
                my $added_m = (int( $time_s /60) ) * $onlineaddmoney;
                require "data/cityinfo.cgi" if ($moneyname eq '');
                $showit="<li>您在论坛停留了 ".$time_m." 分钟，得到 ".$added_m." $moneyname的津贴奖励。";
               }
               #end
             }
             else
             {
                 require "data/cityinfo.cgi" if ($moneyname eq '');
                 $showit="<li>您在论坛停留时 ".$time_s." 秒，得到 0 $moneyname的津贴奖励。" if (($thisprog eq "loginout.cgi")&& (lc($membername) eq lc($inmembername)) );
             }
             unlink ("${lbdir}cache/id/$nametocheck.cgi");
             unlink ("${lbdir}cache/myinfo/$nametocheck.pl");
             unlink ("${lbdir}cache/online/$nametocheck.cgi");
           }

找到

elsif ($action eq "logout") {
  &cleanolddata1;
  if ($inmembername ne "" && $inmembername ne "客人") {
替换成
elsif ($action eq "logout") {
  &cleanolddata1;
  undef $showit;
  if ($inmembername ne "" && $inmembername ne "客人") {
  $showit=qq~<li>系统忙，您在论坛上得到的津贴奖励暂时不显示。~;

找到

$output .= qq~<tr><td bgcolor=$titlecolor $catbackpic valign=middle align=center><font face="$font" color=$fontcolormisc><b>您现在已经退出论坛</b></font></td></tr>
<tr><td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
具体选项：<ul><li><a href="leobbs.cgi">返回论坛</a><li><a href=javascript:close();>关闭您的浏览器</a></ul></tr></td></table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
~;

替换成

$output .= qq~<tr><td bgcolor=$titlecolor $catbackpic valign=middle align=center><font face="$font" color=$fontcolormisc><b>您现在已经退出论坛</b></font></td></tr>
<tr><td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
具体选项：<ul>$showit<li><a href="leobbs.cgi">返回论坛</a><li><a href=javascript:close();>关闭您的浏览器</a></ul></tr></td></table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>

其他：本Hack采用了LB本身更新机制，不管是否正常退出，皆按照时间添加货币的。

—— 作者：路杨　//www.easunstudio.com