#!/usr/bin/perl

#####################################################
# UBB 用戶資料轉換器，ib2000 用戶的福音！
# 程序編制： 山鷹糊  webmaster@cgier.com
# 版權所有： CGI 編程者之家  http://www.CGIer.com
######################################################

$ubbmember    = "/path/to/UBB members dir/";   	# 輸入 UBB 用戶資料所在的目錄的絕對路徑，請注意最后加 / 。
$ib2000member = "/path/to/ib2000 members dir/"; # 請輸入 ib2000 用戶資料所在的目錄的絕對路徑，請注意最后加 / 。

### 如果你不懂 CGI，以下部分請千萬不要修改！
$ending = ".cgi"; 		# ib2000 的用戶數據文件后綴為 .cgi
$membernumber = 00000001;	# UBB 用戶開始編號
$totlenumber = 0;		# 用戶個數清 0
print "Content-type: text/html\n\n";
print "UBB --> ib2000 用戶數據轉換器<BR><BR>\n";
while ($membernumber < 10000)    {
   if ($membernumber < 10) 	 { $membernumber = "0000000$membernumber"; }
   elsif ($membernumber < 100)   { $membernumber = "000000$membernumber";  }
   elsif ($membernumber < 1000)  { $membernumber = "00000$membernumber";   }
   elsif ($membernumber < 10000) { $membernumber = "0000$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;
      $filetocheck = "$ib2000member" . "$name$ending";
      if (-e $filetocheck) { print "用戶 $realname 已經存在，不能轉換！"; next; }
      open(IBMEMBER,">$ib2000member$name$ending") || die ("打開 ib2000 的用戶數據存放目錄錯誤，請檢查路徑！");
      print IBMEMBER "$realname|@ubbmem[1]|Member|me|@ubbmem[7]|@ubbmem[2]|@ubbmem[11]|xxx.xxx.xxx.xxx|@ubbmem[3]||@ubbmem[13]|@ubbmem[6]|@ubbmem[9]|980364618|Not Posted|@ubbmem[12]|||||||\n";
      close(IBMEMBER);
      print "用戶 $realname 已經成功轉換成 ib2000 用戶了！<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;