#!perl

use 5.010;
use strict;
use warnings;

our $VERSION = '0.22'; # VERSION

use Perinci::CmdLine::Any;

binmode STDOUT, ":utf8";
Perinci::CmdLine::Any->new(
    url => '/App/ListOrgAnniversaries/list_org_anniversaries')->run;

1;
# ABSTRACT: List anniversaries in Org files
# PODNAME: list-org-anniversaries

__END__

=pod

=encoding UTF-8

=head1 NAME

list-org-anniversaries - List anniversaries in Org files

=head1 VERSION

This document describes version 0.22 of list-org-anniversaries (from Perl distribution App-OrgUtils), released on 2014-07-22.

=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 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/App-OrgUtils>.

=head1 SOURCE

Source repository is at L<https://github.com/sharyanto/perl-App-OrgUtils>.

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=App-OrgUtils>

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 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