AlphaSort SP1
1.0
Features:
- Sort memberlist (View All) by alphabet and insert letter-headers.
Instructions:
Apply mod.
Upload Memberlist.pl
Carsten
http://www.langaa-net.dk/forum
Sources/Memberlist.pl
$memcount = @memberlist;
@membername = @memberlist;
fclose(FILE);
&SortAlfaMemb;
@membername = @alfamemberlist;
$firstlett = "";
if($tempname)
{
$startlett = substr $member[1],0,1;
$startlett = uc $startlett;
if($startlett ne $firstlett) {
$firstlett = $startlett;
$yymain .= qq~
| $startlett |
~;
}
&template;
exit;
}
sub SortAlfaMemb {
@member = ();
@AlfaListA = ();
@AlfaListB = ();
@AlfaListC = ();
@AlfaAList = ();
for($i=0;$i<$memcount;$i++) {
chomp(@membername);
$membname = $membername[$i];
fopen(MEMBERFILE,"$memberdir/$membname.dat");
@member = ;
fclose(MEMBERFILE);
chomp(@member);
$tempmemb = lc $member[1];
$tempmemb .= qq($tempmemb | $i);
$AlfaAList{$membname} = $tempmemb;
push(@AlfaListA, $AlfaAList{$membname});
push(@AlfaListB, $membname);
}
@AlfaSortAList = sort(@AlfaListA);
foreach $curentry (@AlfaSortAList) {
chomp $curentry;
($indxname, $indxnum) = split(/\|/, $curentry);
chomp(@AlfaListB);
push(@AlfaListC, $AlfaListB[$indxnum]);
}
@alfamemberlist = @AlfaListC;
}