bm2lb5000.cgi

一个linux论坛

#!/usr/bin/perl 

#####################################################
# BM200X 用户资料转换器，LB5000 II 用户的福音！
######################################################

$userhead= "g:/www/9438/bm2000/";       #BM2000 用户目录，最后不要遗漏 /
$lb5000member = "g:/www/9438/lb5000/";  #LB5000 用户目录，最后不要遗漏 /，注意设置 777 属性

###############以下不必修改################# 

$ending = ".cgi"; 
print ("Content-type: text/html\n\n"); 
$userdir=$userhead; 
chop $userdir; 
opendir (MEMBERDIR, "$userdir"); 
  @stats = readdir(MEMBERDIR); 
closedir (MEMBERDIR); 
@stats = grep(/\.txt/, @stats); 
@stats = sort @stats; 
$totaluserdata=$#stats+1; 
for ($i=0;$i<$totaluserdata;$i++) 

{ 
$name = @stats[$i]; 
     $filesname="$userhead$name"; 
     open(file,"$filesname") || die("不能打开文件$filename"); 
     @array=<file>;     
     close(file); 
     $wuyu = "@array";               
    ($TotalPosts,$a,$UserName,$Password,$b,$Email,$ICQnumber,$e,$DateRegistered,$Signature,$AvatarWording,$f,$c,$d,$whatever,$URL,$OICQnumber,$Location)=split(/,/,$wuyu);               
    ($name,$temp)=split(/\./,$name);
     $name =~ s/ /_/gi;
     $name =~ tr/A-Z/a-z/;
    open(IBMEMBER,">$lb5000member$name$ending") || die ("打开 LB5000 的用户数据存放目录错误，请检查路径！"); 
    print IBMEMBER "$UserName\t$Password\tMember\tme\t$TotalPosts\t$Email\tyes\txxx.xxx.xxx.xxx\t$URL\t$OICQnumber\t$ICQnumber\t$Location\t$DateRegistered\t980364618\tNot Posted\t$Signature\t\t\tnoavatar\t\t\t\t$AvatarWording\t80\t80\t\n"; 
    close(IBMEMBER); 
    print "用户 $UserName 已经成功转换成 LB5000 II 用户了！<BR><BR>"; 
}
# 程序完。