#!/usr/bin/perl
#======================================================================
#                    C H E C K I X 
#                    doc: Wed Dec 12 15:58:56 2012
#                    dlm: Mon Apr 22 15:17:17 2013
#                    (c) 2012 A.M. Thurnherr
#                    uE-Info: 43 0 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================

# HISTORY:
#	Dec 12, 2012: - created

die("Usage: $0 <count-spec[ ...]>\n")
	unless (@ARGV > 0);

foreach my $id (`count @ARGV`) {

	$id = sprintf('%03d',$id)
		unless (-f "$id.log");
	
	unless (-f "$id.log") {
		print(STDERR "$id: missing station\n");
		next;
	}

	die("$id: file <$id.lad> missing\n") 				# ensure required output is here
		unless (-f "$id.lad");
	die("$id: file <$id.log> missing\n")
		unless (-f "$id.log");
	die("$id: file <$id.mat> missing\n")
		unless (-f "$id.mat");
	die("$id: file <$id.txt> missing\n")
		unless (-f "$id.txt");
	
	if (-f "${id}_11.ps" && 						# handle warnings figure
			length(`grep 'LADCP profile OK' ${id}_11.ps`) == 0) {
		print("$id: warnings produced\n");
		system("gv ${id}_11.ps &");
	}
	
	print("$id: no valid BT data\n") 					# check validity of ancillary data
		unless (-f "$id.bot");
	print("$id: no valid SADCP data\n")
	    unless (length(`grep 'all SADCP values removed' $id.log`) == 0);

}

exit(0);