#!/opt/perl/bin/perl
use strict;
use warnings;
use File::Basename;
use GPS::DATES;
use GPS::Defaults;
my $progname = basename $0;
my $usage=qq(
Usage: $progname [varname|all] 
 varname:  variables listed in $ENV{GPS_HOME_DIR}/etc/defaults

Example:
 to show the current sta_info dir for relative phase centers use:
  $progname STA_INFO_DIR 

 to get the current rinex dir:

  $progname RNX_DIR
  
 to show all the variables: 
  $progname all
);
die $usage if ! @ARGV || @ARGV > 2;
my $var = uc shift;
my %par = get_defaults();
if ( $var eq 'ALL' ) {
  show();
}
else {
 print "$par{$var}\n";
}

sub show {
   foreach my $k ( sort keys %par ) {
      print "$k=$par{$k}\n";
   }
}
