checkIX
changeset 12 0f89b1523648
parent 10 c835cd613f3e
--- a/checkIX
+++ b/checkIX
@@ -2,37 +2,47 @@
 #======================================================================
 #                    C H E C K I X 
 #                    doc: Wed Dec 12 15:58:56 2012
-#                    dlm: Wed Dec 12 16:27:11 2012
+#                    dlm: Mon Apr 22 15:17:17 2013
 #                    (c) 2012 A.M. Thurnherr
-#                    uE-Info: 31 0 NIL 0 0 72 2 2 4 NIL ofnI
+#                    uE-Info: 43 0 NIL 0 0 72 2 2 4 NIL ofnI
 #======================================================================
 
 # HISTORY:
 #	Dec 12, 2012: - created
 
-die("Usage: $0 <stn>\n")
-	unless (@ARGV == 1);
+die("Usage: $0 <count-spec[ ...]>\n")
+	unless (@ARGV > 0);
+
+foreach my $id (`count @ARGV`) {
 
-$id = $ARGV[0];									# determine station id
-$id = sprintf('%03d',$id)
-	unless (-f "$id.lad");
+	$id = sprintf('%03d',$id)
+		unless (-f "$id.log");
+	
+	unless (-f "$id.log") {
+		print(STDERR "$id: missing station\n");
+		next;
+	}
 
-die("file <$id.lad> missing\n")					# ensure required output is here
-	unless (-f "$id.lad");
-die("file <$id.log> missing\n")
-	unless (-f "$id.log");
-die("file <$id.mat> missing\n")
-	unless (-f "$id.mat");
-die("file <$id.txt> missing\n")
-	unless (-f "$id.txt");
+	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);
 
-if (-f "${id}_11.ps" &&							# handle warnings figure
-		length(`grep 'LADCP profile OK' ${id}_11.ps`) == 0) {
-	print("warnings produced\n");
-	system("gv ${id}_11.ps &");
 }
 
-print("no valid BT data\n")						# check validity of ancillary data
-	unless (-f "$id.bot");
-print("no valid SADCP data\n")
-	unless (length(`grep 'all SADCP values removed' $id.log`) == 0);
+exit(0);