#!/opt/perl/bin/perl
use strict;
use GPS::DATES;
use GPS::GetRinex;
use File::Basename;
use Pod::Text::Termcap;
use Getopt::Long;
my $progname = basename $0;
my $help='';
my ($site,$date,$year,$doy)=('')x4;
my $sr=30;  #30 secs sampling
my $ftp=1;
my $gipsy_name=0;
my $unpack_rnx = 1;
my $save = 0;
my $args = @ARGV;
my $local = 0;
GetOptions( 'site:s' => \$site,
            'date:s' => \$date,
            'save'   => \$save,
            'year:i' => \$year,
            'doy:i'  => \$doy,
            'sr:i'   => \$sr, #sampling rate
            'ftp'    => \$ftp,
            'local'  => \$local,
            'gipsy_name' => \$gipsy_name,
            'unpack_rnx' => \$unpack_rnx,
            'save'    => \$save,
            'help' => \$help,
          ) or die "Error in options\n";

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

my $ok = 0;
   $ok = get_rnx( site => $site,
                  date => $date,
                  sampling => $sr,
                  ftp      => $ftp,
                  gipsy_name => $gipsy_name,
                  unpack_rnx => $unpack_rnx,
                  save => $save,
                  local_only => $local,
                 );
print  $ok ? 1:0;

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

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

$progname

script_template

=head1 OPTIONS

=over 3

=item -i input_file

=item -o output_file

=back

=head1 EXAMPLES

=over 3

=item $progname options 


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

