conv1.cgi

一个linux论坛

#!/usr/bin/perl
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#            http://[e-mail]/      大家一起邮
#
#############################################################
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;
use File::Copy;
$LBCGI::DISABLE_UPLOADS = 0;
$LBCGI::HEADERS_ONCE = 1;
require "lbadmin.lib.pl";
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "lb.lib.pl";

$|++;                                     # Unbuffer the output
print header(-charset=>gb2312);

        $dirtoopen2 = "$imagesdir" . "usr";
        opendir (DIR, "$dirtoopen2");
        @dirdata2 = readdir(DIR);
        closedir (DIR);
        @dirdata2 = grep(/\_/,@dirdata2);
        unlink "${lbdir}data/banlist.cgi";

      $filetoopen = "$lbdir" . "data/allforums.cgi";
      if (-e "$filetoopen") {
        &winlock($filetoopen) if ($OS_USED eq "Nt");
        open(FILE,"$filetoopen");
        flock(FILE, 1) if ($OS_USED eq "Unix");
        @allforums = <FILE>;
        close(FILE);
        &winunlock($filetoopen) if ($OS_USED eq "Nt");
      }
      else { undef @allforums; }
      $aaa= @allforums;
      mkdir ("${lbdir}boarddata", 0777);
      mkdir ("${lbdir}lock", 0777);
      mkdir ("${imagesdir}midi", 0777);
      mkdir ("${imagesdir}usr", 0777);
      mkdir ("${imagesdir}usravatars", 0777);
      mkdir ("${lbdir}backup", 0777);
      mkdir ("${lbdir}memfriend", 0777);
      mkdir ("${lbdir}memfav", 0777);
      mkdir ("${lbdir}FileCount", 0777);

        foreach $forum (@allforums) {
            chomp $forum;
            (my $forumid, my $category, my $categoryplace, my $forumname, my $forumdescription,my $no) = split(/\t/,$forum);
            next if (($forumid eq "")||($forumid !~ /^[0-9]+$/)||($category eq "")||($categoryplace eq "")||($forumname eq "")||($forumdescription eq ""));
            $dirtomake = "$lbdir" . "FileCount/$forumid";
            mkdir ("$dirtomake", 0777) if (!(-e "$dirtomake"));
            chmod (0777,"$dirtomake");
            $dirtomake = "$imagesdir" . "usr/$forumid";
            mkdir ("$dirtomake", 0777) if (!(-e "$dirtomake"));
            chmod (0777,"$dirtomake");
            @files = grep(/^$forumid\_/,@dirdata2);
            foreach (@files) {
	        copy("$dirtoopen2/$_","$dirtomake/$_");
		chmod(0666,"$dirtomake/$_");
	        unlink "$dirtoopen2/$_";
	    }
	    copy("${lbdir}forum$forumid/list.cgi","${lbdir}boarddata/list$forumid.cgi");
	    copy("${lbdir}forum$forumid/xzb.cgi","${lbdir}boarddata/xzb$forumid.cgi");
	    copy("${lbdir}forum$forumid/xzb1.cgi","${lbdir}boarddata/xzbs$forumid.cgi");
	    copy("${lbdir}forum$forumid/lastnum.cgi","${lbdir}boarddata/lastnum$forumid.cgi");
	    copy("${lbdir}forum$forumid/ontop.cgi","${lbdir}boarddata/ontop$forumid.cgi");
	    copy("${lbdir}forum$forumid/jinghua.cgi","${lbdir}boarddata/jinghua$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/list$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/xzb$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/xzbs$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/lastnum$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/ontop$forumid.cgi");
	    chmod(0666,"${lbdir}boarddata/jinghua$forumid.cgi");
	    unlink "${lbdir}forum$forumid/list.cgi";
	    unlink "${lbdir}forum$forumid/xzb.cgi";
	    unlink "${lbdir}forum$forumid/xzb1.cgi";
	    unlink "${lbdir}forum$forumid/lastnum.cgi";
	    unlink "${lbdir}forum$forumid/ontop.cgi";
	    unlink "${lbdir}forum$forumid/jinghua.cgi";
        }

print "总共 $aaa 个论坛的数据转换完毕！<BR><BR>\n\n";

opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @msgdir = grep(/^messages/i, @files2);
$msgdir = $msgdir[0];

        $dirtoopen2 = "${lbdir}$msgdir";
        opendir (DIR, "$dirtoopen2");
        @dirdata2 = readdir(DIR);
        closedir (DIR);

      mkdir ("${lbdir}$msgdir/in", 0777);
      mkdir ("${lbdir}$msgdir/out", 0777);
      mkdir ("${lbdir}$msgdir/main", 0777);
	
      @data1 = grep(/\_msg\.cgi/i,@dirdata2);
      foreach (@data1) {
	copy("${lbdir}$msgdir/$_","${lbdir}$msgdir/in/$_");
	chmod(0666,"${lbdir}$msgdir/in/$_");
	unlink "${lbdir}$msgdir/$_";
      }
      @data2 = grep(/\_out\.cgi/i,@dirdata2);
      foreach (@data2) {
	copy("${lbdir}$msgdir/$_","${lbdir}$msgdir/out/$_");
	chmod(0666,"${lbdir}$msgdir/out/$_");
	unlink "${lbdir}$msgdir/$_";
      }
      @data3 = grep(/\_main\.cgi/i,@dirdata2);
      foreach (@data3) {
	copy("${lbdir}$msgdir/$_","${lbdir}$msgdir/main/$_");
	chmod(0666,"${lbdir}$msgdir/main/$_");
	unlink "${lbdir}$msgdir/$_";
      }
print "论坛短消息数据转换完毕！<BR><BR>转换全部完成！<BR><BR>\n";
print "程序编制：<a href=\"mailto:webmaster\@cgier.com\">山鹰(糊)</a><BR>";
print "版权所有：<a href=\"http://www.cgier.com/\">CGI 编程者之家</a>";

exit;