"home=s" => \$bex_home,
"lib=s" => \$bex_lib,
"help" => sub {
- print "Usage: brum\n";
+ print <<AMEN ;
+Usage: bex <general-options> <command> <command-options> <args>
+
+General options:
+--home=<dir> Home directory where all queues and config files reside
+--lib=<dir> Directory where BEX modules are installed
+
+Commands (and aliases):
+add (a) Add new jobs to a queue
+job Operations on queued jobs
+mach List known machines and groups
+prun (pr) Parallel version of `run'
+qman Management of queues
+queue (q) Show queues and jobs on them
+run (r) Run queued jobs
+AMEN
exit 0;
},
"version" => sub {
if (!-d "$bex_home/BEX") {
die "BEX home directory $bex_home does not contain the BEX subdirectory.\n";
}
+if (!-f "$bex_lib/perl/BEX.pm") {
+ die "BEX library directory $bex_lib misconfigured.\n";
+}
@ARGV or die "Missing subcommand.\n";
my $sub = shift @ARGV;
my %aliases = (
'a' => 'add',
+ 'p' => 'prun',
'q' => 'queue',
'r' => 'run',
);
if (defined $aliases{$sub}) { $sub = $aliases{$sub}; }
-my $sub_path = "$bex_lib/bin/$sub";
+my $sub_path = "$bex_lib/bin/bex-$sub";
-x $sub_path or die "Unknown subcommand $sub\n";
$ENV{"BEX_HOME"} = $bex_home;