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

use strict;

# Imports
use CGI::Carp qw(fatalsToBrowser);
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 HTTP header
printHttpHeader();

if ($user->{'defaultUser'}) {
	# Redirect to main page
	redirect("forum_show.cgi");
}
else {
	# Update last read time
	my $query = "
		UPDATE ut_users SET 
		lastReadTime = $user->{'lastOnTime'} 
		WHERE id = $user->{'id'}";
	$dbh->do($query) or dbError();

	# Redirect to main page
	redirect("forum_show.cgi");
}