ubb2ib2000.cgi

绿叶网络小学校园网-完全适合小学的网站

#!/usr/bin/perl

#####################################################
# UBB 用户资料转换器，ib2000 用户的福音！
# 程序编制： 山鹰糊  [e-mail]
# 版权所有： 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;