: # use perl
eval 'exec perl -S $0 "$@"'
if 0;

$DSAP = $ENV{'DSAP'} ;

# Check for tcl/tk 8.0 -- not needed for Passcal release
#if ( ! -d "/opt/dsap/tcltk8.0/lib/tk8.0" ) { 
#    &err ( "Tcl/Tk 8.0 or higher must be installed in /opt/dsap/tcltk8.0" ) ; 
#} elsif ( ! -l "$DSAP/bin/wish8.0" ) { 
#    &err ( "there should be a symbolic link from $DSAP/bin/wish8.0 to /opt/dsap/tcltk8.0/bin/wish8.0" ) ; 
#}

# Check for tcl 7.6/ tk 4.0
if ( ! -e "/opt/dsap/tcl7.4tk4.0" ) {
    &err ( "Tcl 7.4 / Tk 4.0 must be installed in /opt/dsap/tcl7.4tk4.0" ) ;
}

# Check for less
# if ( ! -x "/usr/local/bin/less" ) { 
#     &err ( "less must be installed in /usr/local" ) ; 
# }

# Check for vile
# if ( ! -x "/usr/local/bin/vile" ) { 
#     &err ( "vile must be installed in /usr/local" ) ; 
# }


# Check for perl 5
if ( ! -e "$DSAP/perl/bin/perl" ) { 
    &err ( "Perl 5.0 or higher must be installed in $DSAP/perl/bin/perl" ) ; 
} elsif ( `$DSAP/perl/bin/perl -v` !~ /perl, version 5\./ ) { 
    &err ( "Perl version in $DSAP/perl/bin/perl must be 5.0 or higher." ) ; 
} elsif ( ! -l "$DSAP/bin/perl" ) { 
    &err ( "there should be a symbolic link from $DSAP/bin/perl to $DSAP/perl/bin/perl" ) ; 
}

# Check for travel time curves
@travel_times=qw(
data/tables/genloc/ttlvz/iasp91.pf
data/tables/dblocsat/iasp91.Lg
data/tables/dblocsat/iasp91.P
data/tables/dblocsat/iasp91.Pb
data/tables/dblocsat/iasp91.PcP
data/tables/dblocsat/iasp91.Pg
data/tables/dblocsat/iasp91.Pn
data/tables/dblocsat/iasp91.PP
data/tables/dblocsat/iasp91.pP
data/tables/dblocsat/iasp91.pS
data/tables/dblocsat/iasp91.S
data/tables/dblocsat/iasp91.Sb
data/tables/dblocsat/iasp91.ScP
data/tables/dblocsat/iasp91.Sg
data/tables/dblocsat/iasp91.Sn
data/tables/dblocsat/iasp91.sP
data/tables/dblocsat/iasp91.sS
data/tables/taup_ttimes/iasp91.hed
data/tables/taup_ttimes/iasp91.tbl
) ;

foreach $file ( @travel_times ) { 
    if ( ! -f "$DSAP/$file" ) { 
	&err ( "$DSAP/$file is missing: travel times won't work" ) ; 
    }
}

# Check for map data base
if ( ! -e "$DSAP/data/maps/mapdata" ) {
    &err ( "maps database must be installed in $DSAP/data/maps/mapdata" ) ;
}


exit $errs ;


sub err { 
    my ( $msg ) = @_ ;
    print STDERR "\n\t*** $msg\n" ; 
    $errs++ ;
}
