#!/usr/bin/perl
#########################################
# inbox
# deal with inboxing, message display
#########################################

use localbucky;

$dbh = DBI->connect ($dsn);

our ($USER, $lastlog) = checkin();
logout() unless ($USER != -1);

if ( defined($input->{object_from_uri}) )
	{
	if ( $input->{object_from_uri} =~ /^[0-9]+$/ )
		{
		$input->{id} ||= $input->{object_from_uri};
		}
	else
		{
		$input->{box} ||= $input->{object_from_uri};
		}
	
	}
#$input->{id} ||= $input->{object_from_uri} if defined($input->{object_from_uri}) && ($input->{object_from_uri} =~ /^[0-9]+$/);
#$input->{box} ||= $input->{object_from_uri} if defined($input->{object_from_uri}) && (
if (exists($input->{id}))
	{
	# display message

	my $message = get_message($input->{id});
	my $bn = $b->{mbox};
	$bn =~ s/^$USER->{username}\.//;
	if ($message == -1)
		{ error("No such message!"); }
	if ($USER->{username} ne $message->{recipient} && $USER->{username} ne $message->{sender})
		{ error("You are not the recipient of this message."); }
	unflag_message($input->{id});
	my $header_args= {};
	$header_args->{'title'} = $message->{'subject'};	
	if ($message->{'body'} =~ /body bgcolor="?([#0-9a-fA-F]+)/)
		{
	  $header_args->{'color'} = $1;
		}

	header($header_args);
	menu();
	print "<br><br>";
	display_message($message);
	footer();
	}

elsif ($input->{c} eq "f")
	{
	# folder_management_form();
	}

else
	{
	my $box = exists($input->{box}) ? $input->{box} : "inbox";
	my $limit = exists($input->{limit}) ? int($input->{limit}) : 50;
	my $date = exists($input->{start}) ? int($input->{start}) : "now";

	header("your $box");
	menu();

	my $messages = get_messages("$USER->{username}.$box", $limit, $date);
	my $boxes = get_boxes($USER->{username});

	print qq!<center>!;

	print <<userbox;
<div class="bluebox" style="float: right;">
<b>message center</b>
<hr noshade color="$BUCKY_COLOR_HR">
<center>
<table border=0 cellspacing=2 width=100>
<tr><td align=left><small><b>Folders</b></small></td><td align=center><small>msgs</small></td></tr>
userbox

	foreach my $b (@$boxes)
		{
		my $count = $b->{mcount} || 0;
		my $bn = $b->{mbox};
		$bn =~ s/^$USER->{username}\.//;
		print qq!<tr><td align=left><small><a href="$BUCKY/inbox/$bn"><b>$bn</b></a></small></td>! .
			qq!<td align=center>!.hushnull($count, undef, 1).qq!</td></tr>!;
		}

	print <<userbox;
</table>
</center>
<hr noshade color="$BUCKY_COLOR_HR">
<small>
<a href="$BUCKY/message"><b>Compose New Mail</b></a>
</small>
<hr noshade color="$BUCKY_COLOR_HR">
<small>
need to find someone?<br>
<a href="$BUCKY/users"><u>check the userlist</u></a>
</small>
</div>
userbox

	print qq!<table width="100%" cellpadding=0 cellspacing=0 border=0><tr><td align=left valign=top>!;

	message_list($messages, $box);

	if (@$messages == $limit)
		{
		print qq!<div align="right"><big><br>!;
		$oldest = $messages->[-1]->{date};
		print qq(<a href="$BUCKY/inbox/$box&limit=$limit&start=$oldest">next <b>$limit</b> messages &gt;&gt;</a>);
		print qq!</big></div>\n!;
		}

	print qq!</td></tr></table>!;

	footer();
	}

$dbh->disconnect ();

print "Inbox: " . &report_time() . "\n" if $timer;