bbs2lb5000.cgi

一个linux论坛

#!/usr/bin/perl 

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

$userhead= "d:/www/";       				     #BBS3000 用户目录，最后不要遗漏 /
$lb5000member = "c:/apache/htdocs/cgi-bin/lb5000/members/";  #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(/cgi$/, @stats); 
$totaluserdata=$#stats+1; 
if ($totaluserdata eq 0) {
  opendir (MEMBERDIR, "$userdir"); 
  @stats = readdir(MEMBERDIR); 
  closedir (MEMBERDIR); 
  @stats = grep(/pl$/, @stats); 
  $totaluserdata=$#stats+1;
}
@stats = sort @stats; 
for ($i=0;$i<$totaluserdata;$i++) 

{ 
$name = @stats[$i]; 
     $filesname="$userhead$name";
     open(file,"$filesname") || die("不能打开文件$filename"); 
     @array=<file>;     
     close(file); 
     $wuyu = "@array";               
    ($Password,$UserName,$Email,$URL,$DateRegistered,$Signature,$rdsex,$rdwork,$Location,$rdlove,$rdfy,$rdhf,$AvatarWording,$jiao,$iewin,$OICQnumber,$photo,$savecookie,$dejiname,$deji)=split(/\t/,$wuyu);

    ($name,$temp)=split(/\./,$name);
    $DateRegistered = time();
    $name =~ s/ /_/gi;
    $name =~ tr/A-Z/a-z/;
    $name =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\=\+\\\[\]\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
    open(IBMEMBER,">$lb5000member$name$ending") || die ("打开 LB5000 的用户数据存放目录错误，请检查路径！"); 
    print IBMEMBER "$UserName\t$Password\tMember\tme\t$rfy|$rhf\t$Email\tyes\txxx.xxx.xxx.xxx\t$URL\t$OICQnumber\t$ICQnumber\t$Location\t$rdlove\t$DateRegistered\t没有发表过\t$Signature\t0\t\t$AvatarWording\t$misc1\t$misc2\t$misc3\t$personalavatar\t$personalwidth\t$personalheight\t$rating\t$lastgone\t$visitno\t$addjy\t$meili\t$mymoney\t$postdel\t$rdsex\t$education\t$marry\t$rdwork\t$born\t$useradd1\t$useradd2\t$jhmp\t\n"; 
    close(IBMEMBER); 
    print "用户 $UserName 已经成功转换成 LB5000 II 用户了！<BR><BR>"; 
} 
print "OK，一切 OK 啦！总共转换了 $totaluserdata 个用户！<BR><BR>\n";
print "程序编制：<a href=\"mailto:webmaster\@cgier.com\">山鹰(糊)</a><BR>";
print "版权所有：<a href=\"http://www.cgier.com/\">CGI 编程者之家</a>";
exit;

# 程序完。