1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # C H E C K F I L E S 2 |
3 # C H E C K F I L E S 2 |
4 # doc: Wed Mar 10 22:23:52 2004 |
4 # doc: Wed Mar 10 22:23:52 2004 |
5 # dlm: Wed Nov 19 15:11:34 2008 |
5 # dlm: Thu Aug 26 00:26:06 2010 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 28 14 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 27 39 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Jun 16, 2004: - copied from [endladcp2] to allow continuation after |
11 # Jun 16, 2004: - copied from [endladcp2] to allow continuation after |
12 # download ok |
12 # download ok |
13 # Jun 27, 2004: - removed download dir override |
13 # Jun 27, 2004: - removed download dir override |
14 # Feb 14, 2006: - BUG: log files were written to bin dir |
14 # Feb 14, 2006: - BUG: log files were written to bin dir |
15 # Oct 28, 2006: - adapted to old version expect (regsub) |
15 # Oct 28, 2006: - adapted to old version expect (regsub) |
16 # - allowed for lrb downcasing filenames |
16 # - allowed for lrb downcasing filenames |
17 # Nov 19, 2008: - added version |
17 # Nov 19, 2008: - added version |
|
18 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
|
19 # - libBB.expect -> libRDI.expect |
18 |
20 |
19 #---------------------------------------------------------------------- |
21 #---------------------------------------------------------------------- |
20 # Setup |
22 # Setup |
21 #---------------------------------------------------------------------- |
23 #---------------------------------------------------------------------- |
22 |
24 |
23 log_user 0; |
25 log_user 0; |
24 source DEFAULTS.expect; |
26 source CRUISE_SETUP.expect; |
25 regsub {dir1} [exec which dir1] {libBB.expect} path; |
27 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
26 source $path; |
28 source $path; |
27 |
29 |
28 print_version; |
30 print_version; |
29 |
31 |
30 if ![file isdirectory $raw_dir] { |
32 if ![file isdirectory $raw_dir] { |