equal
deleted
inserted
replaced
1 #!/usr/bin/expect -f |
1 #!/usr/bin/expect -f |
2 #====================================================================== |
2 #====================================================================== |
3 # L A D C P 2 |
3 # L A D C P 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:16:11 2008 |
5 # dlm: Thu Aug 26 00:27:14 2010 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 32 14 NIL 0 0 72 2 2 8 NIL ofnI |
7 # uE-Info: 31 39 NIL 0 0 72 2 2 8 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Mar 10, 2004: - created |
11 # Mar 10, 2004: - created |
12 # Mar 12, 2004: - released |
12 # Mar 12, 2004: - released |
17 # Feb 14, 2006: - BUG: log files were written to bin dir |
17 # Feb 14, 2006: - BUG: log files were written to bin dir |
18 # Oct 4, 2006: - adapted to older version of expect |
18 # Oct 4, 2006: - adapted to older version of expect |
19 # Oct 31, 2007: - BUG: wrong default on non-empty memory |
19 # Oct 31, 2007: - BUG: wrong default on non-empty memory |
20 # Nov 19, 2008: - adapted to new firmware behavior (load_factory_defaults) |
20 # Nov 19, 2008: - adapted to new firmware behavior (load_factory_defaults) |
21 # Nov 19, 2008: - added version |
21 # Nov 19, 2008: - added version |
|
22 # Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect |
|
23 # - libBB.expect -> libRDI.expect |
22 |
24 |
23 #---------------------------------------------------------------------- |
25 #---------------------------------------------------------------------- |
24 # Setup |
26 # Setup |
25 #---------------------------------------------------------------------- |
27 #---------------------------------------------------------------------- |
26 |
28 |
27 log_user 0; |
29 log_user 0; |
28 source DEFAULTS.expect; |
30 source CRUISE_SETUP.expect; |
29 regsub {dir1} [exec which dir1] {libBB.expect} path; |
31 regsub {dir1} [exec which dir1] {libRDI.expect} path; |
30 source $path; |
32 source $path; |
31 |
33 |
32 print_version; |
34 print_version; |
33 |
35 |
34 if {$argc == 0} { |
36 if {$argc == 0} { |