#!/usr/bin/perl -w
# pcadp_extract.pl
# Usage: from directory of data file, type:
# perl -w pathnameofthisperlscript\adv_extract.pl basenameofadvfile druckfile
# eg: perl -w e:\sherwood\matlab\advlib\adv_extract.pl 244_802 p70136
#
# Runs sontek software to extract data from .adp file
#
# Last modified 4/12/01
# Chris Sherwood, USGS
#
$sondir = "d:\\instruments\\sontek\\advdos\\deploy\\";

$prog = $sondir."GADVCTL";
print "$prog $ARGV[0]\n";
system("$prog $ARGV[0]\n");

$prog = $sondir."GADVHDR";
print "$prog $ARGV[0]\n";
system("$prog $ARGV[0]\n");

$prog = $sondir."GADVTS";
print "$prog $ARGV[0]\n";
if ($#ARGV == 1){
    system("$prog $ARGV[0] -D$ARGV[1]\n");
}
if ($#ARGV < 1) {
    system("$prog $ARGV[0]\n");
}