bm2ib2000.cgi

来自「绿叶网络小学校园网-完全适合小学的网站」· CGI 代码 · 共 40 行

#!/usr/bin/perl 
################################ 
#       用户数据转换 v0.1      # 
################################ 

$userhead= "g:/www/9438/bm2000/";       #BM2000用户目录 
$ib2000member = "g:/www/9438/bm2000/";  #IB2000用户目录 

###############以下不必修改################# 

$ending = ".cgi"; 
print ("Content-type: text/html\n\n"); 
$userdir=$userhead; 
chop $userdir; 
opendir (MEMBERDIR, "$userdir"); 
   @stats = readdir(MEMBERDIR); 
closedir (MEMBERDIR); 
@stats = grep(/txt/, @stats); 
@stats = sort @stats; 
$totaluserdata=$#stats+1; 
for ($i=0;$i<$totaluserdata;$i++) 

{ 
$name = @stats[$i]; 
      $filesname="$ib2000member$name"; 
      open(file,"<$filesname") || die("不能打开文件$filename"); 
      @array=<file>;     
      close(file); 
      $wuyu = "@array";               
     ($TotalPosts,$a,$UserName,$Password,$b,$Email,$ICQnumber,$e,$DateRegistered,$Signature,$AvatarWording,$f,$c,$d,$whatever,$URL,$OICQnumber,$Location)=split(/,/,$wuyu);               
   #  print "$TotalPosts,,$UserName,$Password,,$Email,$ICQnumber,56 k,$DateRegistered,$Signature,$AvatarWording,checked,,,whatever,$URL,$OICQnumber,$Location"; 

     open(IBMEMBER,">$ib2000member$UserName$ending") || die ("打开 ib2000 的用户数据存放目录错误，请检查路径！"); 
     print IBMEMBER "$UserName|$Password|Member|me|$TotalPosts|$Email|yes|xxx.xxx.xxx.xxx|$URL|$OICQnumber|$ICQnumber|$Location|$DateRegistered|980364618|Not Posted|$Signature|||noavatar||||$AvatarWording|80|80|\n"; 
     close(IBMEMBER); 
     print "用户  $UserName已经成功转换成 ib2000 用户了！<BR><BR>"; 
} 
# 程序完。