Changeset 39539
- Timestamp:
- Apr 19, 2016, 1:04:13 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
-
DataStore/scripts/dsget (modified) (4 diffs)
-
ippScripts/scripts/summit_copy.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/DataStore/scripts/dsget
r26291 r39539 53 53 -exitval => 3, 54 54 ) unless defined $uri and defined $filename; 55 56 my $date = `date`; 57 print "starting dsget $date"; 55 58 56 59 # XXX EAM : should not need parse_neb_key, but how to handle case … … 138 141 my $tmpfilename = $tmp->filename; 139 142 print "downloading file to $tmpfilename\n"; 143 $date = `date`; 144 print "downloading starting $date"; 140 145 141 146 # request the file from the remote data store server (save in tmpfilename) … … 158 163 # this can't cross a file system boundry so we can assume that a move will 159 164 # always be a rename operation instead of a copy and delete. 165 166 $date = `date`; 167 print "start copying file into nebulous $date"; 160 168 161 169 my $neb; … … 233 241 } 234 242 243 $date = `date`; 244 print "finished dsget $date"; 245 235 246 __END__ 236 247 -
trunk/ippScripts/scripts/summit_copy.pl
r31142 r39539 19 19 my $host = hostname(); 20 20 print "\n\n"; 21 print "Starting script $0 on $host\n\n"; 21 #print "Starting script $0 on $host\n\n"; 22 my $date = `date`; 23 print "Starting script $0 on $host at $date"; 24 22 25 23 26 # Parse the command-line arguments … … 109 112 my ($new_bytes, $new_md5) = check_instances($filename, $nebulous, $compress); 110 113 114 $date = `date`; 115 print "starting pztool instances checksum $date"; 116 111 117 # command to update database 112 118 $command = "$pztool -copydone"; … … 138 144 print "skipping command: $command\n"; 139 145 } 146 147 $date = `date`; 148 print "finished $date\n"; 149 140 150 141 151 sub get_file_params
Note:
See TracChangeset
for help on using the changeset viewer.
