#!/usr/bin/perl
use strict;
use warnings;
use v5.8;

use Dwimmer::Feed::Collector;
use Dwimmer::Feed::Sendmail;

use Getopt::Long qw(GetOptions);

my %opt;
GetOptions(\%opt,
	'store=s',

	'collect',
	'sendmail',
	'html',
    'verbose',
    'mailreport',
) or usage();
usage('Missing --store') if not $opt{store};
usage('At least one of --collect --html --sendmail is needed')
	if not $opt{collect} and not $opt{html} and not $opt{sendmail}; # and not $opt{twitter};

my $t0 = time;

my $collector = Dwimmer::Feed::Collector->new(%opt);

if ($opt{collect}) {
	$collector->collect_all();
    if ($collector->error and $opt{mailreport}) {
        use MIME::Lite   ();
    	my $msg = MIME::Lite->new(
		    From    => 'gabor@szabgab.com',
		    To      => 'szabgab@gmail.com',
		    Subject => 'Feed collector errors',
            Data    => $collector->error,
	    );
	    $msg->send;
    }
}

if ($opt{html}) {
	$collector->generate_html_all();
}

if ($opt{sendmail}) {
	my $mail = Dwimmer::Feed::Sendmail->new(%opt);
	$mail->send;
}

if ($opt{twitter}) {
	# TODO: tweet
}

my $t1 = time;
LOG("Elapsed time: " . ($t1-$t0));
exit;


sub LOG {
    if ($opt{verbose}) {
	    print "@_\n";
    }
}

sub usage {
	my $txt = shift;
	if ($txt) {
		print STDERR "**** $txt\n\n";
	}
	print STDERR "Usage: $0 --store storage.db  [--collect --sendmail --html DIR]\n";
	exit 1;
}