OM
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Да походу его и нет там: ### Being Program $ending = ".cgi"; $membernumber = 00000001; 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(UBBMEMBERINFO,"$UBBmember$membernumber$ending")){ @ubbmemberinfo = <UBBMEMBERINFO>; print "Opened $UBBmember$membernumber$ending<BR>\n"; close(UBBMEMBERINFO); print "Closed $UBBmember$membernumber$ending<BR>\n"; chop (@ubbmemberinfo[0]); chop (@ubbmemberinfo[1]); chop (@ubbmemberinfo[2]); chop (@ubbmemberinfo[3]); chop (@ubbmemberinfo[4]); chop (@ubbmemberinfo[5]); chop (@ubbmemberinfo[6]); chop (@ubbmemberinfo[7]); chop (@ubbmemberinfo[8]); chop (@ubbmemberinfo[9]); chop (@ubbmemberinfo[10]); chop (@ubbmemberinfo[11]); chop (@ubbmemberinfo[12]); chop (@ubbmemberinfo[13]); chop (@ubbmemberinfo[14]); print "Choped 'em<BR>\n"; $name = "@ubbmemberinfo[0]"; print "$name<BR>\n"; $realname = $name; $name =~ s/ /_/gi; print "$name<BR>\n"; $filetocheck = "$ikonmember" . "$name$ending"; if (-e $filetocheck) { print "Username ($realname) already taken by Ikonboard..."; next; } open(IKONMEMBERINFO,">$ikonmember$name$ending") || die ("opening the Ikonmembers directory failed, please check your paths!"); flock(IKONMEMBERINFO,2); print "@ubbmemberinfo[0]|@ubbmemberinfo[1]|Member|me|@ubbmemberinfo[7]|@ubbmemberinfo[2]|@ubbmemberinfo[11]|xxx.xxx.xxx.xxx|@ubbmemberinfo[3]||@ubbmemberinfo[13]|@ubbmemberinfo[6]|@ubbmemberinfo[9]|971136842|Not Posted|@ubbmemberinfo[12]|| <BR>\n"; print IKONMEMBERINFO "$realname|@ubbmemberinfo[1]|Member|me|@ubbmemberinfo[7]|@ubbmemberinfo[2]|@ubbmemberinfo[11]|xxx.xxx.xxx.xxx|@ubbmemberinfo[3]||@ubbmemberinfo[13]|@ubbmemberinfo[6]|@ubbmemberinfo[9]|971136842|Not Posted|@ubbmemberinfo[12]||\n"; flock(IKONMEMBERINFO,8); close(IKONMEMBERINFO); print "$realname converted to ikonboard successfully!"; } else { print "Member number $UBBmember$membernumber$ending doesn't exist.<BR>\n"; } $membernumber = $membernumber+1; } print " we're done \n"; print end_html; exit; |