#!/opt/perl/bin/perl
use strict;
use File::Basename;
use GPS::GetOrbits;
use GPS::DATES;
use Pod::Text::Termcap;
use Getopt::Long;
my $progname = basename $0;
my ($help,$date);
my $args = @ARGV;
GetOptions( 'date:s' => \$date,
            'help' => \$help,
          ) or die "Error in options\n";

if ( !$args || $help ) {
  usage();
  exit 1;
}

my ($year,$doy) = split ' ', get_date($date,'doy');

my $brdc = get_brdc( year =>$year, doy => $doy);

if ( -e $brdc ) { exit 0 } else { exit 1 }

sub usage {
  my $pod=Pod::Text::Termcap->new();
  $pod->parse_from_filehandle(man_page());
}

sub man_page {
my $man =qq(
=head1 NAME

$progname

get_brdc Get Broadcast Orbits 

=head1 OPTIONS

=over 3

=item -date date

=back

=head1 EXAMPLES

=over 3

=item $progname -date 2007,288


=back

=head1 AUTHOR

Victor Marcelo Santillan <marcelo\@geology.cwu.edu>

=head1 COPYRIGHT

Copyright \(c\) 2007 

Central Washington University

=cut
);
open(my $fh,"<",\$man ) or die "$!\n";
return $fh
}

