Changeset 28773 for gs2-extensions
- Timestamp:
- 2013-12-18T12:01:49+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdbserver.pm
r28765 r28773 181 181 foreach my $server_lockfile_path (keys (%created_server_lockfile_paths)) 182 182 { 183 my $shutdown_start; 184 my $shutdown_end; 183 185 if ($wait_for_exit) 184 186 { … … 191 193 } 192 194 print '* Waiting for TDBServer to exit... '; 195 $shutdown_start = [&gettimeofday()]; 193 196 if (-e $server_lockfile_path) 194 197 { … … 198 201 } 199 202 } 203 $shutdown_end = [&gettimeofday()]; 200 204 } 201 205 else … … 203 207 print '* NOT Waiting for TDBServer to exit... '; 204 208 } 205 print " Done!\n"; 209 if (defined $shutdown_start) 210 { 211 my $duration = tv_interval($shutdown_start, $shutdown_end); 212 print sprintf(" Done (in %0.6f seconds)!\n", $duration); 213 } 214 else 215 { 216 print " Done!\n"; 217 } 206 218 } 207 219 }
Note:
See TracChangeset
for help on using the changeset viewer.