--- a/listHdr
+++ b/listHdr
@@ -2,9 +2,9 @@
#======================================================================
# L I S T H D R
# doc: Sat Jan 18 18:41:49 2003
-# dlm: Mon Feb 23 10:44:27 2015
+# dlm: Sat Jan 9 13:24:54 2016
# (c) 2003 A.M. Thurnherr
-# uE-Info: 37 0 NIL 0 0 72 10 2 4 NIL ofnI
+# uE-Info: 47 31 NIL 0 0 72 10 2 4 NIL ofnI
#======================================================================
# Print useful info from the RDI BB header
@@ -34,13 +34,18 @@
# Jul 12, 2014: - BUG: did not work with multiple input files
# - added -s)ummary option
# Sep 9, 2014: - adapted to files with >7 data types
+# - BUG: usage message was not produced on empty arglist
+# - updated getopts to current perl version
+# - updated IO library name
+# Jan 9, 2016: - added support for PRODUCER data field
-require 'getopts.pl';
+use Getopt::Std;
+
$0 =~ m{(.*/)[^/]+};
-require "$1RDI_BB_Read.pl";
+require "$1RDI_PD0_IO.pl";
-die("Usage: $0 [-s)ummary] <RDI file[...]>\n")
- unless (&Getopts('s' && @ARGV));
+die("Usage: $0 [-s)ummary] <PD0 file[...]>\n")
+ unless (&getopts('s') && @ARGV);
if ($opt_s) {
print("#!/usr/bin/perl -S list\n");
@@ -67,6 +72,7 @@
shift;
print(" Instrument Characteristics:\n");
+ printf("\tPRODUCER\t\t= %s\n",$hdr{PRODUCER});
if (defined($hdr{SERIAL_NUMBER})) {
printf("\tINSTRUMENT\t\t\t= %s #%d\n",$hdr{INSTRUMENT_TYPE},$hdr{SERIAL_NUMBER});
} else {