wdb2lb5000.cgi

一个linux论坛

#!/usr/bin/perl 

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

$userhead= "g:/www/9438/wdbmember/";      # WDB 用户目录，最后不要遗漏 /
$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 = 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";               
    ($name,$password,$usericon,$email,$oicq,$regdate,$signature,$homepage,$area,$no,$no,$no,$postamount,$publicemail,$no)=split(/\|/,$wuyu);

    ($name,$temp)=split(/\./,$name);
     $name =~ s/ /_/gi;
     $name =~ tr/A-Z/a-z/;
    open(IBMEMBER,">$lb5000member$name$ending") || die ("打开 LB5000 的用户数据存放目录错误，请检查路径！"); 
    print IBMEMBER "$name\t$password\tMember\tme\t$postamount\t$email\t$publicemail\txxx.xxx.xxx.xxx\t$homepage\t$oicq\t$icqnumber\t$area\t\t980364618\tNot Posted\t$signature\t\t\t$usericon\t\t\t\t\t80\t80\t\n"; 
    close(IBMEMBER); 
    print "用户 $UserName 已经成功转换成 LB5000 II 用户了！<BR><BR>"; 
}
# 程序完。