#!/usr/bin/perl
use lib "../lib";
use Bucky;
use Data::Dumper;
my $bucky = new Bucky(); # "carbon");
my $keywords = $bucky->db->select("keyword");
my $threads = $bucky->db->select("thread");
my $files = $bucky->db->select("file");
my $comments = $bucky->db->select("comment");

event_loop();

my $commands;
sub event_loop
	{
	my $command = "index";
	my $index_i = 0;
	while (1)
		{
		if ($command =~ /^\d+$/)
			{
			do_this($commands->{$command})
			or print "bad index!" . "\n";
			}
		elsif ($command eq "index")
			{ $index_i = show_index(0) }
		else
			{ $index_i = show_index($index_i) }
		print "> ";
		$command = line_in();
		last if $command eq "exit";
		}
	}

#[keyword,thread,file,comment]
#select * from family where keyword=id
#select thread from family where keyword=id

sub do_this
	{
	my ($command) = @_;
	return unless $command;
	my ($sub, @object) = @$command;
	return &$sub(@object);
	}
sub show_index
	{
	my ($min) = @_;
	my $max = $min + 24;
	my $i = 0;
	foreach my $thread (@$threads)
		{
		next if $min > $i++;
		last if $max == $i;
		$commands->{$i} = [ \&show_thread, $thread ];
		printf " T%02d  %-70s\n", $i, $thread->{"title"};
		}
	return $max - 1;
	}
sub show_thread
	{
	my ($thread) = @_;
	print $thread->{'title'} . "\n";
	print $thread->{'username'} . " // " . show_date($thread->{createdate}) . "\n";
	my $i = 0;
	foreach my $comment (@$comments)
		{
		next if ($comment->{'thread'} != $thread->{'id'});
		$commands->{++$i} = [ \&show_comment, $comment ];
		printf " c%02d  %-10s %-60s\n", $i, $comment->{"username"}, first_line($comment->{"comment"});
		}
	foreach my $file (@$files)
		{
		next if ($file->{'thread'} != $thread->{'id'});
		printf " f%02d  %-10s %-60s\n", ++$i, $file->{'username'}, $file->{'filename'};
		}
	return 1;
	}
sub show_comment
	{
	my ($comment) = @_;	
	print $comment->{'username'} . " // " . show_date($comment->{date}) . "\n";
	my @lines = split "\n", $comment->{'comment'};
	for (my $i = 0; $i < scalar(@lines); $i++)
		{
		print $lines[$i] . "\n";
		last if $i == 24;
		}
	return 1;
	}
sub show_date
	{
	return scalar localtime(shift);
	}
sub line_in
	{
	return trim(scalar <STDIN>);
	}
sub trim
	{
	my $s = shift;
	$s =~ s/^\s+//;
	$s =~ s/\s+$//;
	return $s;
	}
sub first_line
	{
	my $s = shift;
	$s =~ s/^\s+//;
	$s =~ s/\n//g;
	return substr($s,0,70);
	}