###############################################################################
# BoardIndex.pl                                                               #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.1                                        #
# Released:       December 2001; Updated March 22, 2002                       #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################

$boardindexplver = "1 Gold - SP 1.1";

sub BoardIndex {
#Count Down#
	require "$sourcedir/countdown.pl";
#Count Down#
     ##CountDown##
open(FILE,"$vardir/countdown.txt");
@cdsettings=<FILE>;
close(FILE);
$cdcount=0;
foreach $cdsetting (@cdsettings)
{
$cdcount++;
}
if ( $cdcount == 0)
{
$cdname = Event;						# Name of event
$cdyear = 2002;							# Target Year of Countdown
$cdmonth = 1;							# Target Month of Countdown (in number format)
$cdday = 1;							# Target Date of Countdown
$cdhour = 0;							# Target Hour of Countdown (24-hour format)
$cdmin = 00;							# Target Minute of Countdown
$cdsec = 00;							# Target Second of Countdown
$cdtzone = -0500;
}
else
{
$cdname=@cdsettings[0];
$cdyear=@cdsettings[1];
$cdmonth=@cdsettings[2];
$cdday=@cdsettings[3];
$cdhour=@cdsettings[4];
$cdmin=@cdsettings[5];
$cdsec=@cdsettings[6];
$cdtzone=@cdsettings[7];
}
	##EndCountDown##
	# Open the file with all categories
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	my($memcount, $latestmember) = &MembershipGet;
	$totalm = 0;
	$totalt = 0;
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(FILE, "$boardsdir/$curcat.cat");
		$catname{$curcat} = <FILE>;
		chomp $catname{$curcat};
		$cataccess{$curcat} = <FILE>;
		chomp $cataccess{$curcat};
		@{$catboards{$curcat}} = <FILE>;
		fclose(FILE);
		@membergroups = split( /,/, $cataccess{$curcat} );
		$openmemgr{$curcat} = 0;
		foreach $tmpa (@membergroups) { if($tmpa eq $settings[7]) { $openmemgr{$curcat} = 1; last; } }
		if(!$cataccess{$curcat} || $settings[7] eq 'Administrator') { $openmemgr{$curcat} = 1; }
		unless($openmemgr{$curcat}) { next; }
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
			( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($curboard);

			$lastposttime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? $txt{'470'} : &timeformat($lastposttime);
			$lastpostrealtime{$curboard} = $lastposttime eq 'N/A' || ! $lastposttime ? '' : $lastposttime;
			if( $lastposter =~ m~\AGuest-(.*)~ ) {
				$lastposter = $1;
				$lastposterguest{$curboard} = 1;
			}
			$lastposter{$curboard} = $lastposter eq 'N/A' || ! $lastposter ? $txt{'470'} : $lastposter;
			$messagecount{$curboard} = $messagecount || 0;
			$threadcount{$curboard} = $threadcount || 0;
			$totalm += $messagecount;
			$totalt += $threadcount;
		}
	}

###############################################
#Birthday mod plugin for YaBB 1Gold           #
#	By Max : staff@my.netvigator.com      #
###############################################
# Only calculate birthdays if display turned on
if( $bdayshowtop == '1' || $bdayshowbottom == '1' ) {
	require "$sourcedir/Subs.pl";
	&get_date;
	&timeformat($date,1);
	$tocheckm = $mm;
	$tocheckd = $dd;
	$yearis = $yy;
	$whobd = "";
	$countbd = 0;

## get the userlist to check
	fopen(FILE, "$memberdir/memberlist.txt");
	@memberlist = <FILE>;
	fclose(FILE);

	for ($a = 0; $a < @memberlist; $a++) {
		chomp $memberlist[$a];
		if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {

			# Load users 
			if( !$yyUDLoaded{$memberlist[$a]} && -e("$memberdir/$memberlist[$a].dat") ) {
				# If user is not in memory, s/he must be loaded.
				&LoadUser($memberlist[$a]);

			}

		@userbd = <FILE2>;
		fclose(FILE2);
		chomp $userbd[16];
		($matchm, $matchd, $useryear) = split(/\//, $userbd[16]);
		if(($tocheckm == $matchm) && ($tocheckd == $matchd)) {
			$userbd[6] =~ s/ //g;
			chomp $userbd[6];
			$age = $yearis - $useryear + 2000;
			$whobg .=qq~<a href=$cgi&action=viewprofile&username=$memberlist[$a] title="$bday{'06'}">$userbd[1]</a> ($age) ~;
			$countbd++;
		}
		}#end if
	}#end foreach
	chomp $whobg;

	if($whobg eq '') {
		if($mytimeselected == 4) {
			($today, $yeartoday, $trash) = split(/,/, $newformat);
			$today .=qq~,$yeartoday~; 
		} else {
			($today, $trash) = split(/ $txt{'107'}/, $newformat);
		}
		$whobg = qq~$bday{'07'} $today.~;
	}
}

	if( $bdayshowtop == '1' && ( $bdayshowguest == '1' || $username ne 'Guest' )) {
	$yymain .= qq~
<table width="100%" align="center">
  <tr>
    <td valign=left><font size="2" class="nav"><img src="$imagesdir/bdaycake.gif" border="0"><a href="$cgi&action=bdays"><b> $bday{'04'}:</b></a></font>&nbsp;&nbsp;<font size="1">$whobg</font></td>
  </tr></table>~;
	}
############# /Birthday Mod#############
	$curforumurl = $curposlinks ? qq~<a href="$scripturl" class="nav">$mbname</a>~ : $mbname;
	$yymain .= qq~
<table width="100%"><meta http-equiv="refresh" content="1800>
  <tr>
    <td align="left" valign="bottom">
      <font size="2" class="nav"><IMG SRC="$imagesdir/open.gif" BORDER="0" alt=""> <b>$curforumurl</b> - Have you filled in your profile?</font>
    </td>~;
    if ($showlatestmember) {
    &LoadUser($latestmember);
    $yymain .= qq~
    </tr><tr><td align="left" valign="bottom">
     <font face=verdana, arial size="1"><b>| Stats |</b> $txt{'488'} $memcount &nbsp;&#149;&nbsp; $txt{'489'} $totalm &nbsp;&#149;&nbsp; $txt{'490'} $totalt &nbsp;&#149;&nbsp;
     $txt{'201'}: <a href="$scripturl?action=viewprofile;username=$useraccount{$latestmember}"><b>$userprofile{$latestmember}->[1]</b></a></font>
    </td>~;
    }
  $yymain .= qq~
  </tr>
</table>~;
if ($showlatestmember) {
		&LoadUser($latestmember);
		$yymain .= qq~<BR>$txt{'797'}<a href="$scripturl?action=viewprofile;username=$useraccount{$latestmember}"><b>$userprofile{$latestmember}->[1]</b></a>$txt{'798'}~;	
}
	# Begin FTT Corporation language mod
	&getlngenablenews;
	if($enable_news2 == 1) {
	# End FTT Corporation language mod
		if(!$fadedelay) { $fadedelay = 5000; }
		$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td bgcolor="$color{'titlebg'}" class="titlebg" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'102'}</b></font></td>
      </tr><tr>
        <td bgcolor="$color{'windowbg2'}" valign="middle" align="center" height="60">
<script language="JavaScript1.2" type="text/javascript">
<!--
var delay = $fadertime
var bcolor = "$color{'windowbg2'}"
var tcolor = "$color{'fadertext'}"
var fcontent = new Array()
begintag = '<font size="2"><B>'
~;
# Begin FTT Corporation language mod
&getlngnewsfader;
fopen(FILE, "$vardir/$lngnewsfile.txt");
# End FTT Corporation language mod
@newsmessages = <FILE>;
fclose(FILE);
for($i=0; $i < @newsmessages; $i++) {
	$newsmessages[$i] =~ s/\n|\r//g;
	if($i != 0){ $yymain .= qq~\n~; }
	$message = $newsmessages[$i];
	if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
	$message =~ s/\"/\\\"/g;
	$yymain .= qq~fcontent[$i] = "$message"~;
}
$yymain .= qq~
closetag = '</b></font>'
// -->
</script>
<script language="JavaScript1.2" type="text/javascript" src="$faderpath"></script>
<script language="JavaScript1.2" type="text/javascript">
<!--
if (navigator.appVersion.substring(0,1) < 5 && navigator.appName == "Netscape") {
   var fwidth = screen.availWidth / 2;
   var bwidth = screen.availWidth / 4;
   document.write('<ilayer id="fscrollerns" width='+fwidth+' height=35 left='+bwidth+' top=0><layer id="fscrollerns_sub" width='+fwidth+' height=35 left=0 top=0></layer></ilayer>');
   window.onload = fade;
}
else if (navigator.userAgent.search(/Opera/) != -1 || (navigator.platform != "Win32" && navigator.userAgent.indexOf('Gecko') == -1)) {
   document.open();
   document.write('<div id="fscroller" style="width:90% height:15px; padding:2px">');
   for(i=0; i < fcontent.length; ++i) {
      document.write(begintag+fcontent[i]+closetag+'<br>');
   }
   document.write('</div>');
   document.close();
   window.onload = fade;
}
else {
   document.write('<div id="fscroller" style="width:90% height:15px; padding:2px"></div>');
   window.onload = fade;
}
// -->
</script>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
	}
########showcase poll start
# Look for a showcase.poll file.
if (-e "$datadir/showcase.poll") {
	my ($board, $viewnum, $spcomment, $comment1, $comment2, $comment3);

	fopen (FILE, "$datadir/showcase.poll");
		@showdata = <FILE>;
	fclose (FILE);
	$showcasepoll = $showdata[0];
	$showcasepoll =~ s~\n~~g;
	($board, $viewnum, $spcomment) = split(/\|/, $showcasepoll);

	if ($spcomment){
		&FromHTML($spcomment);
		$comment1 = qq~<td width=1%> </td>~;
		$comment2 = qq~<td class="catbg" bgcolor="$color{'catbg'}" align=left width="35%"><font size="2"><b>$scpolltxt{'6'}</b></font></td><td width=1%> </td>~;
		$comment3 = qq~<td valign=top width=*>$spcomment</td><td width=1%> </td>~;
	}
# Look for a valid poll file.
if (-e "$datadir/$viewnum.poll") {
	$pollthread = 1;
	unless( &BoardAccessGet($board) ) { $pollthread = 0; }
}
if ($pollthread) {
	fopen (FILE, "$datadir/$viewnum.poll");
		@polldata = <FILE>;
	fclose (FILE);
	$pollquestion = $polldata[0];
	$pollquestion =~ s~\n~~g;
	($question, $lockstatus) = split(/\|/, $pollquestion);
	$num = 1;
	$line = 0;
	my @options;
	my @votes;
	foreach $pointer (@polldata) {
		($vote, $option) = split(/\|/, $polldata[$num]);
		$options[$line] = $option;
		$votes[$line] = $vote;
		$line++;
		$num++;
	}
	
	$search = -1;
	my $found;
	$usersemail = $settings[2];
	$userstatus = $settings[7];
	$found = &CheckVoted($viewnum); 
	
	if ($found) { $userhasvoted = 1; }
	$viewresults = $INFO{'viewresults'};
	if ($lockstatus eq "Locked") { $pollislocked = 1; }
	
	my $boardpoll = '';
	if ($userstatus eq "Administrator" ) { 
		$boardpoll = qq~<a href="$cgi&action=scpolldel" class="altlink">$scpolltxt{'2'}</a>&nbsp;~;
		$addcmmt = qq~<a href="$cgi&action=sccomment" class="altlink">$scpolltxt{'5'}</a>&nbsp;~;
	}
	if ($username ne "Guest" && ($username eq $susername) || ($userstatus eq "Administrator" or $userstatus eq "Global Moderator" or exists $moderators{$username})) { $modifypoll = qq~<a href="$cgi$board;action=modify;message=0;thread=$viewnum" class="altlink">$img{'modifypoll'}</a>&nbsp;~; }
	if (($userstatus eq "Administrator" || $userstatus eq "Global Moderator" || exists $moderators{$username}) && ($pollislocked ne 1)) { $lockpoll = qq~<a href="$cgi$board;action=lockpoll;num=$viewnum;brdpoll=1" class="altlink">$img{'polliconclosed'} $polltxt{'20'}</a>&nbsp;~; }
	if (($userstatus eq "Administrator" || $userstatus eq "Global Moderator" || exists $moderators{$username}) && ($pollislocked eq 1)) { $lockpoll = qq~<a href="$cgi$board;action=unlockpoll;num=$viewnum;brdpoll=1" class="altlink">$img{'polliconclosed'} $polltxt{'21'}</a>&nbsp;~; }
	if ($userstatus eq "Administrator"){ $displayvoters = qq~<a href="$cgi$board;action=showvoters;num=$viewnum;brdpoll=1" class="altlink">$img{'viewvoters'}</a>~;}
	$vresults = qq~<a href="$cgi;num=$viewnum;viewresults=yes" class="altlink">$polltxt{'19'}</a>~;
	$vthread = qq~<a href="$cgi$board;action=display;num=$viewnum" class="altlink">$scpolltxt{'1'}</a>~;
	if ($pollislocked eq 1) { $endedtext = $polltxt{'22'}; }

	$poll_icon = qq~$img{'pollicon'}~;
	if ($pollislocked == 1) { $poll_icon = qq~$img{'polliconclosed'}~; }

	$yymain.= qq~<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td valign="middle" align="left" bgcolor="$color{'titlebg'}" class="titlebg" width="20%"><font size=2 class="text1" color="$color{'titletext'}">&nbsp;$poll_icon <b>$polltxt{'15'}</b></font></td>
    <td valign="middle" align="center" bgcolor="$color{'titlebg'}" class="titlebg" width="45%"><font size=2 class="text1" color="$color{'titletext'}"><b>$endedtext</b></font></td>
    <td valign="middle" align="right" bgcolor="$color{'titlebg'}" class="titlebg" width="35%"><font size=1 color="$color{'titletext'}">$lockpoll &nbsp; $displayvoters &nbsp; $modifypoll</font></td>
 </tr><tr>
    <td colspan="3" valign="top" align="center" bgcolor="$color{'windowbg2'}" class="windowbg2">
~;
	# Censor the question.
	foreach (@censored) {
		($tmpa,$tmpb) = @{$_};
		$question =~ s~\Q$tmpa\E~$tmpb~gi;
	}

	if (($userhasvoted) || $viewresults eq 'yes' || $pollislocked eq 1 ) {
		
		$yymain.= qq~
      <table border="0" cellspacing="0" cellpadding="5" bgcolor="$color{'windowbg2'}" class="windowbg2">
        <tr valign="top">
           $comment1<td nowrap class="catbg" bgcolor="$color{'catbg'}" align="center"><font size="2"><b>$polltxt{'16'}:</b>  $question</font><br></td>$comment1$comment2
        </tr>
        <tr> 
           $comment1<td align="center">
            <table border="0" cellspacing="0" cellpadding="0">~;
		$nums = 0;
    
		my $Key; 
		my $Total; 
		$maxvote = 0;
		foreach $Key (@votes) { 
			$Total += $Key; 
			if ($Key >= $maxvote) { $maxvote = $Key;}
		} 

		$totalvotes = $Total;
		pop (@options);
		foreach (@options) {

			# Censor the options.
			foreach (@censored) {
				($tmpa,$tmpb) = @{$_};
				$options[$nums] =~ s~\Q$tmpa\E~$tmpb~gi;
			}
			$message = $options[$nums]; # put the message back into the proper variable to do ubbc on it
			if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &MakeSmileys;
			$options[$nums] = $message;
			$options[$nums] =~ s~\n~~g;
			$options[$nums] =~ s~<br>~~g;
			$yymain .= qq~
              <tr> 
                <td nowrap><b><font size="2">$options[$nums]</font></b></td>
                <td nowrap>~;

# Now lets calculate how many devisions by the total number of votes are needed to make the bar graphs stay nicely sized in the browser window:

			$pollpercent = 0;
			$pollbar = 0;
			if ($totalvotes ne 0 && $maxvote ne 0) {
				$pollpercent = int(1000 * $votes[$nums] / $totalvotes);
				$pollpercent = $pollpercent / 10; 
				$pollbar = int( 150 * $votes[$nums] / $maxvote);
			}
    
			$yymain .= qq~&nbsp;&nbsp;<img src="$imagesdir/poll_left.gif" align="middle"><img src="$imagesdir/poll_middle.gif" height="12" width="$pollbar" align="middle"><img src="$imagesdir/poll_right.gif" align="middle"> <font size="2">$votes[$nums] ($pollpercent%)</font></td>
              </tr>~;
			$nums++;
		}

		$yymain .= qq~
            </table>
            <br><b><font size="2">$polltxt{'17'}: $totalvotes</font></b>
          </td>$comment1$comment3
        </tr>
      </table>
<table width="100% "border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="middle" align="left" width="30%"><font size=1 color="$color{'titletext'}">$addcmmt</font></td>
    <td valign="middle" align="center" width="40%"><font size="2">$vthread</font></td>
    <td valign="middle" align="right" width="30%"><font size=1 color="$color{'titletext'}">$boardpoll</font></td>
 </tr>
</table>
~;
	}
	else {
		$yymain.= qq~
      <form name="poll" method="post" action="$cgi$board;action=vote;brdpoll=1;num=$viewnum">
        <table border="0" cellspacing="0" cellpadding="5">
          <tr valign="top"> 
            $comment1<td nowrap class="catbg" bgcolor="$color{'catbg'}" align="center"><font size="2"><b>$polltxt{'16'}:  </b>$question</font></td>$comment1$comment2
          </tr>
          <tr> 
            $comment1<td align="center">
              <table border="0" cellspacing="0" cellpadding="0">~;
		$nums = 0;
		pop (@options);
		foreach (@options) {
			# Censor the options.
			foreach (@censored) {
				($tmpa,$tmpb) = @{$_};
				$options[$nums] =~ s~\Q$tmpa\E~$tmpb~gi;
			}
			$options[$nums] =~ s~\n~~g;
			$options[$nums] =~ s~<br>~~g;
			$message = $options[$nums]; # put the message back into the proper variable to do ubbc on it
			if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &MakeSmileys;
			$options[$nums] = $message;
			$yymain .= qq~
                <tr valign="top"> 
                  <td nowrap><INPUT type="radio" name="option" value="$nums">&nbsp;</td>
                  <td nowrap valign="middle"><font size="2">$options[$nums]</font></td>
                </tr>~;
			$nums++;
  		}
		$yymain .= qq~
              </table>
            </td>$comment1$comment3
          </tr>
          <tr>
            $comment1<td align="center"><INPUT type="submit" value="$polltxt{'18'}"><br><font size="2">$vresults \~ $vthread</font></td>$comment1$comment1$comment1
          </tr></form>
        </table>
<table width="100% "border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="middle" align="left" width="30%"><font size=1 color="$color{'titletext'}">$addcmmt </font></td>
    <td valign="middle" align="center" width="40%"><font size="2"> </font></td>
    <td valign="middle" align="right" width="30%"><font size=1 color="$color{'titletext'}"> $boardpoll</font></td>
 </tr>
</table>
~;
	}
$yymain .= qq~
    </td>
  </tr>
</table>~;	
  }
}

#########showcase poll end

	$yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td class="titlebg" bgcolor="$color{'titlebg'}" colspan="2"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'20'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'330'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="1%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'21'}</b></font></td>
        <td class="titlebg" bgcolor="$color{'titlebg'}" width="24%" align="center"><font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'22'}</b></font></td>
      </tr>~;

	foreach $curcat (@categories) {
		unless( $openmemgr{$curcat} ) { next; }
		####
		if ($catpic{$curcat} =~ /\//i) {$catpic{$curcat} = qq~ <img src="$catpic{$curcat}" alt="" border="0" align="absmiddle"> ~;}
		elsif ($catpic{$curcat}) {$catpic{$curcat} = qq~ <img src="$imagesdir/$catpic{$curcat}" alt="" border="0" align="absmiddle"> ~;}
		####
		$yymain .= qq~<tr>
        <td colspan="5" class="catbg" bgcolor="$color{'catbg'}" height="18"><a name="$curcat"> $catpic{$curcat}<font size="2"><b>$catname{$curcat}</b></font></a></td>
      </tr>~;
		foreach $curboard (@{$catboards{$curcat}}) {
			chomp $curboard;
# --- Added for Notify Plus 2.2 --- #

			# Reset Mark-image
			$markimg = "";

			# Is mark board enabled and it's a Member ?
			if ($enable_mark_board == 1 && $username ne 'Guest') {

				# Has the member a notification on this board ?!
				if (fopen(FILE, "$boardsdir/$curboard.mail")) {

					# Read all records

					fopen(FILE, "$boardsdir/$curboard.mail");
					@mails = <FILE>;
					fclose(FILE);
					foreach $record (@mails) {

						chomp($record);
						($email, $format) = split(/\|/, $record);
						chomp($email);

						# Yep, Notification found
						if ($email eq $settings[2]) {
							$markimg  = qq~<img src='$imagesdir/mark_icon.gif' border='0'>~;
							last;
						}

					# End Foreach
					}


				# End if Has the member a notification
				}

			# End if Is mark board enabled
			}

# --- /Added for Notify Plus 2.2 --- #

			my $access = &AccessCheck($curboard, '');
			if ($settings[7] ne "Administrator" && $access ne "granted" && $showprivboards{$curboard} ne "1") {next;}
			fopen(FILE, "$boardsdir/$curboard.dat");
			$curboardname = <FILE>;
			chomp $curboardname;
			$curboarddescr = <FILE>;
			chomp $curboarddescr;
			$curboardmods = <FILE>;
			chomp $curboardmods;
			fclose(FILE);
			# Begin FTT Corporation language mod
			&getlngboard;
			# End FTT Corporation language mod
			%moderators = ();
			foreach $curuser (split(/\|/, $curboardmods)) {
				&LoadUser($curuser);
				$moderators{$curuser} = $userprofile{$curuser}->[1];

			}
			$showmods = '';
			if(scalar keys %moderators == 1) { $showmods = qq~$txt{'298'}: ~; }
			elsif(scalar keys %moderators != 0) { $showmods = qq~$txt{'299'}: ~; }
			while($tmpa = each(%moderators)) {
				&FormatUserName($tmpa);
				$showmods .= qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$tmpa}">$moderators{$tmpa}</a>, ~;
			}
			$showmods =~ s/, \Z//;
			if($showmods eq "") { $showmods = qq~$txt{'298'}: $txt{'470'}~; }
			$dlp = &getlog($curboard);
			if( $max_log_days_old && $lastposttime{$curboard} ne $txt{'470'} && $username ne 'Guest' && $dlp < stringtotime( $lastpostrealtime{$curboard} ) ) {
				$new = qq~<img src="$imagesdir/on.gif" alt="$txt{'333'}" border="0">~;
			}
			else { $new = qq~<img src="$imagesdir/off.gif" alt="$txt{'334'}" border="0">~; }
			$lastposter = $lastposter{$curboard};
			unless( $lastposterguest{$curboard} || $lastposter{$curboard} eq $txt{'470'} ) {
				$lastposterid = $lastposter;
				&LoadUser($lastposterid);
				if($userprofile{$lastposter}->[1]) { $lastposter = qq~<a href="$scripturl?action=viewprofile;username=$lastposterid">$userprofile{$lastposter}->[1]</a>~; }
			}
			$lastposter ||= $txt{'470'};
			$lastposttime ||= $txt{'470'};
####################Active Users####################
#Edit of StarSabers "Active users in this forum"   #
#Thanks to Hiryuu for testing                      #
####################################################
# Start Active users in this forum mod
$hidecount{$curboard} = 0;
$membercount{$curboard} = 0;

fopen(FILE, "$vardir/log.txt");
@entries = <FILE>;
fclose(FILE);
foreach $curentry (@entries) {
	chomp $curentry;
	($name, $logdate, $boardnow, $hide) = split(/\|/, $curentry);
	if ($name) {
		&LoadUser($name);
		if( exists $userprofile{$name} ) {
			if ( $boardnow eq $curboard && $hide eq 0) {
				++$membercount{$curboard};
			} elsif( $boardnow eq $curboard && $hide eq 1) {
				++$hidecount{$curboard};
			} else {
				++$guests;
			}
		}

	}
}
# Mod Finished Active users in this forum mod
###################/Active Users###################
#Edit of StarSabers "Active users in this forum"  #
#Thanks to Hiryuu for testing                     #
###################################################
			####
			$boardpic = "";
			if (-e "$boardsdir/$curboard.mbo" ) { require "$boardsdir/$curboard.mbo"; }
			if ($boardpic{$curboard} =~ /\//i) {$boardpic{$curboard} = qq~ <img src="$boardpic{$curboard}" alt="" border="0" align="absmiddle"> ~;}
			elsif ($boardpic{$curboard}) {$boardpic{$curboard} = qq~ <img src="$imagesdir/$boardpic{$curboard}" alt="" border="0" align="absmiddle"> ~;}

			my $cookiename = "$cookiepassword$curboard";
			my $crypass = crypt($boardpw{$curboard},$pwseed);
			my $boardpwpic = "";
			if ($settings[7] ne "Administrator" && $boardpw{$curboard} && $yyCookies{$cookiename} ne $crypass) {$boardpwpic = qq~<img border="0" alt="" align="absmiddle" src="$imagesdir/locking.gif">~;}
			elsif ($boardpw{$curboard}) {$boardpwpic = qq~<img border="0" align="absmiddle" alt="" src="$imagesdir/lockopen.gif">~;}
			####
			$yymain .= qq~<tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="8%" align="center" valign="top">$new</td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" align="left" width="66%" onMouseOver="this.style.backgroundColor='$hover{'cellhover'}'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='$color{'windowbg2'}';" onclick="window.location.href='$scripturl?board=$curboard'"$curboardname'">
        <a name="$curboard"></a>
<!--- Added for Notify Plus 2.2 --->
        $markimg <font size=2><a href="$scripturl?board=$curboard" align="absmiddle">$boardpic{$curboard}<B>$curboardname $boardpwpic</B></a></font>
	
        <br><font size="1">$curboarddescr<BR>
        <i>$showmods</i><br></font>
        <font size="1">• Active: $users </i></font></font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle" align="center" width="1%"><font size="2">$threadcount{$curboard}</font></td>
        <td class="windowbg" bgcolor="$color{'windowbg'}" valign="middle" align="center" width="1%"><font size="2">$messagecount{$curboard}</font></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="middle" width="24%"><font size="1">$lastposttime{$curboard}<BR>$txt{'525'} $lastposter</font></td>
      </tr>~;
		}
	}
	my $checkadded = 0;
	$guests = 0;
	$users = '';
	$numusers = 0;
	fopen(FILE, "$vardir/log.txt");
	@entries = <FILE>;
	fclose(FILE);
	foreach $curentry (@entries) {
		chomp $curentry;
		($name, $value) = split(/\|/, $curentry);
		if($name) {
			if(!$yyUDLoaded{$musername}) { &LoadUser($name); }
			if(exists $userprofile{$name}) {
				$numusers++;
				$users .= qq~ <a href="$scripturl?action=viewprofile;username=$useraccount{$name}">$userprofile{$name}->[1]</a><font size="1">,</font> \n~;
			}
			else { $guests++; }
		}
	}
	$users =~ s~<font size="1">,</font> \n\Z~~;
	if($username ne 'Guest') {
		$ims = @immessages;
### LIMITED IM MOD ###
if($userimcfg[5] eq "on") {
$yymain .= qq~<script language="javascript"> function viewinstant() { window.open("$scripturl?action=im") } </script>~; }
else {
$yymain .= qq~<script language="javascript"> function viewinstant() { location.href = ("$scripturl?action=im") } </script>~; }

if ($minnum > $numibox && $numibox ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $minnum $imtxt{'12'} $txt{'316'}!\\n$numibox $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_IM; 
}

if ($moutnum > $numobox && $numobox ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $moutnum $imtxt{'12'} $txt{'320'}!\\n$numobox $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_IMOUT; 
}

if ($storenum > $numstore && $numstore ne "" && $enable_imlimit == 1) {
	$yymain .= qq~<script language="javascript"> if(confirm('$imtxt{'11'} $storenum $imtxt{'12'} $imtxt{'46'}!\\n$numstore $imtxt{'18'}')) { viewinstant(); } else cancel() </script>~;
		&Del_Max_STORE; 
}

$ims = qq~<BR>$txt{'796'} <a href="$scripturl?action=im"><B>$ims</B></a> $imtxt{'24'}: <a href="$scripturl?action=im"><B>$imnewcount</B></a>~;

### END LIMITED IM ###
		$yymain .= qq~<tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="6" align="center">
        <table cellpadding="0" border="0" cellspacing="0" width="100%">
          <tr>
            <td align="left"> <font size="1">
            <img src="$imagesdir/on.gif" border=0 alt="$txt{'333'}"> $txt{'333'}&nbsp;&nbsp;
            <img src="$imagesdir/off.gif" border=0 alt="$txt{'334'}"> $txt{'334'}</font></td>
            <td align="right"><font size=1>&nbsp;
~;
	if($showmarkread) { $yymain .= qq~<a href="$scripturl?action=markallasread">$img{'markallread'}</a>~; }
	$yymain .= qq~
            </font></td>
          </tr>
        </table>
        </td>
      </tr>~;
	}
	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
<BR><BR>
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td bgcolor="$color{'titlebg'}" class="titlebg" align="center" colspan="2">
        <font class="text1" color="$color{'titletext'}" size="2"><b>$txt{'685'}</b></font></td>
      </tr>~;
	$yymain .= qq~<tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$txt{'200'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/info.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}" valign="top" align="center"><font size="1">
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left" width="60%"><font size="1">
            $txt{'490'} <B>$totalt</B> &nbsp; - &nbsp; $txt{'489'} <B>$totalm</B>
	    ~;
	if($Show_RecentBar) {
		require "$sourcedir/Recent.pl";
		&LastPost;
	}
&topthreads;
require "$sourcedir/Todays.pl";
&TotalToday;
$yymain .= qq~<br>Errors Today: <a href="$scripturl?action=Todays">$numfound</a>	
	    </font></td>
	    <td valign="top" align="left" width="40%"><font size="1">
	    $txt{'488'} <a href="$scripturl?action=mlall"><B>$memcount</B></a>
	    ~;
	if ($showlatestmember) {
		&LoadUser($latestmember);
		$yymain .= qq~<BR>$txt{'201'}: <a href="$scripturl?action=viewprofile;username=$useraccount{$latestmember}"><b>$userprofile{$latestmember}->[1]</b></a>~;
	}


open(FILE,"$vardir/usertoday.txt");

@utoday=<FILE>;

close(FILE);



$usertodaycount = @utoday;

$usertoday = '';

for($a=1;$a < $usertodaycount;$a++)

{

	$utoday[$a] =~ s/\n//gi;

	$name = $utoday[$a];

	if($useraccount{$name} eq ''){&LoadUser($name);}

	$usertoday .= qq~<a href="$scripturl?action=viewprofile&username=$useraccount{$name}">$userprofile{$name}->[1]</a>, ~;

	if($name eq $username){$Inserted = 'true';}

}

$usertodaycount = $usertodaycount-1;



if($utoday[0] != $mday)

{

	open(FILE,">$vardir/usertoday.txt");

	print FILE "$mday\n";

	if($username ne 'Guest')

	{

		print FILE "$username\n";

	}

	fclose(FILE);

}

elsif($username ne 'Guest' && $Inserted ne 'true')

{

	open(FILE,">>$vardir/usertoday.txt");

	print FILE "$username\n";

	fclose(FILE);

}
	$yymain .= qq~
	    $ims
	    </font></td>
	  </tr>
<!-- Begin FTT Corporation language mod -->
	~;
	&getlangmenu;
	$yymain .= qq~
	$langdd
<!-- End FTT Corporation language mod -->
	</table>
	</font></td>
      </tr><tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$txt{'158'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="http://www.bordeglobal.com/board/YaBBImages/blue_smiles/yellow.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">
            



$guests $txt{'141'}, $numusers $txt{'142'}<BR>$users<br>$uttxt{'1'} $usertodaycount $uttxt{'2'} $usertoday $uonline

            </font></td>

          </tr>

        </table>

        </font></td>

      </tr>

 <tr>

    <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"><font size="2" class="catbg"><b>$tttxt{'01'}</b></font></td>

</tr><tr>

    <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/xx.gif" border="0"></td>

    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="1">

<table width="98%" cellpadding="3" align="center">

<tr><td valign="top" align="left"><font size="1">

$tttxt{'04'} $linktoday<br>$tttxt{'03'} $linkmonth<br>$tttxt{'02'} $linkever

</font></td>

 </tr>

</table> 

</font></td>

</tr>~;

########chat insertion###########
	require "$vardir/ChatSettings.txt";
	chomp $chatgroup;
	@chatgrouplist = split(",",$chatgroup);
	$chatgroupflag = 0;
	foreach $chatgroupitem (@chatgrouplist) {
		if ($settings[7] eq $chatgroupitem) { $chatgroupflag = 1; }
	}
	if ($chatopen == 1 || $settings[7] eq 'Administrator' || $chatgroupflag == 1 ) {
		$yymain .=qq~
      <tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$chadmtxt{'7'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="http://www.bordeglobal.com/board/YaBBImages/blue_smiles/gossip.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">~;
		$cguests = 0;
		$cusers = '';
		open(OF,"$vardir/online.txt") or dienice ("Can't open file: $!");
		@ary = <OF>;
		close(OF);
		foreach $line (@ary) {
			chomp($line);
			($of,$name,$ip,$displayname,$level,$time,$non7,$non8,$non9,$non10,$non11) = split(/°¸/,$line);
        		if( $name ) {
				if( exists $userprofile{$name} ) {
					$cusers .= qq~ <a href="$scripturl?action=viewprofile;username=$useraccount{$name}">\n$displayname</a><font size=1>,</font>\n~;
				} else {
					++$cguests;
				}
			}
		}
		$yymain .=qq~
			$cusers<br>
		~;

		$windowname=$mbname;
		$windowname=~ s/ //g;
		$windowname=~ s/\W//g;

		if ($password eq ""){
			if ($enable_guestposting == 0){
				$yymain .=qq~<font size=2>$chadmtxt{'8'}</font>~;
			} else {
				$yymain .=qq~$chadmtxt{'9'}$cguests<br>\n<br><a href=javascript\:OpenAdsDetail(\'$cgi&action=chatnow\&job=login\',\"$windowname\")>$chadmtxt{'10'}</a>~;
			}
		} elsif ($password ne "") {
			if ($enable_guestposting == 1){
				$yymain .=qq~$chadmtxt{'9'}$cguests<br>~;
			}
			$yymain .=qq~<br><a href=javascript\:OpenAdsDetail(\'$cgi\&action=chatnow\&job=login',\"$windowname\")>$chadmtxt{'10'}</a>~;
		}
		$yymain .=qq~
            </font></td>
          </tr>
        </table>
        </font></td>
      </tr>~;
	}
########chat ended############


	if( $bdayshowbottom == '1' && ( $bdayshowguest == '0' || $username ne 'Guest' )) {

	$yymain .= qq~

<tr>

    <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"><font size="2" class="catbg">&#187; <b>$bday{'04'}:</b></font></td>

  </tr><tr>

    <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="$imagesdir/bdaycake.gif" border="0" width="20" height="17"></td>

    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=2><b><a href="$cgi&action=bdays">$bday{'08'}</a></b>&nbsp;&nbsp;$whobg</font></td>

  </tr>~;

	}


########### Newcalendar mod start #######################
if ($newcalopen == 1 || $settings[7] eq 'Administrator' || $settings[7] eq $newcalgroup ) {
	if ($newcalmoon2 == 1) {
		require "$sourcedir/MoonPhase.pl";                           #This is the moon phase calculator
		( $MoonPhase, $MoonIllum, $MoonAge, $MoonDist, $MoonAng, $SunDist, $SunAng ) = phase();
		my ($newphaselow) = 0.016666667;
		my ($newphasehigh) = 0.983333333;
		my ($phaseincrement) = 0.033333333;

		if ( ($MoonPhase < $newphaselow) || ($MoonPhase > $newphasehigh) ){
			$moonpict = qq~<img src="$moonsdir/bmoon00.gif" alt="" border="0">~;
		} else {
			$gifnumber = 1;
			for ($phasescan = $newphaselow; $phasescan < $newphasehigh; $phasescan += $phaseincrement) {
				if ( ($MoonPhase > $phasescan) && ( $MoonPhase <= ($phasescan + $phaseincrement)) ){
					if ($gifnumber < 10) {
						$moonpict = qq~<img src="$imagesdir/moon0$gifnumber.gif" alt="" border="0">~;
					} else {
						$moonpict = qq~<img src="$imagesdir/moon$gifnumber.gif" alt="" border="0">~;
					}
				}
				$gifnumber++;
			}
		}
	} else {
		$moonpict = qq~<img src="$imagesdir/newcal.gif" alt="" border="0">~;
	}
	$yymain .=qq~
      </tr>
       <tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$ecaltxt{'55'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><a href="$cgi;action=newcalendar">$moonpict</a></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">~;
require "$sourcedir/Newcalendar.pl";
&IndexCal;
$yymain .=qq~  
            </font></td>
          </tr>
        </table>
        </font></td>
      </tr>~;
}
########### Newcalendar mod end #######################

	if($username eq 'Guest') {
		require "$sourcedir/LogInOut.pl";
		$sharedLogin_title="$txt{'34'} <small><a href=\"$cgi;action=reminder\">($txt{'315'})</small></a>";
		&sharedLogin;
	}
		#Count Down#
		&cdboard;


	$yymain .= qq~
    </table>
    </td>
  </tr>
</table>
~;
                &member_of_the_day;
	if($imnewcount > 0 && $enable_mailpopup == 1) {
		if($imnewcount > 1) { $en = "s"; $en2 = "$imtxt{'47'}"; } else { $en = ""; $en2 = "$imtxt{'48'}"; }

		open(FILE, "$memberdir/$username.imconfig");
		@imuserdata = <FILE>;
		close(FILE);

		chomp($imuserdata[3]);
		chomp($imuserdata[5]);

		if($imuserdata[3] eq "on") {
	if($imuserdata[5] eq "on") {
	$yymain .= qq~
	<script language="JavaScript">
	function rimpu() { window.open("$scripturl?action=im") }
	function cancel () { }
	</script>~;
	} else {
	$yymain .= qq~
	<script language="JavaScript">
	function rimpu() { location.href = ("$scripturl?action=im") }
	function cancel () { }
	</script>~;
	}
		$yymain .= qq~
	<script language="JavaScript">
	<!-- BEGIN
		if (confirm("$imtxt{'13'} $imnewcount $imtxt{'14'}$en$imtxt{'15'} $en2?")) { rimpu(); } else cancel()
	// END --> 
	</script>
		~;
		}
	}
	$yytitle = "$txt{'18'}";
	&template;
	exit;
}

sub MarkAllRead {
	fopen(FILE, "$vardir/cat.txt");
	my @categories = <FILE>;
	fclose(FILE);
	my( $curcat, $curcatname, $curcataccess, @catboards, @membergroups, $openmemgr, $curboard );
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(FILE, "$boardsdir/$curcat.cat");
		$curcatname = <FILE>;
		$curcataccess = <FILE>;
		chomp $curcatname;
		chomp $curcataccess;
		@catboards = <FILE>;
		fclose(FILE);
		@membergroups = split( /,/, $curcataccess );
		$openmemgr = 0;
		foreach (@membergroups) {
			if( $_ eq $settings[7]) { $openmemgr = 1; last; }
		}
		if(!$curcataccess || $settings[7] eq 'Administrator') { $openmemgr = 1; }
		unless( $openmemgr ) { next; }
		foreach $curboard (@catboards) {
			chomp $curboard;
			&modlog("$curboard--mark");
			&modlog($curboard);
		}
	}
	&dumplog;
	&BoardIndex;
}

sub topthreads {

### topthread ever

opendir (DIR,"$datadir"); 
 @dirdata2 = readdir(DIR); 
 closedir (DIR); 
 @datei = grep(/\.txt/,@dirdata2); 




foreach $test (@datei){

open(FILE,"$datadir/$test") or die "Fehler $!";
@test = <FILE>;
close(FILE);

$laenge = @test;

$doit{$test} = $laenge;


} 




#### top thread month and day

foreach $spezi (@datei){

open(FILE,"$datadir/$spezi") or die "Fehler $!";
@test3 = <FILE>;
close(FILE);


       foreach $supi2 (@test3){
		
		($x, $y, $z, $time, $u, $v, $w, $r, $s, $t) = split(/\|/,$supi2);
		($date4,$time4) = split(/ /,$time);
		($monthit, $dayit, $yearit) = split(/\//,$date4); 

		

		$spezi =~ s/\.txt//gi;
		push @monthsgo, "$monthit|$yearit";
		push @time2, $date4;
		push @threadit2, $spezi;			
		push @threadit4, $spezi;
			
	}

} 


for (0..$#time2){if (exists $makeit{$time2[$_]}){push @{$makeit{$time2[$_]}},$threadit2[$_];}else{@{$makeit{$time2[$_]}}=$threadit2[$_]}}

for (0..$#monthsgo){if (exists $makedown{$monthsgo[$_]}){push @{$makedown{$monthsgo[$_]}},$threadit4[$_];}else{@{$makedown{$monthsgo[$_]}}=$threadit4[$_]}}




&get_date;
($date3, $f) = split(/ /, $date);
($monthgo, $daygo, $yeargo) = split(/\//, $date3);
chomp @{$makeit{"$date3"}};
chomp @{$makedown{"$monthgo|$yeargo"}};
@daten = sort {$a <=> $b} @{$makeit{"$date3"}};
@monthdat = sort {$a <=> $b} @{$makedown{"$monthgo|$yeargo"}};


foreach (@daten){
$anzahl{$_}++;
}
foreach (sort {$anzahl{$b} <=> $anzahl{$a}} keys %anzahl) {
push @sort_data, $_
}


foreach (@monthdat){
$anzahl2{$_}++;
}
foreach (sort {$anzahl2{$b} <=> $anzahl2{$a}} keys %anzahl2) {
push @monthsdat, $_
}



#####


 



#boardprüfung - threadzuordnung


opendir (DIR,"$boardsdir"); 
 @dirdata = readdir(DIR); 
 closedir (DIR); 
 @datei2 = grep(/\.txt/,@dirdata); 





foreach $mega (@datei2){

open(FILE,"$boardsdir/$mega") or die "Fehler $!";
@mega = <FILE>;
close(FILE);

	foreach $supi (@mega){
		($num, $a, $b, $c, $d, $e, $f, $g, $h) = split(/\|/,$supi);
		
		$mega =~ s/\.txt//gi;
		
		push @board2, $mega;
		push @num2, $num; 				
		
			
	}

}




$hasit{$num2[$_]}=$board2[$_] for (0..$#num2);








###### wer mit wem prüfung ;) ###




fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);

chomp @categories;

foreach $catit (@categories){
open (FILE,"$boardsdir/$catit.cat") or die "haha!"; 
@all = <FILE>;
close (FILE);

$hehe2{$catit} = $all[1];

@all2 = @all;
@weg2 = splice(@all2,0,2);


for (0..$#all2) {$goit{$all2[$_]} = $catit }


 
}




foreach  (sort {$doit{$b} <=> $doit{$a}} keys %doit){ 

$tra = $_; 

$tra =~ s/\.txt//gi;

$boarddayt = $hasit{$tra};

$boarddayu = $goit{$boarddayt};

chomp $hehe2{$boarddayu};

 

if ($hehe2{$boarddayu} eq "") {$most = $_; last;}
if ($settings[7] eq $hehe2{$boarddayu}){$most = $_; last; }
if ($settings[7] eq "Administrator"){$most = $_; last;}

}



foreach $todayt (@sort_data){

$board3t = $hasit{$todayt};

$board3u = $goit{$board3t};



chomp $hehe2{$board3u};



if ($hehe2{$board3u} eq "") {$todaysactive = $todayt; last;}
if ($settings[7] eq $hehe2{$board3u}){$todaysactive = $todayt; last;}
if ($settings[7] eq "Administrator"){$todaysactive = $todayt; last;}

}




foreach $monthtop (@monthsdat){

$board3m = $hasit{$monthtop};

$board3n = $goit{$board3m};

chomp $hehe2{$board3n};

if ($hehe2{$board3n} eq "") {$monthsactive = $monthtop; last;}
if ($settings[7] eq $hehe2{$board3n}){$monthsactive = $monthtop; last;}
if ($settings[7] eq "Administrator"){$monthsactive = $monthtop; last;}

}



$linkit = $most;
$linkit =~ s/.txt//gi;
$board3 = $hasit{$linkit};
$boardday = $hasit{$todaysactive};
$boardmon = $hasit{$monthsactive};



#### get threads

if ($most ne ""){
open(FILE,"$datadir/$most") or die "Fehler $!";
$test4 = <FILE>;
close(FILE);

($show) = split(/\|/, $test4);
$linkever = qq~<a href="$cgi$board3;action=display;num=$linkit;start=0">$show</a>~;
}
else{ $linkever = qq~$tttxt{'05'}~;}



if ($todaysactive ne ""){
open(FILE,"$datadir/$todaysactive.txt") or die "Fehler $!";
$test5 = <FILE>;
close(FILE);

($show2) = split(/\|/, $test5);
$linktoday = qq~<a href="$cgi$boardday;action=display;num=$todaysactive;start=0">$show2</a>~;
}
else{$linktoday = qq~$tttxt{'07'}~;}




if ($monthsactive ne ""){
open(FILE,"$datadir/$monthsactive.txt") or die "Fehler $!";
$test6 = <FILE>;
close(FILE);

($show3) = split(/\|/, $test6);
$linkmonth = qq~<a href="$cgi$boardmon;action=display;num=$monthsactive;start=0">$show3</a>~;
}
else{$linkmonth = qq~$tttxt{'06'}~;}

####



}
1;