foruminit.cgi

一个linux论坛

        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#990000>
        <b>计算用户排名</b><p>
        <font color=#333333><B>当前共有 $allnamenum 个注册用户，已经进行排名了 $lastone 个用户。。。</b><BR><BR><BR>
        <font color=#333333>如果无法自动开始下 $noofone 个用户的排名，请点击下面的链接继续<p>
        >> <a href="$thisprog?action=uptopnext&beginone=$lastone&noofone=$noofone">继续进行排名用户</a> <<
	<meta http-equiv="refresh" content="2; url=$thisprog?action=uptopnext&beginone=$lastone&noofone=$noofone">
	<BR><BR>

        </td></tr>
         ~;
     }
     else {


open (FILE, "$lbdir/data/lbmember0.cgi");
flock(FILE, 1) if ($OS_USED eq "Unix");
my @file = <FILE>;
close (FILE);
foreach my $line (@file) {
my @tmpuserdetail = split (/\t/, $line);
chomp @tmpuserdetail;
$postundmember {"$tmpuserdetail[0]"} = $tmpuserdetail[1];
}
my @sortiert = reverse sort { $postundmember{$a} <=> $postundmember{$b} } keys(%postundmember);

open  (MEMFILE0, ">${lbdir}data/lbmember0.cgi");
flock (MEMFILE0, 2) if ($OS_USED eq "Unix");
foreach my $member (@sortiert[0 ... 99]) {
    next if ($member eq "");
    print MEMFILE0 "$member\t$postundmember{\"$member\"}\t\n";
}
close(MEMFILE0);


        print qq~
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#990000>
                    
        <b>计算用户排名</b><p>
                    
        <font color=#333333>当前共有 $allnamenum 个注册用户，计算用户排名已经结束！<BR><BR>
        </td></tr>
         ~;
     }

}

sub doemot {

$dirtoopen = "$imagesdir" . "emot";
opendir (DIR, "$dirtoopen"); 
my @dirdata = readdir(DIR);
closedir (DIR);
my @emoticondata = grep(/gif$/i,@dirdata);

open (EMFILE, ">${lbdir}data/lbemot.cgi");
foreach $picture (@emoticondata) { 
    print EMFILE "$picture\n";   
    }  
close(EMFILE);

$dirtoopen = "$imagesdir" . "posticons";
opendir (DIR, "$dirtoopen");
my @dirdata = readdir(DIR);
closedir (DIR);
my @emoticondata = grep(/gif$/i,@dirdata);

open (EMFILE, ">${lbdir}data/lbpost.cgi");
foreach $picture (@emoticondata) { 
    print EMFILE "$picture\n";   
    }  
close(EMFILE);
        print qq~
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#990000>
                    
        <b>初始化EMOT和POST图片</b><p>
                    
        <font color=#333333>所有EMOT和表情图片已经更新！</font>
                    
        </td></tr>
         ~;
}         
     
sub doava {
$dirtoopen = "$imagesdir" . "avatars";
opendir (DIR, "$dirtoopen");
my @dirdata = readdir(DIR);
closedir (DIR);
my @emoticondata = grep(/gif$/i,@dirdata);

open (EMFILE, ">${lbdir}data/lbava.cgi");
foreach $picture (@emoticondata) { 
    print EMFILE "$picture\n";   
    }  
close(EMFILE);

        print qq~
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#990000>
                    
        <b>初始化用户头像图片</b><p>
                    
        <font color=#333333>所有用户头像图片已经更新！</font>
                    
        </td></tr>
         ~;

}

sub doupconter {
	my $onlinemaxtime = time;
	my $filetomake = "$lbdir" . "data/counter.cgi";
	open(FILE,">$filetomake");
        print FILE "1\t1\t1\t$onlinemaxtime\t";
	close(FILE);

        print qq~
        <tr>
        <td bgcolor=#FFFFFF align=center colspan=2>
        <font color=#990000>
                    
        <b>初始化在线统计及访问次数</b><p>
                    
        <font color=#333333>访问次数数据已经初始化！</font>
                    
        </td></tr>
         ~;

}
	
sub douponlineuser {
	$currenttime = time;
        open(FILES,">${lbdir}data/onlinedata.cgi");
	print FILES "$inmembername\t$currenttime\t$currenttime\t管理区\t保密\t保密\t保密\t管理区\t保密\t$membercode\t" ;
	close (FILES);
        open(FILES,">${lbdir}data/onlinedata.cgi.cgi");
	print FILES "$inmembername\t$currenttime\t$currenttime\t管理区\t保密\t保密\t保密\t管理区\t保密\t$membercode\t" ;
	close (FILES);

        print qq~<tr><td bgcolor=#FFFFFF align=center colspan=2>
<font color=#990000><b>初始化在线统计及访问次数</b><p>
<font color=#333333>在线人数统计数据已经初始化！</font></td></tr>
~;
}

sub dodelans {
    opendir (DIRS, "${lbdir}data");
    my @files = readdir(DIRS);
    closedir (DIRS);
    my @files = grep(/^new/i, @files);
    foreach (@files) {
    	chomp $_;
	unlink ("${lbdir}data/$_");
    }
    print qq~<tr><td bgcolor=#FFFFFF align=center colspan=2>
<font color=#990000><b>初始化所有论坛的公告</b><p>
<font color=#333333>所有论坛的公告已经初始化！</font>
</td></tr>
~;
}	

sub doshareforums {
	my $filetoopen = "$lbdir" . "data/shareforums.cgi";
	open(FILE, ">$filetoopen");
	print FILE "LeoBoard XP 官方论坛\thttp:\/\/www.cgier.com\/\tLB5000MX 最新版本介绍，最新版本免费下载，论坛技术支持等。。。\t1\thttp:\/\/www.cgier.com\/non-cgi\/images\/ad8831.gif\t\n";
	print FILE "雷傲超级论坛\thttp:\/\/www.leoBBS.com\/\t最新软件、影视、音乐、网络安全、图形艺术、游戏、CGI 知识等综合论坛，还可以聊天。。。\t2\thttp:\/\/www.leoboard.com\/bbs\/images\/powered.gif\t\n";
	close(FILE);
        print qq~<tr><td bgcolor=#FFFFFF align=center colspan=2>
<font color=#990000><b>初始化论坛联盟数据为空</b><p>
<font color=#333333>在线联盟数据已经初始化！</font>
</td></tr>
~;
}

sub dodellock {
    opendir (DIRS, "${lbdir}lock");
    my @files = readdir(DIRS);
    closedir (DIRS);
    foreach (@files) {
    	chomp $_;
	unlink ("${lbdir}lock/$_");
    }
    print qq~<tr><td bgcolor=#FFFFFF align=center colspan=2>
<font color=#990000><b>初始化锁定文件</b><p>
<font color=#333333>所有锁定文件已经初始化！</font>
</td></tr>
~;
}

sub doinit  {
    print qq~<tr><td bgcolor=#FFFFFF align=center colspan=2>
<font color=#990000><b>初始化论坛数据</b><p>
<font color=#333333>首次运行论坛必须运行，以后如果更新了论坛表情图片等，也需要运行！<BR>没有特别说明的初始化是不会丢失数据的，请放心使用！</font><BR><BR>
</td></tr>
<tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>１．<b><a href="$thisprog?action=uptop">初始化用户排名</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    用户排名其实不会自动更新的，除非你在这儿更新一下。<BR><BR>
    </td>
    </tr>
    
    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>２．<b><a href="$thisprog?action=upemot">初始化表情图片和 EMOT 图片</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    表情图片和 EMOT 其实不会自动更新的，除非你在这儿更新一下。<BR><BR>
    </td>
    </tr>
    
    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>３．<b><a href="$thisprog?action=upuser">初始化用户头像图片</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    用户头像其实不会自动更新的，除非你在这儿更新一下。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>4．<b><a href="$thisprog?action=upupload">初始化文件上传目录属性！</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    如果您的论坛无法正常支持帖子内贴文件上传、上传头像文件、文件下载计数时，可以在这里初始化一下，大部分问题都可以解决(如果论坛的文件上传正常的话，则无须运行此步)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>5．<b><a href="$thisprog?action=uppost">初始化论坛帖子目录和数据文件属性</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    如果您的论坛有些数据无法更新、帖子无法发表或回复之类时，可以在这里初始化一下，大部分问题都可以解决(如果论坛的数据正常的话，则无须运行此步)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>6．<b><a href="$thisprog?action=upmessage">初始化短消息目录和文件属性</a></b>　 <font color=red>(第一次安装后必须运行一次)</font><br>
    如果您的论坛短消息的收发有问题时，可以在这里初始化一下，大部分问题都可以解决(如果论坛的短消息收发正常的话，则无须运行此步)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>７．<b><a href="$thisprog?action=dellock">初始化锁定文件</a></b><br>
    如果你的锁定文件目录中有多余的或者删除不掉的锁定文件的话，可以在这里初始化一下。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>8．<b><a href="$thisprog?action=uponlineuser">初始化在线统计</a></b><br>
    如果你的在线人数统计数据出错的话(比如总是只有你一个人在线)，可以在这里初始化一下(所有的用户将全部被视为不在线)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>9．<b><a href="$thisprog?action=upconter">初始化访问次数</a></b><br>
    如果你的访问次数统计和最大在线人数等数据出错的话(比如访问次数总是1)，可以在这里初始化一下(访问次数统计和最大在线人数都将清空)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>10．<b><a href="$thisprog?action=shareforums">初始化联盟数据</a></b><br>
    如果你的联盟数据删除不掉或是出错的话，可以在这里初始化一下。(所有的联盟数据将全部丢失)<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>11．<b><a href="$thisprog?action=delans">初始化所有论坛的公告</a></b><br>
    如果您要清除所有论坛的公告时，可以在这里初始化一下(所有的公告将全部丢失)。<BR><BR>
    </td>
    </tr>

    <tr>
    <td bgcolor=#FFFFFF colspan=2>
    <font color=#333333>1３．<b><a href="$thisprog?action=delmessage">清空所有短消息</a></b><br>
    如果您要清除所有的短消息时，可以在这里初始化一下(所有的短消息将全部丢失)。<BR><BR>
    </td>
    </tr>
         ~;
}     

print qq~</td></tr></table></body></html>~;
exit;