equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T H D R |
3 # L I S T H D R |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Sat Jan 9 13:24:54 2016 |
5 # dlm: Sat Jan 9 17:03:16 2016 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 47 31 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 41 0 NIL 0 0 72 10 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Print useful info from the RDI BB header |
10 # Print useful info from the RDI BB header |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
33 # Apr 24, 2014: - BUG: USE_3_BEAM_ON_LOW_CORR was reported in water-track setup |
33 # Apr 24, 2014: - BUG: USE_3_BEAM_ON_LOW_CORR was reported in water-track setup |
34 # Jul 12, 2014: - BUG: did not work with multiple input files |
34 # Jul 12, 2014: - BUG: did not work with multiple input files |
35 # - added -s)ummary option |
35 # - added -s)ummary option |
36 # Sep 9, 2014: - adapted to files with >7 data types |
36 # Sep 9, 2014: - adapted to files with >7 data types |
37 # - BUG: usage message was not produced on empty arglist |
37 # - BUG: usage message was not produced on empty arglist |
|
38 # Jan 9, 2016: - added support for PRODUCER data field |
38 # - updated getopts to current perl version |
39 # - updated getopts to current perl version |
39 # - updated IO library name |
40 # - updated IO library name |
40 # Jan 9, 2016: - added support for PRODUCER data field |
|
41 |
41 |
42 use Getopt::Std; |
42 use Getopt::Std; |
43 |
43 |
44 $0 =~ m{(.*/)[^/]+}; |
44 $0 =~ m{(.*/)[^/]+}; |
45 require "$1RDI_PD0_IO.pl"; |
45 require "$1RDI_PD0_IO.pl"; |