my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
my $queue = BEX::Queue->new($queue_name);
-$queue->lock(undef, undef) or die "The queue is locked by another brun, cannot continue.\n";
+$queue->lock(undef, undef) or die "The queue is locked by another bex run, cannot continue.\n";
for my $mach (@machines) {
my @q = $queue->scan($mach) or next;
if (!$queue->lock($mach, undef)) {
- print "### Machine $mach is locked by another brun, skipping...\n";
+ print "### Machine $mach is locked by another bex run, skipping...\n";
update_status($mach, '-', 'LOCKED', undef);
update_status($mach, '-', 'DONE', undef);
next;
# queue - obtain exclusive access to the whole queue
our $locking_scheme = 'host';
-# Maximum number of simultaneously running jobs in `bprun'
+# Maximum number of simultaneously running jobs in `bex prun'
our $max_parallel_jobs = 5;
# When a job fails, skip all other jobs on the same host
-# (however, when locking_scheme is set to `job', another instance of `brun'
+# (however, when locking_scheme is set to `job', another instance of `bex run'
# still could run such jobs in parallel)
our $skip_on_fail = 0;