#!/usr/local/bin/perl
# bday - Birthday Machine 
#
# Copyright 2015 David Meyer <papa@sdf.org> +JMJ
# (License and documentation at bottom of file.)

# Modules ###########################################################
use strict;
use warnings;
use Getopt::Std;

# Configuration #####################################################

our $PROGRAM = 'bday';
our $VERSION = '1.0';
our $AUTHOR = 'David Meyer <papa@sdf.org>';

our $BDDB = '.bddb';

# Globals ###########################################################

our (@dbuser, @dbactiv, @dbpriv, @dbyr, @dbmo, @dbday, %dbuidx);

# Functions #########################################################

sub HELP_MESSAGE {
    my ($output, $optpkg) = @_;
    print "This is the help message.\n";
}

sub VERSION_MESSAGE {
    my ($output, $optpkg) = @_;
    print "$PROGRAM Version $VERSION\n";
}

# Process arguments #################################################
our %options = ();
getopts('ghmuVp:', \%options);

if ($options{g}) {
    print "option -g\n";
}
if ($options{h}) {
    HELP_MESSAGE();
    exit 0;
}
if ($options{m}) {
    print "option -m\n";
}
if ($options{u}) {
    print "option -u\n";
}
if ($options{V}) {
    VERSION_MESSAGE();
    exit 0;
}
if ($options{p}) {
    print "option -p=$options{p}\n";
}


# Main driver #######################################################

$db = open($BDDB) or die "Can't open Birthday Database";
while (<$db>) {
    my($user, $active, $priv, $year, $month, $day) = split / /, $_;
    if (!defined($dbuidx{$user}) {
	push @dbuser, $user;
	push @dbactiv, $active;
	push @dbpriv, $priv;
	push @dbyr, $year;
	push @dbmo, $month;
	push @dbday, $day;
	$dbuidx{$user} = $#dbuser;
	}

exit 0

__END__

# Documentation #####################################################
=head1 NAME

bday - Birthday Machine

=head1 SYNOPSIS/USAGE

=head1 DESCRIPTION

Mark up code elements with C<>, file names with F<> (or C<> for
readability), command names with B<>. Also I<> for italics, U<> for
underline. Entities: E<lt> ('<'), E<gt> ('>').

=head1 OPTIONS

=item B<-o> I<value>, B<--option>=I<value>

=head1 RETURN VALUE

=head1 ERRORS

=head1 DIAGNOSTICS

=head1 EXAMPLES

=head1 ENVIRONMENT

=over 6

=item VARIABLE

Description of usage of environment variable C<VARIABLE>.

=back

=head1 FILES

=head1 BUGS, LIMITATIONS, AND CAVEATS

=head1 NOTES

=head1 AUTHOR

David Meyer <papa@sdf.org>

=head1 HISTORY

=head1 COPYRIGHT AND LICENSE

Copyright 201x David Meyer

=head1 SEE ALSO



# Emacs control #####################################################
#Local variables:
#mode: perl
#End: