虎翼网 51.net 安装特别说明.txt

一个linux论坛

#######################################################################
# 如果需要其他支持文件，请注意查看 readme.txt 文档，谢谢！
#######################################################################
#
################### 虎翼网 51.net 安装特别说明 ########################

============================================================================
☆请使用我们 http://www.leoboard.com 提供的虚拟主机放置 LB 论坛，完全支持lb论坛，并且免费安装最新版本
============================================================================

注意：
-----
首先你先直接按照本论坛的安装说明在你的 51.net 上安装一次，如果安装后论坛能
正常使用的话，请略过下面的所有内容！只能说你运气好，你的账号在 51.net 上的
空间是没有 CGI 的特殊限制的！如果安装后无法运行，请仔细阅读下面的特别安装
说明，然后再次安装，一般按照下面的方法都能在 51.net 上成功安装 LB5000XP 的
==============================================================================

原因:
-----
由于 51.net 的很多账号所在的空间是不支持本论坛自己的核心组件 LBCGI.PM 的，所以
当本论坛安装在这些账号的空间上的时候，都将无法正常使用！因此，我们只有手工修改
所有的 CGI 文件，使用系统内部的 CGI.pm 来取代 LBCGI.PM 才行，虽然这样做会导致
论坛的 CPU 占用率和内存占用增加，但我想这总比无法运行论坛要好吧 :)
==============================================================================

---------
自动修改:
---------
上传整个程序之前，先运行一下 add-on 目录下的 LB Modify For 51.exe 文件，输入相应
的路径后，选择自动转换，就可以把相应目录下的所有的文件都转换成 51.net 上所能运行
的格式。以后凡是有任何 LB5000 MX 的插件或者 hack 程序，都可以这样转换后直接使用。
为了能正常的上传头像和附件，请转换后再看下面手动修改的第六步，按照说明操作修改即可
（感谢网友 jimqiu 制作此工具）
==============================================================================

---------
手动修改:
---------
用任意一种文本编辑器打开 cgi-bin 下的所有 *.cgi 文件，你在每个文件的前面部分
看见类似下面的代码段（如果没有类似代码，就表明此文件无需修改）：
-------------------------------------------------------------------------------
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=1024*150;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "lb.lib.pl";
require "lbadmin.lib.pl";
require "data/progs.cgi";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "data/cityinfo.cgi";
$|++;
$query = new LBCGI;
-------------------------------------------------------------------------------
第一步：删除掉前面的 BEGIN { 到 } 之间的所有行，也就是删除前面的 13 行代码，


第二步：将原先第 14 行的代码 use LBCGI; 替换成 use CGI qw(:standard); 


第三步：将整个文件内出现 LBCGI 的地方全部用 CGI 来代替，也就是上面的第 15 行
        开始变成下面的代码段(只要替换 LBCGI 为 CGI，后面的参数请保持原样):
---------------------------
$CGI::POST_MAX=1024*150;
$CGI::DISABLE_UPLOADS = 1;
$CGI::HEADERS_ONCE = 1;
----------------------------
文件内一般还有一处，类似下面这行，其中的 LBCGI 也要改 CGI，其实，你可以用编辑
器的替换功能，替换掉所有出现 LBCGI 的地方，用 CGI 取代就可以了。
--------------------
$query = new LBCGI;
--------------------
修改成：
--------------------
$query = new CGI;
--------------------


第四步：在第一个 require 语句行的前面，增加下面 3 行代码：
--------------------------------------------------
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
--------------------------------------------------
而在最后一个 require 语句行的后面，增加下面 6 行代码：
--------------------------------------------------------------------------------
};
if ($@) {
    print header(-charset=>gb2312); print start_html(-title=>"LB5000 出错！");
    print "不能够找到文件：$@\n请更改每个程序中的 require 语句，填入绝对路径！";
    print end_html; exit;
}
--------------------------------------------------------------------------------


第五步：这一步是一个注意，在 adbackup.cgi 文件中，文件前面部分的代码有下面两行
        代码，请务必保留，不要去删除或者修改这两行：
--------------------------
use Archive::Tar;
use Cwd;
use File::DosGlob 'glob';
use File::Copy;
--------------------------

文件中的这行也请保留，保持原来的位置即可。
------------------
$|++;
------------------


最后请验证，修改后的代码应该类似下面：
--------------------------------------------------------------------------------
use CGI qw(:standard);
$CGI::POST_MAX=1024*150;
$CGI::DISABLE_UPLOADS = 1;
$CGI::HEADERS_ONCE = 1;
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "lb.lib.pl";
require "lbadmin.lib.pl";
require "data/progs.cgi";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "data/cityinfo.cgi";
};
if ($@) {
    print header(-charset=>gb2312); print start_html(-title=>"LB5000 出错！");
    print "不能够找到文件：$@\n请更改每个程序中的 require 语句，填入绝对路径！";
    print end_html; exit;
}
$|++;
$query = new CGI;
--------------------------------------------------------------------------------

第六步： 为了能在 51.net 上正常的上传头像和附件，请额外做下面步骤（如果你能正常
        的上传头像和附件的话，请千万别做这此步骤哟）：
打开 post.cgi 和 postings.cgi 文件，搜索
----------------------------------------------------------------
my $up_filename =$query->uploadInfo($addme);
my ($up_name,$up_ext) = split(/\./,$up_filename);
----------------------------------------------------------------
删除这两行，并用下面四行取代
--------------------------------------------------
$addme=~ s/\n//g;
my $up_filename =$addme;
@up_name = split(/\./,$up_filename);
$up_ext = $up_name[-1];
--------------------------------------------------

再搜索开始有下面字符的一行
----------------------------------------------------------------
while ($buffer=$query->readUploadFile
----------------------------------------------------------------
删除这一行，并用下面这行取代
--------------------------------------------------
while ($bytesread=read($addme,$buffer,1024)) {
--------------------------------------------------

再次搜索开始有下面字符的一行
----------------------------------------------------------------
$filesize=$filesize+4;
----------------------------------------------------------------
删除这一行，并用下面这行取代
--------------------------------------------------
$filesize=$filesize+1;
--------------------------------------------------


接着打开 profile.cgi 和 register.cgi 文件，搜索
----------------------------------------------------------------
my $filename =$query->uploadInfo($addme);
----------------------------------------------------------------
删除这一行，并用下面五行取代
--------------------------------------------------
$addme=~ s/\n//g;
my $up_filename =$addme;
my @up_name = split(/\./,$up_filename);
$filename = $up_name[-1];
$filename = lc($filename);
--------------------------------------------------

然后再搜索开始有下面字符的一行
----------------------------------------------------------------
while ($buffer=$query->readUploadFile
----------------------------------------------------------------
删除这一行，并用下面这行取代
--------------------------------------------------
while ($bytesread=read($addme,$buffer,1024)) {
--------------------------------------------------

再次搜索开始有下面字符的一行
----------------------------------------------------------------
$filesize=$filesize+4;
----------------------------------------------------------------
删除这一行，并用下面这行取代
--------------------------------------------------
$filesize=$filesize+1;
--------------------------------------------------

操作完这六个步骤，请再严格检查一遍。这样就制作好了 51.net 的专用版本了。


修改完毕后，请根据自己的情况参照下面相应的说明文件进行安装。
LB5000 或 IB2000 升级安装说明.txt
首次安装说明.txt
LB5000 MX 升级安装说明.txt

最后，预祝你安装使用成功！

==============================================================================
特别注意:
---------
1. 由于 51.net 空间的特殊性，我们无法保证本论坛的所有功能都能正常使用，如果
   出现问题，99% 是因为 51.net 空间对 CGI 的特殊限制导致的！

2. 以后请注意，不是专门给 51.net 的 hack 将不能直接使用，都需要进行类似上面
   五个步骤的修改！！！切记！切记！！
==============================================================================


-=-=-=-=-=-=-=-=-=-=-=
CGIer.com CEO 山鹰(糊)
=-=-=-=-=-=-=-=-=-=-=-