yabb2lb5000.cgi

一个linux论坛

#!/usr/bin/perl

#####################################################
# YaBB 用户资料转换器，LB5000 II 用户的福音！
# 程序编制： 山鹰糊  [e-mail]
# 版权所有： CGI 编程者之家  http://www.CGIer.com
######################################################

$yabbdir = "/path/to/YaBB members dir/";	#YaBB 用户目录，最后不要遗漏 / 
$IBdir   = "/path/to/LB5000 members dir/"; 	#LB5000 用户目录，最后不要遗漏 / ，注意设置 777 属性

print "Content-type: text/html\n\n";
print "YaBB --> LB5000 用户数据转换器<BR><BR>\n";

opendir (DIR, "$yabbdir") || die("不能打开 YaBB 用户目录");
@dirdata = readdir(DIR);
closedir (DIR);

@yabbers = grep(/dat/,@dirdata);
$time = time;

foreach (@yabbers) {
    open (YABB, "$yabbdir/$_") || die("不能打开文件 $yabbdir/$_");
    @member = <YABB>;
    close (YABB);

    $username = $_;
    $username =~ s/\.dat//g;

    foreach (@member) {
        chomp $_;
        }
    $membercode = "me";
    $password = $member[0];
    $name     = $member[1];
    $email    = $member[2];
    $www      = $member[4];
    $sig      = $member[5];
    $posts    = $member[6];
    $title    = $member[7];
    $icq      = $member[8];

    $sig =~ s/\&\&/<br>/g;

    if ($title ne "Administrator") { $title = "Member"; $membercode = "me"; }
    else { $membercode = "ad"; }

    $name = y/ /_/;

    my $filename = "$IBdir" . "$name" . ".cgi";
    open (IKON, ">$filename");
    print IKON "$name\t$password\t$title\t$membercode\t$posts\t$email\tyes\txxx.xx.xxx.xx\t$www\t\t$icq\t\t\t$time\t\%\%\%$time\%\%\%\t$sig\t0\t\t\t\t\t\t\t\t\t\n";
    close (IKON);
    $membercount ++;
    $lastmember = "$username";
    print "用户 $username 已经成功转换成 LB5000 II 用户了！<BR><BR>";
    $www = ""; $sig = ""; $icq = "";
    }
    
    print "OK，一切 OK 啦！总共转换了 $newtotal 个用户！<BR><BR>\n";
    print "程序编制：<a href=\"mailto:webmaster\@cgier.com\">山鹰(糊)</a><BR>";
    print "版权所有：<a href=\"http://www.cgier.com/\">CGI 编程者之家</a>";
    exit;