sub MainMenu {
   my($moderate,$bp,$bt);
   $gdisable = 1;
   $title = $mbname;
   &header;
   print <<"EOT";

<table cellpadding="4" cellspacing="1" bgcolor="$color{'border'}" width="100%">
<tr>
  <td width="100" height="11" bgcolor="$color{'titlebg'}"><font color="#FFFFFF" size="2">&nbsp;</font></td>
EOT
   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};
   }

   $bcnt = 0; $bp = 0; $bt = 0; $catcnt = 0;

   if($username ne 'Guest') {
      fopen(FILE,"$members/$username.log");
      @logged = <FILE>;
      fclose(FILE);
      chomp @logged;
   }
   if($settings[33]) { $link = "$surl,v=mindex,n=1,b="; } else { $link = "$surl,v=mindex,b="; }

   foreach(@catbase) {
      ($nme,$id,$memgrp,$input) = split(/\|/,$_);
      if($memgrp ne '') {
         $con = '';
         @mgrps = split(",",$memgrp);
         foreach $grp (@mgrps) { if($grp eq $settings[4]) { $con = 1; } }
         if($con eq '' && $settings[4] ne 'Administrator') { next; }
      }
      print <<"EOT";
 <tr>
  <td bgcolor="$color{'catbg'}" colspan="5"><font size="1"><b> $nme</b></font></td>
 </tr>
EOT
      if($input ne '') { @cats = split("/",$input); } else { next; }
      foreach $cat (@cats) {
         $lastuser = '';
         $tdate = '';
         $fnd = 0;
         chomp $cat;
         $bid = $cat;
         foreach $srch (@boardbase) {
            ($id,$binfo[0],$binfo[1],$binfo[2],$binfo[3],$binfo[4],$binfo[5],$binfo[6]) = split("/",$srch);
            if($id eq $cat) { $fnd = 1; last; }
         }
         if(!$fnd) { next; }
         fopen(FILE,"$boards/$bid.ino");
         @binf = <FILE>;
         fclose(FILE);
         chomp @binf;
         $moderate = '';

         @mods = split(/\|/,$binfo[1]);
         &Mods;

         $icon = '';
         fopen(FILE,"$boards/$bid.msg");
         while(<FILE>) {
            chomp;
            ($t,$mtitle,$t,$t,$t,$t,$t,$icon,$lastdate,$lastuser) = split(/\|/,$_);
            last;
         }
         fclose(FILE);

         $tdate = get_date($lastdate);
         $found = 0;
         if($username ne 'Guest') {
            foreach $log (@logged) {
               ($lboard, $lasttime) = split(/\|/,$log);
               if($lboard eq $bid || $lboard eq 'AllBoards') {
                  $isnew = $lasttime-$lastdate;
                  if($isnew >= 0) { $found = 1; }
                  last;
               }
            }
         }
         if($username eq 'Guest' || $found || $lastdate eq '') { $new = 'off'; $alt = $boardindex[9]; }
         elsif(!$found) { $new = 'on'; $alt = $boardindex[10]; }
         $isnew = '';
         $mtit = '';
         loaduser($lastuser);
         if(!$binf[0]) { $binf[0] = 0; }
         if(!$binf[1]) { $binf[1] = 0; }
         if($userset{$lastuser}->[1]) { $lpby = qq~<a href="$scripturl,v=profile,a=view,u=$lastuser">$userset{$lastuser}->[1]</a>~; }
            else { $lpby = $lastuser; }

         $mtitle = CensorList($mtitle);

         $lpin = $mtitle ne '' ? qq~<b><a href="$surl,b=$bid,v=display,m=latest">$mtitle</a></b>~ : $gtxt{'13'};
         $lastpost = $lpby ne '' ? qq~$tdate $boardindex[11] $lpby $boardindex[12] $lpin~ : $gtxt{'13'};

         # Most recent post
         if($max < $lastdate) { $max = $lastdate; $lasttopic = qq~<a href="$surl,b=$bid,v=display,m=latest">$boardindex[13] -› $mtitle</a>~; }

         if($binfo[3] == 3 || $binfo[4] == 3) { $new = "locked"; }

         $posts = MakeComma($binf[1]);
         $topics = MakeComma($binf[0]);
         $binfo[1] = '';
         $message = $binfo[0];
         $message =~ s/&#47;/\//gsi;
         &BC;
         print <<"EOT";
 <tr>
  <td bgcolor="$color{'win2'}" valign="top"><font size="1"><a href="$link$bid">$binfo[2]</a></font></td>
 </tr>
EOT
         $bp = $binf[1]+$bp;
         $bt = $binf[0]+$bt;
         ++$bcnt;
      }
      ++$catcnt
   }
   if($bcnt == 0) {
      print <<"EOT";
 <tr>
  <td bgcolor="$color{'win'}" align="center" colspan="5"><font size="2"><b>$boardindex[14]</b></font></td>
 </tr>
 </table><br>
EOT
   } 

}
1;

sub MemberInfo {
      print <<"EOT";
   <table cellpadding="4" cellspacing="1" bgcolor="$color{'border'}" width="100%">
    <tr>
     <td bgcolor="$color{'titlebg'}" colspan="2"><font color="#FFFFFF" size="2"><b><img src="$images/profile_sm.gif"> $boardindex[32]</b></font></td>
    </tr>
EOT
   fopen(FILE,"$members/LastMem.txt");
   @lm = <FILE>;
   fclose(FILE);
   chomp @lm;
   if($lm[1] > 1) { $s = 's'; $are = 'are'; } else { $are = 'is'; }

   $memberson =~ s/, \Z//i;
   $glog =~ s/, \Z//i;
   if($settings[4] ne 'Administrator') { $glog = ": $gcnt"; }
   elsif($gcnt == 0) { $glog = ": <i>$boardindex[46]</i>"; }
      else { $glog = " ($gcnt): $glog"; }
   if($memberson eq '') { $memberson = "<i>$boardindex[46]</i>"; }

   fopen(FILE,"$prefs/MaxLog.txt");
   @maxlogged = <FILE>;
   fclose(FILE);
   chomp @maxlogged;
   $maxtime = get_date($maxlogged[1]);

   loaduser($lm[0]);
   $allcnt = $gcnt+$hidec+$memcnt;
   if($hidec > 0) { $memcnt .= " $boardindex[33], $hidec $gtxt{'27'}"; }
   print <<"EOT";
    <tr>
     <td bgcolor="$color{'win'}" align="center" width="33"><img src="$images/online.gif"></td>
     <td bgcolor="$color{'win'}"><font size="1"><u><b>$boardindex[34] ($allcnt $boardindex[47])</u></b><br>
     $var{'83'} ($memcnt): $memberson<br>
     $boardindex[35]$glog
EOT
   if($whereis) { print qq~<br><b>» <a href="$scripturl,v=whereis" title="$boardindex[36]">$boardindex[37]</a> «</b> $boardindex[38]~; }
   print <<"EOT";
     </font>
     </td>
    </tr>
    <tr>
     <td bgcolor="$color{'win2'}" align="center"><img src="$images/guest.gif"></td>
     <td bgcolor="$color{'win2'}"><font size="1">$boardindex[39] $lm[1] $boardindex[40]<a href="$scripturl,v=profile,a=view,u=$lm[0]">$userset{$lm[0]}->[1]</a>!<br>
     <b>» <a href="$scripturl,v=members" title="$var{'83'}">$boardindex[37]</a> «</b> $boardindex[42]<br></font></td>
    </tr>
    <tr>
     <td bgcolor="$color{'win'}" colspan="2"><font size="1"><b>» </b>$boardindex[43] <b>$maxtime</b>, $boardindex[44] <b>$maxlogged[0]</b> $gtxt{'4'}.</font></td>
    </tr>
   </table><br> 
EOT
}