Changeset 28765 for gs2-extensions/tdb-edit
- Timestamp:
- 2013-12-18T10:17:20+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdbserver.pm
r27425 r28765 29 29 package dbutil::tdbserver; 30 30 31 # Pragma 31 32 use strict; 32 33 use warnings; 33 34 34 # We're going to have to delve into locking (a little) to prevent multiple 35 # threads trying to launch the server at once 35 # Modules 36 # - we're going to have to delve into locking (a little) to prevent 37 # multiple threads trying to launch the server at once 36 38 use Fcntl qw(:flock); 37 39 # - we'll also need to wait around for an indeterminate amount of time for the 40 # TDBServer to exit (detected by its lockfile disappearing) 41 use Time::HiRes qw( usleep ); 42 43 # Greenstone modules 38 44 use TDBClient; 39 45 use util; … … 184 190 $blurb = '[' . $server_lockfile_path . ']'; 185 191 } 186 print '* Waiting for TDBServer to exit ';192 print '* Waiting for TDBServer to exit... '; 187 193 if (-e $server_lockfile_path) 188 194 { 189 195 while (-e $server_lockfile_path) 190 196 { 191 print '.'; 192 sleep(1); 197 usleep(10000); 193 198 } 194 199 }
Note:
See TracChangeset
for help on using the changeset viewer.