#!/home/acme/perl-5.12.3/bin/perl
use strict;
use warnings;
use App::Twimap;
use Config::Tiny;
use Mail::IMAPClient;
use Net::Twitter;

my $config = Config::Tiny->read( shift || 'twimap.conf' );
$config->{imap}->{Uid}       = 1;
$config->{twitter}->{traits} = [qw/OAuth API::REST RateLimit RetryOnError/];

my $mailbox = $config->{_}->{mailbox} || die "No mailbox";

my $imap = Mail::IMAPClient->new( %{ $config->{imap} } )
    or die "new failed: $@\n";

my $twitter = Net::Twitter->new( %{ $config->{twitter} } );

my $twimap = App::Twimap->new(
    mail_imapclient => $imap,
    net_twitter     => $twitter,
    mailbox         => $mailbox,
);

$twimap->sync_home_timeline;
$twimap->sync_replies;

=head1 NAME

twimap - Push your Twitter home timeline to an IMAP server

=head1 SYNOPSIS

  $ twimap twimap.conf

=head1 DESCRIPTION

Twitter is an online social networking and microblogging service. The Internet
Message Access Protocol (IMAP) is an Internet standard protocols for e-mail
retrieval from a server. This module stores your Twitter home timeline in a
folder on an IMAP server.

See L<App::Twimap>.

=head1 AUTHOR

Leon Brocard <acme@astray.com>.

=head1 COPYRIGHT

Copyright (C) 2011, Leon Brocard

=head1 LICENSE

This module is free software; you can redistribute it or modify it
under the same terms as Perl itself.