#!/afs/sipb/project/perldev/p -w

use strict;
use IO::File;
use IO::Pipe;
use POSIX;
use Fcntl ':flock';
use Config;

### kludge: punt old, more-buggy version.

my $lockfile = '/afs/zone.mit.edu/user/bert/THESIS_DATA/current/.lock';

# get a lock, open the queue
my $lock = IO::File->new($lockfile, 'w')
  or die "Can't open the lock file: $!\n";
flock($lock, LOCK_EX)
  or die "Can't lock the lock file: $!\n";

print "running: @ARGV\n";
system @ARGV;

# unlock the files
flock($lock, LOCK_UN)
  or die "Can't unlock the lock file: $!\n";
$lock->close;