Top Poster SSI
1.0
########## Start of Top Poster SSI ##########
# Version : V1.0 #
# Author : KeRoLL #
# Country : Terengganu Malaysia #
# System requirement: YaBB 1 Gold Release #
# *Make U Happy! #
# Hompage : http://www.bersembang.com #
# - www.Bincang.net #
# - www.erakan.net #
# email : plazakite@hotmail.com or #
# webmaster@bincang.net #
# Credit : All of the YaBB developer Team #
# Credit2 : Tok Muda, DingDang, mylover..:) #
# My YM ID: Hedimatsu #
#############################################
This mod give you put the Top of poster in SHTML file.Now you can view the top of poster on index page your hompage.
Put this SSI code:
Example:
KeRoLL
http://www.bersembang.com <-- Coming Soon
YaBB.pl
elsif ($action eq 'mltop') { require "$sourcedir/Memberlist.pl"; &MLTop; }
###################### SSI Top Poster ######################
elsif ($action eq 'mltop2') { require "$sourcedir/Memberlist.pl"; &MLTop2; }
############################################################
Memberlist.pl
$memberlistplver="1 Gold - Release";
if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
$memberlistplver="1 Gold - Release";
############# Not Use ###############
#if($username eq "Guest") { &fatal_error("$txt{'223'}"); }
1;
########## Start of Top Poster SSI ##########
# Version : V1.0 #
# Author : KeRoLL #
# Country : Terengganu Malaysia #
# System requirement: YaBB 1 Gold Release #
# *Make U Happy! #
# Hompage : http://www.bersembang.com #
# - www.Bincang.net #
# - www.erakan.net #
# email : plazakite@hotmail.com or #
# webmaster@bincang.net #
# Credit : All of the YaBB developer Team #
# Credit2 : Tok Muda, DingDang, mylover..:) #
# My YM ID: Hedimatsu #
#############################################
# Configuration #
#############################################
$ahli_berdaftar = "0"; # change to '1' if you want to allow only the register members can see the top poster SSI.#
$berapa_top = "10"; # How many top register members you want to view. The original variable code $TopAmmount can you put into the variables $berapa_top.#
#############################################
sub Ahli_sahaja {
local($e) = @_;
print <<"EOT";
EOT
exit;
}
############## Table header #############
$TableHeader2 .= qq(
);
#########################################
sub MLTop2 {
if($ahli_berdaftar eq "1") {
if($username eq "Guest") { &Ahli_sahaja("$txt{'223'}"); }
}
print qq~$TableHeader2~;
%TopMembers = ();
fopen(MEMBERLISTREAD,"$memberdir/memberlist.txt");
@member = ();
while(chomp($membername=)) {
fopen(MEMBERFILE,"$memberdir/$membername.dat");
@member = ;
fclose(MEMBERFILE);
chomp @member;
$TopMembers{$membername} = $member[6];
}
fclose(MEMBERLISTREAD);
my @toplist = sort {$TopMembers{$a} <=> $TopMembers{$b}} keys %TopMembers;
@toplist = reverse @toplist;
$TopListNum = $berapa_top - 1;
# foreach $membername(@toplist) {
for ($i=0;$i<=$TopListNum;$i++) {
@member = ();
$Bar = "";
$membername = @toplist[$i];
fopen(MEMBERFILEREAD,"$memberdir/$membername.dat");
@member = ;
fclose(MEMBERFILEREAD);
&FormatUserName($membername);
chomp @member;
if($member[1] ne "") {
$barchart = ($member[6] / 5);
if ($barchart < 1) {$Bar = "$Bar";}
elsif ($barchart > 100) {$Bar = qq~
~;}
else {
$Bar = qq~~;
}
$member[8] =~ s/[\n\r]//g;
if ($Bar eq "") { $Bar=" "; }
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
print qq(
| $member[1] |
$member[6] |
$Bar |
);
}
}
print qq(
);
exit;
}
#################### \ End of Top Poster SSI ####################