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 Mar 6 14:19:53 2021 |
5 # dlm: Wed Mar 17 22:53:25 2021 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 208 75 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 50 35 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: |
44 # - added AMBIGUITY_VELOCITY |
44 # - added AMBIGUITY_VELOCITY |
45 # Aug 8, 2017: - added -l)ong listing |
45 # Aug 8, 2017: - added -l)ong listing |
46 # Jun 13, 2019: - removed BT_PRESENT flag support |
46 # Jun 13, 2019: - removed BT_PRESENT flag support |
47 # Jun 26, 2019: - added comment to the effect that BT setup cannot be listed |
47 # Jun 26, 2019: - added comment to the effect that BT setup cannot be listed |
48 # with this utility any more |
48 # with this utility any more |
|
49 # Mar 6, 2021: - adapted to Nortek Signature data files |
|
50 # Mar 17, 2021: - updated HISTORY |
49 |
51 |
50 use Getopt::Std; |
52 use Getopt::Std; |
51 |
53 |
52 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
54 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
53 $ADCP_tools_minVersion = 2.1; |
55 $ADCP_tools_minVersion = 2.1; |