#!/usr/bin/perl
use lib "../lib";
use Rest::Topsy;
use Rest::Dailyrotten;
my $topsy = new Rest::Topsy;
my $dr = new Rest::Dailyrotten;
$topsy->url('http://twitter.com/dailyrotten');
my $entries = $topsy->topsy_load;
my $stories = $dr->dailyrotten_load;

my $topsy_map = {};
map { $topsy_map->{$_->{'description'}} = $_->{'total'} } @$entries;

my $dr_topsy_match = [];
foreach my $day (@$stories)
	{
	my $is_ffa = 1;
	foreach my $story (reverse @{ $day->{'post'} })
		{
		my $title = $story->{'title'};
		my $rec =
			{
			date => nice_date($day->{'file'}),
			title => $title,
			forum => $story->{'comments'},
			ffa => $is_ffa,
			};
		$is_ffa = 0;
		if (exists($topsy_map->{$title}))
			{
			$rec->{'topsy'} = $topsy_map->{$title},
			}
		push @$dr_topsy_match, $rec;
		}
	}

# foreach my $p (sort { $b->{'date'} cmp $a->{'date'} } @$dr_topsy_match)
# foreach my $p (sort { $b->{'topsy'} <=> $a->{'topsy'} } @$dr_topsy_match)
 foreach my $p (sort { $b->{'forum'} <=> $a->{'forum'} } @$dr_topsy_match)
	{
	#next if $p->{'ffa'};
	if ($p->{'ffa'}) { $p->{'forum'} .= "*"; }
	print
		$p->{'date'} . "\t" .
		$p->{'forum'} . "\t" .
		$p->{'topsy'} . "\t" .
		$p->{'title'} . "\n";
	}

sub nice_date
	{
	my ($date) = @_;
	$date =~ s/^_//;
	$date =~ s/\.html$//;
	return $date;
	}