📄 discus2lb5000.cgi
字号:
#!/usr/bin/perl
#####################################################
# Discus 用户资料转换器，LB5000 II 用户的福音！
# 程序编制： 山鹰糊 webmaster@cgier.com
# 版权所有： CGI 编程者之家 http://www.CGIer.com
######################################################
$discusmember = "/path/to/UBB members dir/"; # 输入 Discus 用户资料所在的目录的绝对路径，最后不要遗漏 / 。
$lb5000member = "/path/to/LB5000 members dir/"; # 请输入 LB5000 用户资料所在的目录的绝对路径，最后不要遗漏 / ，注意设置 777 属性。
$date = time();
print "Content-Type: text/html\n\n";
print "<html><body>";
print "<center><h1><b><u>用户转换 （Discus --> LB5000 II）</u></b></h1><br><br><br><br><br><br><br><center><h2><b>开始处理</b></h2>";
open(DATEI,"${discusmember}user.txt") || die "Discus 用户库没有找到";
@memberlist=<DATEI>;
close(DATEI);
mkdir(newmember,0777);
$i=0;
$point=0;
foreach $zeile (@memberlist)
{
$i++;
$point++;
print "<b>.<b>";
if ($point > 100)
{
print "<br>";
$point = 0
}
$zeile =~ tr/[:]/[|]/;
@member = split(/\|/,$zeile);
$name = @member[0];
$passwort = @member[1];
$email = @member[2];
$filenames = $name;
$filenames =~ s/ /_/gi;
$filenames =~ tr/A-Z/a-z/;
$memberarray = "$name\t$passwort\tMember\tme\t0|0\t$email\tno\t\thttp://\t\t\t\t\t$date\tNot Posted\t\t\t\tnoavatar\t";
@memberarray = ($memberarray);
open(MEMBERDATEI,">${lb5000member}$filenames.cgi");
print MEMBERDATEI "@memberarray";
close(MEMBERDATEI);
}
print "<BR><BR>OK，一切 OK 啦！总共转换了 $i 个用户！<BR><BR>\n";
print "程序编制：<a href=\"mailto:webmaster\@cgier.com\">山鹰(糊)</a><BR>";
print "版权所有：<a href=\"http://www.cgier.com/\">CGI 编程者之家</a>";
exit;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -