fopen(FILE,"$prefs/Active.txt");
   @activelist = <FILE>;
   fclose(FILE);
   $activecnt = @activelist;
   chomp @activelist;
   $hidec = 0;
   $memcnt = 0;
   $gcnt = 0;

   for($i = 0; $i < @memgrps; $i++) {
      if($i > 6) { ($t,$t,$t,$t,$t,$t,$t,$memgrpp[$i]) = split(",",$memgrpp[$i]); }
      $gcolors{$memgrps[$i]} = $memgrpp[$i];
   }
   foreach(@activelist) {
      ($luser,$ltime,$hidden,$t,$bview) = split(/\|/,$_);
      loaduser($luser);
      if($userset{$luser}->[1] eq '') { $fndu = $luser; } else { $fndu = $userset{$luser}->[1]; }
      push(@quicksort,"$fndu|$luser|$hidden|$bview");
   }
   foreach(sort{lc($a) cmp lc($b)} @quicksort) {
      ($t,$luser,$hidden,$bview) = split(/\|/,$_);
      if($userset{$luser}->[1] ne '') {
         $lostuser = $gcolors{$userset{$luser}->[4]} ? qq~<font color="$gcolors{$userset{$luser}->[4]}"><b>$userset{$luser}->[1]</b></font>~ : qq~$userset{$luser}->[1]~;
         if($hidden) {
            ++$hidec;
            if($settings[4] eq 'Administrator') { $memberson .= qq~<a href="$scripturl,v=profile,a=view,u=$luser">$lostuser</a> • ~; }
               else { next; }
         } else {
            ++$memcnt;
            $memberson .= qq~<a href="$scripturl,v=profile,a=view,u=$luser">$lostuser</a> • ~;
         }
      } else { ++$gcnt; $glog .= "$luser • "; }
      ++$B{$bview};
   }
   $memberson =~ s/ • \Z//i;
   $glog =~ s/ • \Z//i;
   if($settings[4] ne 'Administrator') { $glog = ":</b> $gcnt"; }
   elsif($gcnt == 0) { $glog = ':</b> <i>None</i>'; }
      else { $glog = " ($gcnt):</b> $glog"; }
   if($memberson eq '') { $memberson = '<i>None</i>'; }

   foreach(@boardbase) {
      ($board,$t,$t,$bname) = split("/",$_);
      fopen(FILE,"$boards/$board.ino");
      @ino = <FILE>;
      fclose(FILE);
      if(!$ino[1]) { $ino[1] = 0; }
      push(@tbds,"$ino[1]|$bname|$board");
      chomp @ino;
      $threads = $threads+$ino[0];
      $message = $message+$ino[1];
   }
   $catcnt = @catbase;
   $bdscnt = @boardbase;

   @tbds = sort{$b <=> $a} @tbds;

   $c = 1;
   for($g = 0; $g < 10; ++$g) {
      ($mcnt,$boardnm,$bid) = split(/\|/,$tbds[$g]);
      $mcnt = MakeComma($mcnt);
      if($boardnm) { $topboards .= qq~<b>$c.</b> <a href="$surl,v=mindex,b=$bid">$boardnm</a> <font size="1">($mcnt $gtxt{'11'})</font><br>~; }
      ++$c;
   }