#!/usr/bin/perl

# workaround for dzil
package list_org_anniversaries;

use 5.010;
use strict;
use warnings;

our $VERSION = '0.11'; # VERSION

use Perinci::CmdLine;

Perinci::CmdLine->new(
    url => '/App/ListOrgAnniversaries/list_org_anniversaries')->run;

1;
# ABSTRACT: List anniversaries in Org files


__END__
=pod

=head1 NAME

list_org_anniversaries - List anniversaries in Org files

=head1 VERSION

version 0.11

=head1 SYNOPSIS

 # list all anniversaries
 $ list-org-anniversaries ~/addressbook.org

 # only show friends' birthdays due in 1 week and not past 1 week overdue
 $ list-org-anniversaries --field-pattern 'birthday' --has-tags '[friend]' \
     --due-in 7 --max-overdue 7 --nopretty ~/contacts-*.org

With an Org contacts file like this:

 * Andi Angkasa
 - email      :: andi@example.com
 - birthday   :: [1981-07-05 ]
 * B
 ** Budi Bagus              :friend:
 - email      :: budi@example.com
 - birthday   :: [1900-04-07 ]
 * C
 ** Cinta Cemara            :spouse:friend:
 :PROPERTIES:
 :EMAIL: cinta@example.com
 :CELL: 0812-345-6789
 :BIRTHDAY: 1900-06-30
 :WEDDING_ANNIVERSARY: 2010-07-04
 :END:

and assuming today is 2011-07-01, the script will print something like:

 in 3 days: 1st WEDDING_ANNIVERSARY of Cinta Cemara (2010-07-04 - 2011-07-04)
 1 day ago: birthday of Cinta Cemara (2010-06-30)

=head1 DESCRIPTION

This script

See L<App::ListOrgAnniversaries> for more details, including available options.

=head1 SEE ALSO

L<Org::Parser>

B<org-contacts>, http://julien.danjou.info/org-contacts.html

=head1 AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

