ubb2lb5000.cgi

一个linux论坛

#!/usr/bin/perl

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

$ubbmember    = "/path/to/UBB members dir/";   	# 输入 UBB 用户资料所在的目录的绝对路径，最后不要遗漏 / 。
$lb5000member = "/path/to/LB5000 members dir/"; # 请输入 LB5000 用户资料所在的目录的绝对路径，最后不要遗漏 /  ，注意设置 777 属性。

### 如果你不懂 CGI，以下部分请千万不要修改！
$ending = ".cgi"; 		# LB5000 的用户数据文件后缀为 .cgi
$membernumber = 00000001;	# UBB 用户开始编号
$totlenumber = 0;		# 用户个数清 0
print "Content-type: text/html\n\n";
print "UBB --> LB5000 用户数据转换器<BR><BR>\n";
while ($membernumber < 100000)    {
   if ($membernumber < 10) 	 { $membernumber = "0000000$membernumber"; }
   elsif ($membernumber < 100)   { $membernumber = "000000$membernumber";  }
   elsif ($membernumber < 1000)  { $membernumber = "00000$membernumber";   }
   elsif ($membernumber < 10000) { $membernumber = "0000$membernumber";   }
   elsif ($membernumber < 100000){ $membernumber = "000$membernumber";   }
   if (open(FILE,"$ubbmember$membernumber$ending")){
      @ubbmem = <FILE>;
      close(FILE);
      print "提取用户文件： $ubbmember$membernumber$ending<BR>\n";
      for ($i=0;$i<=14;$i++) { chop (@ubbmem[$i]); }
      $name = "@ubbmem[0]";
      print "提取用户名： $name<BR>\n";
      $realname = $name;
      $name =~ s/ /_/gi;
      $name =~ tr/A-Z/a-z/;
      $name =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\=\+\\\[\]\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
      $filetocheck = "$lb5000member" . "$name$ending";
      if (-e $filetocheck) { print "用户 $realname 已经存在，不能转换！"; next; }
      open(IBMEMBER,">$lb5000member$name$ending") || die ("打开 LB5000 的用户数据存放目录错误，请检查路径！");
      print IBMEMBER "$realname\t@ubbmem[1]\tMember\tme\t@ubbmem[7]\t@ubbmem[2]\t@ubbmem[11]\txxx.xxx.xxx.xxx\t@ubbmem[3]\t\t@ubbmem[13]\t@ubbmem[6]\t@ubbmem[9]\t980364618\tNot Posted\t@ubbmem[12]\t\t\t\t\t\t\t\n";
      close(IBMEMBER);
      print "用户 $realname 已经成功转换成 LB5000 II 用户了！<BR><BR>";
      $totlenumber ++;
   }
   $membernumber = $membernumber+1;
}
print "OK，一切 OK 啦！总共转换了 $totlenumber 个用户！<BR><BR>\n";
print "程序编制：<a href=\"mailto:webmaster\@cgier.com\">山鹰(糊)</a><BR>";
print "版权所有：<a href=\"http://www.cgier.com/\">CGI 编程者之家</a>";
exit;