• Top Threads
• Top Profiles

Code

# start top threads
$yymain .= qq~
    </font></td>
  </tr><tr>
    <td bgcolor="$color{'catbg'}" class="catbg">
    <font size=2><center><B>$showclicktxt{'2'}</B>
    </td>
  </tr><tr>
    <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="2">
~;


for($i = 0; $i < @newmsglist; $i++) {
	if($newmsglist[$i]->[0] =~ /\S+/) {
		if( index($newmsglist[$i]->[0], "board=") > -1 && index($newmsglist[$i]->[0], "num=") > -1 && index($newmsglist[$i]->[0], "title=") == -1 && index($newmsglist[$i]->[0], "start=") == -1)
		   {
			 my @tmpmsgname2 = split(/num=/,$newmsglist[$i]->[0]);
			 my $tmpmsgname = $tmpmsgname2[1];

		  if(-e("$datadir/$tmpmsgname.txt")) {
		fopen(FILE, "$datadir/$tmpmsgname.txt");
		@boardsettings = <FILE>;
		fclose(FILE);
		    $tmpmsgname = substr($boardsettings[0],0,index($boardsettings[0], "|"));

				 }
			 $tmpmsglink = substr($newmsglist[$i]->[0],index($newmsglist[$i]->[0], "?"),length($newmsglist[$i]->[0]));
			 $yymain .= "<a href=\"$cgiurl$tmpmsglink\" target=\"_blank\">$tmpmsgname</a>  (<i>$newmsglist[$i]->[1]</i>)<BR>\n"; }
#			 $yymain .= "<a href=\"$cgiurl$tmpmsglink\" target=\"_blank\">$tmpmsgname</a>  (<i><b>$newmsglist[1]</b></i>)<BR>\n"; }
						     }
}

# Top Profiles

$yymain .= qq~
    </font></td>
  </tr><tr>
    <td bgcolor="$color{'catbg'}" class="catbg">
    <font size=2><center><B>$showclicktxt{'5'}</B>
    </td>
  </tr><tr>
    <td bgcolor="$color{'windowbg2'}" class="windowbg2"><font size="2">
~;

for($i = 0; $i < @newproflist; $i++) {
	if($newproflist[$i]->[0] =~ /\S+/) {
		if( index($newproflist[$i]->[0], "action=viewprofile") > -1 && index($newproflist[$i]->[0], "board=") == -1)
		   {
			 my @tmpprofname2 = split(/username=/,$newproflist[$i]->[0]);

			 $tmpprofname = $tmpprofname2[1];
			 $tmpproflink = substr($newproflist[$i]->[0],index($newproflist[$i]->[0], "?"),length($newproflist[$i]->[0]));

		   if(-e("$memberdir/$tmpprofname.dat")) {
			  fopen(FILE, "$memberdir/$tmpprofname.dat");
			  @clicksettings = <FILE>;
		    fclose(FILE);
		     $clicksettings[0] =~ s/[\n\r]//g;
			 $yymain .= "<a href=\"$cgiurl$tmpproflink\" target=\"_blank\">$clicksettings[1]</a>  (<i>$newproflist[$i]->[1]</i>)<BR>\n"; }
			   }

		   }
}