#!/usr/bin/perl
#------------------------------------------------------------------------------
#    UltraThreads
#    Copyright (c) 2000 Kelvin Wu
#
#    2000.07
#------------------------------------------------------------------------------

use strict;

# Imports
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use UTConfig;
use UTLanguage;
use UTMain;

#------------------------------------------------------------------------------

# Get user
connectDb();
my $user = authUser();

# Check if forum is closed
printMessage("$lng{'forumClosedLb'}", "$lng{'forumClosed'}") 
	if $cfg{'forumClosed'} && !$user->{'admin'};

# Print header
my @buttons = ();
printHeader($user, "", \@buttons);

# Check if access should be denied
checkBlock();

my $imgAlign = getBrowserAttr('middleImgAlign');

# Check private messages
my $pmMsgIcon = (!$user->{'defaultUser'} && $user->{'pmNew'} && $cfg{'pm'})  
	? "<a href='pm_list.cgi'><img src='$cfg{'nonCgiPath'}/images/newpm.gif' border=0 alt=\"$lng{'forumPmNew1'} $user->{'pmNew'} $lng{'forumPmNew2'}\"></a>&nbsp;&nbsp;&nbsp;&nbsp;\n" 
	: "";

# Print greeting
my $msg = $user->{'defaultUser'}
    ?  "$lng{'forumNoLogin'}" 
    :  "$lng{'forumWelcome'} $user->{'userName'}";

print
    "<BR CLEAR='all'>",
    "<table border=0 cellspacing=0 cellpadding=2 width=95%>\n",
    "<tr><td><b>$msg</b>\n";

my $lastTime = $user->{'lastReadTime'} ? "(" . formatTime($user->{'lastReadTime'}) . ")" : "";
$user->{'defaultUser'}
    ?  print ""
    :  print 
        "<br><br><img src='$cfg{'nonCgiPath'}/images/shownew.gif' border=0 $imgAlign>",
        "&nbsp;<a href='post_shownew.cgi' class=mod><b>$lng{'forumNewPosts'}</b></a> ",
        $lastTime;

# Get number of members
my $query = "SELECT COUNT(*) FROM ut_users";
my $sth = query($query);
my $userNum = $sth->fetchrow_array();
$sth->finish;

# Get number of posts
my $postsTable = "";
if ($cfg{'showPostNum'}) {
	$query = "SELECT SUM(postNum+postNumBak) FROM ut_boards";
	$sth = query($query);
	my $postNum = $sth->fetchrow_array();
	$sth->finish;

	$postsTable = 
	    "<table border=0 cellspacing=0 cellpadding=0>\n" . 
	    "<tr>\n" . 
	    "<td bgcolor=#9A9A9A><table border=0 cellspacing=1 cellpadding=0>\n" .
	    "<tr align=center>\n" .
	    "<td bgcolor=#E4E4E4>" .
		"<IMG SRC='$cfg{'nonCgiPath'}/images/posts.gif'" .
	    " $imgAlign border=0></a>" .
	    "<font class=member><b>$postNum&nbsp;&nbsp;</b></font>" .
	    "</td></tr></table>\n" .    
	    "</td></tr></table>";
}

print
    "</td><td align=right valign=top>",
	"$pmMsgIcon</td>",
	"</tr><tr>\n",
    "<td colspan=2 align=right nowrap>",
	"<table border=0 cellspacing=0 cellpadding=0><tr><td>\n",
	"$postsTable",
	"</td><td>\n",
	"<table border=0 cellspacing=0 cellpadding=0>\n",
    "<tr>\n",
    "<td bgcolor=#9A9A9A><table border=0 cellspacing=1 cellpadding=0>\n",
    "<tr align=center>\n",
    "<td bgcolor=#E4E4E4>",
	"<a href='user_list.cgi'><IMG SRC='$cfg{'nonCgiPath'}/images/members.gif'",
    " $imgAlign ALT='$lng{'forumMemListTT'}' border=0></a>",
    "<font class=member><b>$userNum&nbsp;&nbsp;</b></font>",
    "</td></tr></table>\n",    
    "</td></tr></table>\n",    
    "</td></tr></table>\n",
    "</td></tr></table>\n";

# Get categories
$query = "SELECT * FROM ut_categories ORDER BY pos";
$sth = query($query);
my $cats = $sth->fetchall_arrayref({});
$sth->finish;

# Get boards
$query = "
	SELECT ut_boards.*, ut_hiddenboards.userId IS NOT NULL AS hidden 
	FROM ut_boards	LEFT JOIN ut_hiddenboards 
	ON ut_hiddenboards.userId = $user->{'id'} 
	AND ut_hiddenboards.boardId = ut_boards.id 
	WHERE ut_boards.active = 1 
	ORDER BY pos";
$sth = query($query);
my $boards = $sth->fetchall_arrayref({});
$sth->finish;

my %boards = ();
for my $board (@$boards) { $boards{$board->{'id'}} = $board }

# Get new posts 
unless ($user->{'defaultUser'}) {
	$query = "
		SELECT boardId, COUNT(*) 
		FROM ut_posts 
		WHERE postTime > $user->{'lastReadTime'} 
		GROUP BY boardId"; 
	$sth = query($query);
	while (my @data = $sth->fetchrow_array()) {
		($boards{$data[0]}->{'newPostNum'}) = $data[1] if defined($boards{$data[0]});
	}
    $sth->finish;
}

my $age = $user->{'defaultUser'} ? $cfg{'postsAge'} : $user->{'postsAge'};

# Print table header
print 
	tableStart($user),
	"<TR BGCOLOR='$cfg{'darkCellColor'}'>\n",
	"<TD colspan=2 align=center><font color=$cfg{'darkCellTColor'}><B>$lng{'forumCatg'}</B></font></TD>\n",
	"<TD NOWRAP align=center><font color=$cfg{'darkCellTColor'}><B>$lng{'forumPosts'}</B></font></TD>\n",
	"<TD NOWRAP align=center><font color=$cfg{'darkCellTColor'}><B>$lng{'forumNew'}</B></font></TD>\n",
	"<TD NOWRAP align=center><font color=$cfg{'darkCellTColor'}><B>$lng{'forumLastPost'}</B></font></TD>\n",
    "<TD align=center><font color=$cfg{'darkCellTColor'}><B>$lng{'forumModerator'}</B></font></TD>\n",
	"</TR>\n\n";

# Get board moderators
$query = "
	SELECT userId, boardId, id, userName
	FROM ut_admins, ut_users 
	WHERE ut_admins.userId = ut_users.id 
	ORDER BY userId";
$sth = query($query);
my $boardMods = $sth->fetchall_arrayref({});
$sth->finish;

my %mods = ();
foreach my $mod (@$boardMods) { 
    $mods{$mod->{'boardId'}} .= ", <A HREF='user_info.cgi?id=$mod->{'id'}' class=mod>$mod->{'userName'}</A>"; 
}

# Print categories/boards
for my $cat (@$cats) {
	my $firstBoard = 1;

	for my $board (@$boards) {
		next if $board->{'categoryId'} != $cat->{'id'};
		next if $board->{'hidden'};
		next unless boardVisible($user, $board, undef, undef, 1);

		# Prepare display strings
    	my $newPostNumStr;
        if ($user->{'defaultUser'}) {
            $newPostNumStr= "-";
        }
        else {
            $newPostNumStr= $board->{'newPostNum'} ? $board->{'newPostNum'} : 0;
        }

		my $lastPostTimeStr = $board->{'lastPostTime'} > 0 
			? formatTime($board->{'lastPostTime'}) : " - ";
        my $lastPostNameStr = $board->{'lastPostId'} 
            ? "<A HREF='user_info.cgi?id=$board->{'lastPostId'}'>$board->{'lastPostName'}</A>"
            : "unknown";

		my $img = $board->{'newPostNum'} ? "board_n" : "board";

		# If first board in category, print category
		if ($firstBoard) {
			print 
				"<TR BGCOLOR='$cfg{'categColor'}'>\n",
				"<TD NOWRAP colspan=6><B>$cat->{'title'}</B></TD>\n",
				"</TR>\n\n";
			$firstBoard = 0;
		}

		# Print board		
		print 
			"<TR bgcolor=$cfg{'lightCellColor2'}>\n",
            "<td align=center NOWRAP width=4% valign=top><IMG SRC='$cfg{'nonCgiPath'}/images/$img.gif' BORDER=0",
			" $imgAlign></td>\n",
   			"<TD width=50% valign=top><A HREF='board_show.cgi?id=$board->{'id'}&age=$age'>$board->{'title'}</A>";

		print 
			"<br>$board->{'shortDesc'}</TD>\n",
			if $cfg{'showShortDesc'} && $board->{'shortDesc'};

		$mods{$board->{'id'}} =~ s/^, //isg;
		my $boardPostsTotal = $board->{'postNum'} + $board->{'postNumBak'};

        print 
			"<TD NOWRAP align=center width=6%>$boardPostsTotal</TD>\n",
			"<TD NOWRAP align=center width=6%>$newPostNumStr</TD>\n",
			"<TD NOWRAP align=center class=smalltext width=15%>$lastPostTimeStr<br>",
            "by $lastPostNameStr</TD>\n",
			"<TD width=20% valign=top>$mods{$board->{'id'}}&nbsp;</TD>\n",
			"</TR>\n";
			
		print "\n";
	}
}

print 
	tableEnd($user);

# Get open polls
if ($cfg{'poll'}) {
    $query = "SELECT * FROM ut_polls WHERE goPublic = 1 AND open = 1 ORDER BY startDate";
    $sth = query($query);
    my $polls = $sth->fetchall_arrayref({});
    $sth->finish;

    # Print polls table header
    print 
        "<br>\n",
        tableStart($user, "$lng{'forumPoll'}", 5);

    # Print polls
    for my $poll (@$polls) {
        next unless boardVisible($user, $boards{$poll->{'boardId'}}, undef, undef, 0);

        my $startDate = formatDate($poll->{'startDate'});
        my $closeDate = formatDate($poll->{'closeDate'});
        print
            "<tr bgcolor=$cfg{'lightCellColor2'}><td valign=top align=center NOWRAP width=4%>",
            "<IMG SRC='$cfg{'nonCgiPath'}/images/poll.gif' BORDER=0 $imgAlign></td>\n",
            "<TD width=50%>",
            "<a href='poll_show.cgi?id=$poll->{'id'}'>$poll->{'title'}</a><br>\n",
            "$poll->{'shortDesc'}</td>\n",
            "<TD width=12% align=center NOWRAP>\n",
            "$poll->{'voteNum'} $lng{'forumPollVotes'}</td>\n",
            "<TD width=15% align=center class=smalltext>\n",
            "from $startDate<br>to $closeDate</td>\n",
            "<TD width=20%>\n",
            "$lng{'forumPollBy'} <a href='user_info.cgi?id=$poll->{'starterId'}'>$poll->{'starterName'}</a>\n",
            "</td></tr>\n",
    }

    print 
        "<tr><td colspan=5 BGCOLOR='#D1D9E2' NOWRAP>\n",
        "<a href='poll_list.cgi' class=mod>$lng{'forumPollList'}</a> ...</td></tr>\n",
        tableEnd($user);
}

# Update online users stats
updateOnlineUsers($user, $lng{'forum_show'});

my $pmCell = (!$user->{'defaultUser'} and $cfg{'pm'}) ? 1 : 0;
my $favCell = (!$user->{'defaultUser'} and $cfg{'favorites'}) ? 1 : 0;
my $onlineCell = $cfg{'usersOnline'} ? 1 : 0;
my $cellWidth = ($pmCell + $favCell + $onlineCell) 
	? int(100/($pmCell + $favCell + $onlineCell)) : 100;

my $row1 = "";
my $row2 = "";

# Private messages
if ($pmCell) {
	$row1 = 
		"<td width=$cellWidth% colspan=2>\n" . 
		"<font color=$cfg{'darkCellTColor'}><b>$lng{'forumPm'}</b></font></td>\n";
	$row2 = 
        "<td align=center NOWRAP width=4%>" . 
        "<IMG SRC='$cfg{'nonCgiPath'}/images/pm.gif' BORDER=0 $imgAlign></td>\n" . 
        "<td><a href='pm_list.cgi'>$lng{'forumPmChk'}</a>.<br>" . 
		"$lng{'forumPmNew1'} $user->{'pmNew'} $lng{'forumPmNew2'}</td>\n";
}

# Favorites
if ($favCell) {
	$row1 .= 
		"<td width=$cellWidth% colspan=2>\n" . 
		"<font color=$cfg{'darkCellTColor'}><b>$lng{'forumFavorites'}</b></font></td>\n";
	$row2 .= 
        "<td align=center NOWRAP width=4%>" . 
        "<IMG SRC='$cfg{'nonCgiPath'}/images/favorite.gif' BORDER=0 $imgAlign></td>\n" . 
        "<td><a href='fav_list.cgi'>$lng{'forumFavChk'}</a>.</td>\n";
}

# Online users
if ($onlineCell) {
	my $onlineUserNum = "";
	if ($cfg{'showOnlineUserNum'}) {
		my $activeTime = time() - $cfg{'inactiveTime'} * 60;
		$query = "SELECT COUNT(*) FROM ut_online WHERE lastOnTime > $activeTime";
		$sth = query($query);
		$onlineUserNum = $sth->fetchrow_array();
		$sth->finish;

		$onlineUserNum = "<br>$lng{'forumOnline'}: $onlineUserNum";
	}
	$row1 .= 
		"<td width=$cellWidth% colspan=2>\n" . 
		"<font color=$cfg{'darkCellTColor'}><b>$lng{'forumOnline'}</b></font></td>\n";
	$row2 .= 
        "<td align=center NOWRAP width=4%>" . 
        "<IMG SRC='$cfg{'nonCgiPath'}/images/online.gif' BORDER=0 $imgAlign></td>\n" . 
        "<td><a href='user_online.cgi'>$lng{'forumOnlineChk'}</a>.$onlineUserNum</td>\n";
}

if ($pmCell || $favCell || $onlineCell) {
	print 
        "<br>\n",
        tableStart($user, undef, undef, "95%", ""),
		"<tr bgcolor=$cfg{'darkCellColor'}>\n",
		$row1,
		"</tr><tr bgcolor=$cfg{'lightCellColor2'}>\n",
		$row2,
		"</tr>\n",
		tableEnd($user);
}

# Print legend
print
    "<br>",
    "<table border=0 cellspacing=0 cellpadding=1 width=95%>\n",
    "<tr valign=top><td><font class=text>",
    "<IMG SRC='$cfg{'nonCgiPath'}/images/board.gif' BORDER=0",
	" $imgAlign>&nbsp; $lng{'forumLegendNor'}<br>",
    "<IMG SRC='$cfg{'nonCgiPath'}/images/board_n.gif' BORDER=0",
	" $imgAlign>&nbsp; $lng{'forumLegendNew'}",
    "</td></tr></table><br>\n";

# Print admin bar
if ($user->{'admin'}) {
	my @adminBar = (
		"cfg_general.cgi",  "$lng{'forumAdmGen'}",    1,
		"cfg_style.cgi",    "$lng{'forumAdmStyle'}",  1,
		"user_admin.cgi",   "$lng{'forumAdmUsers'}",  1,
		"board_admin.cgi",  "$lng{'forumAdmBoards'}", 1,
		"categ_admin.cgi",  "$lng{'forumAdmCatgs'}",  1
	);
	printAdminBar($user, "$lng{'adminBarTitle'}", "", \@adminBar);

	my @adminBar2 = (
		"topic_admin.cgi",  "$lng{'forumAdmTopics'}", 1,
		"poll_admin.cgi",   "$lng{'forumAdmPolls'}",  1,
		"misc_admin.cgi",   "$lng{'forumAdmMisc'}",   1,
		"forum_dump.cgi",   "$lng{'forumAdmDump'}",   1,
	);
	printAdminBar($user, "", "", \@adminBar2);
}
elsif ($user->{'moderator'} || $user->{'superMod'}) {
	my @adminBar = (
		"poll_admin.cgi",   "$lng{'forumAdmPolls'}",  1,
	);
	printAdminBar($user, "$lng{'adminBarTitle'}", "", \@adminBar);
}

unless ($user->{'defaultUser'}) {
	my $ip = $ENV{'REMOTE_ADDR'};
	my $realIp = $ENV{'HTTP_X_FORWARDED_FOR'};
	$realIp = "" if (($realIp eq "unknown") or ($ip eq $realIp)); 
	my $now = time();

	$query = "
		UPDATE ut_users SET 
		lastOnTime = $now,
		lastIp = '$ip', 
		lastRealIp = '$realIp' 
		WHERE id = $user->{'id'}";
	$dbh->do($query) or dbError();
}

# Print popup box if new PM comes
print 
	"<script language=javascript>\n",
	"alert(\"$lng{'forumPmNew1'} $user->{'pmNew'} $lng{'forumPmNew2'}\")\n",
	"</script>\n" 
	if (!$user->{'defaultUser'} && $user->{'pmNew'} && $user->{'pmPopup'} && $cfg{'pm'});

# Print footer
printFooter();