checkfiles1
changeset 12 5e67754f6457
parent 4 fda11de1826e
--- a/checkfiles1	Thu Nov 21 14:01:21 2013 +0000
+++ b/checkfiles1	Fri Jul 03 10:25:08 2020 -0400
@@ -2,9 +2,9 @@
 #======================================================================
 #                    C H E C K F I L E S 1 
 #                    doc: Wed Mar 10 22:23:52 2004
-#                    dlm: Thu Aug 26 00:26:00 2010
+#                    dlm: Fri Jul  3 10:13:20 2020
 #                    (c) 2004 A.M. Thurnherr
-#                    uE-Info: 26 39 NIL 0 0 72 2 2 8 NIL ofnI
+#                    uE-Info: 19 36 NIL 0 0 72 2 2 8 NIL ofnI
 #======================================================================
 
 # HISTORY:
@@ -16,6 +16,7 @@
 #  Nov 19, 2008: - added version
 #  Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect
 #		 - libBB.expect -> libRDI.expect
+#  Jul  3, 2020: - expunged master/slave terminology
 
 #----------------------------------------------------------------------
 # Setup
@@ -45,8 +46,8 @@
 
 send_user "\nGetting station number...";
 set deployment_name [get_deployment_name];
-if {[scan $deployment_name $master_deployment_name_fmt stn] != 1} {
-	send_error "$deployment_name $master_deployment_name_fmt";
+if {[scan $deployment_name $DL_deployment_name_fmt stn] != 1} {
+	send_error "$deployment_name $DL_deployment_name_fmt";
 	error "Can't get station number";
 }
 set stnstr [format $stn_format $stn];
@@ -70,10 +71,10 @@
 
 send_user "\nChecking data file...\n";
 set_color 0;
-check_data [format %s000.000 [format $master_deployment_name_fmt $stn]];
+check_data [format %s000.000 [format $DL_deployment_name_fmt $stn]];
 set_color;
 
 send_user "Backing up data file...";
-backup_master_data $stn;
+backup_DL_data $stn;
 
 send_user "\nDone\n"