vbb2lb5000other.cgi

一个linux论坛

#!/usr/bin/perl

#####################################################
# Vbb 用户资料转换器，LB5000 II 用户的福音！
# 程序编制： kiu  [e-mail]
#
# 说明:
#      由于vbb密码使用了md5数据模式转换后用户原密码无效
#      需要重新提取密码
#       原程序在arrow汉化的vBulletin 2.2.1白金版安装脚本
#	的数据结构的基础上写的，没有使用过其他的版本
#	
######################################################

use strict;
use DBI();

my $vbbdbhost="localhost"; 	#数据库服务器主机名或IP地址
my $vbbdbname="cnvbb";        #数据库名
my $vbbdbuser="kiu";		#数据库用户名
my $vbbdbpass="88997";		#数据库用户密码

my  $lbdbpath="c:/apache/htdocs/lb5000/member/.";		# LB5000 的用户数据路径，注意设置 777 属性

my  $ending = ".cgi"; 		# LB5000 的用户数据文件后缀为 .cgi

my ($inmembername,$password,$membertitle,$membercode,$numberofposts,$emailaddress,$showemail,$ipaddress,$homepage,$aolname,$icqnumber,$newlocation,$interests,$joineddate,$lastpostdate,$signature,$timedifference,$privateforums,$useravatar,$userflag,$userxz,$misc3,$personalavatar,$personalwidth,$personalheight,$lastgone,$addjy,$meili,$mymoney,$sex,$education,$marry,$work,$born);
my $membercode           = "me";
my $membertitle          = "Member";
my $numberofposts        = "0|0";
my $joineddate           = time;
my $lastgone             = time;
my $jhmp                 = "无门无派";
my $lastpostdate         = "没有发表过";
        
print "Content-type: text/html\n\n";
print "Vbb --> LB5000 用户数据转换器<BR><BR>\n";

my  $dbh = DBI->connect("DBI:mysql:$vbbdbname:$vbbdbhost", $vbbdbuser, $vbbdbpass);
my $sth=$dbh->prepare(qq|SELECT * from user|) or die $!;
$sth->execute or die $!;

while (my @db=$sth->fetchrow_array){

	$inmembername=$db[2];
	$inmembername =~ s/ /_/gi;
    	$inmembername =~ tr/A-Z/a-z/;
	$password=$db[3];
	$emailaddress=$db[4];
	$homepage=$db[8];
	$icqnumber=$db[9];
	$signature=$db[12];
	$signature =~ s/\n//gi;
	if(-d $lbdbpath){
    open(sv,">$lbdbpath$inmembername$ending") || die ("打开 LB5000 的用户数据存放目录错误，请检查路径！"); 
    print sv "$inmembername\t$password\t$membertitle\t$membercode\t$numberofposts\t$emailaddress\t$showemail\t$ipaddress\t$homepage\t$aolname\t$icqnumber\t$newlocation\t$interests\t$joineddate\t$lastpostdate\t$signature\t$timedifference\t$privateforums\t$useravatar\t$userflag\t$userxz\t$misc3\t$personalavatar\t$personalwidth\t$personalheight\t0\t$lastgone\t1\t$addjy\t$meili\t$mymoney\t0\t$sex\t$education\t$marry\t$work\t$born\t\t\t\t\t\t\tnt\t\t\n";
    close(sv);
print "用户 $inmembername 已经成功转换成 LB5000 II 用户了！<BR><BR>"; 
}else { print "请查看LB5000 的用户数据路径是否正确~!";exit;}
}

$sth->finish;