[原创+发布]会员精华集 For LeoBBSx / By 路杨

#############################################################
#
#        [原创+发布]会员精华集 V.1.0 for LeoBBSx
#        性质 ： LeoBBSx插件
#        本插件用于显示该会员的所有精华帖子
#        程序作者：路杨(EasunLee) http://perl.easunstudio.com
#                                 http://www.leohacks.com
#        版权所有，欢迎转载。但 敬请保留版权+出处。
#
#############################################################

详细介绍：

1。本插件用于显示该会员的所有精华帖子
2。亦采用Leobbsx目前的cache机制，可以最大程度的降低资源占用。
3。单独程序设置，只对原jinghua.cgi做少量修改。（状态显示代码除外）
4。支持随机数据目录，安全性能有较好提升。
5。和系统cache机制精密结合，不会担心操作后的显示问题。

1。jhshow.cgi ：会员精华集主程序，放在程序目录下。非Win32要求 755。
2。目录 jinghua （可以改成 jinghuaXXXXX目录，即加随机数。）：数据目录，存放jinghua数据，在程序目录下，非Win32要求 777. 其下文件要求666
   (该目录如果不存在，程序会自动建立。)

1。上传jhshow.cgi到程序目录下，建立jinghua目录，按照上面 系统文件 说明设置属性。
2。修改 jinghua.cgi。方法如下：
 打开jinghua.cgi，在其最后加上

sub upjhshow
{ #add by Easunlee(路杨)

   my ($nametocheck,$thisjh,$act) = @_;    # 用户名、帖子(结构f_t),加减？
   $nametocheck =~ s/ /\_/g;
   $nametocheck =~ tr/A-Z/a-z/;
   $nametocheck =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;

   &getjhshowdir() unless $jhshowdir;

   #if (-e )
   my $file ="${lbdir}$jhshowdir/$nametocheck.cgi";
   my $size= (-s $file);
   my $filedata ="";
   if ($size) {
       sysopen(FILE,"$file",O_RDONLY,0666) or return 0;
       sysseek(FILE, 0, 0); #定位
       sysread(FILE, $filedata,$size);
       close(FILE);

       #$filedata=~s/[\r\n]/\n/g;
       $filedata=~s/\r//g;
       $filedata =~ s/\n{2,}/\n/isg; ##空行删除
       $filedata =~ s/\n$//s; ##删除后面的\n
  }


   $filedata =$thisjh."\n".$filedata if($act eq "+");
   $filedata =~ s/(^|\n)$thisjh(\n|$)/$1$3/s if($act eq "-");

   &winlock($file) if ($OS_USED eq "Nt");
   open(JHSHOW, ">$file");
    flock(JHSHOW, 2) if ($OS_USED eq "Unix");
   print JHSHOW "$filedata\n";
    flock(JHSHOW, 8 ) if ($OS_USED eq "Unix");
   close(JHSHOW);
   &winunlock("$file") if ($OS_USED eq "Nt");
   unlink ("${lbdir}$jhshowdir/$nametocheck.pl");

}

sub getjhshowdir
{
   opendir (DIRS, "$lbdir");
   my @files = readdir(DIRS);
   closedir (DIRS);
   my @needdir = grep(/^jinghua/i, @files);
   $jhshowdir = $needdirΎ];

}

找到

               &sendtoposter("$inmembername","$mn","","jinghua","$fid","$tid", "$topictitle","") if (($sendmanageinfo eq "yes")&&(lc($inmembername) ne lc($mn))&&($act eq "+"));

在其后面加上

&upjhshow ($mn,"$fid\_$tid",$act);

 可以按照喜好，自己任意在 /帖子界面 /分论坛界面 /控制面版菜单/个人资料/ 中加入连接。连接地址为
 jhshow.cgi?member=XXXX （XXXX为要查看的会员名字），如果调用自己的精华集可以直接调用jhshow.cgi
 比如在控制面版菜单加入，即可在打开bbs.lib.pl，找到
 

<div class=menuitems> <a href=delmycache.cgi title=清除我的缓存，确保个人所有资料都是最新的><font color=#000000>更新我的缓存</font></a> </div>

在这句前面加上

<div class=menuitems> <a href=jhshow.cgi title=查看我自己的所有精华帖子><font color=#000000>我的所有精华</font></a> </div>

注意，在这句里面不要有任何换行，因为这个是js数组的要求：）

其他添加办法类似，为纯粹的HTML代码。这里不做讨论。 :P