Queue: fix reference to bex queue --init

[bex.git] / bex

diff --git a/bex b/bex
index ac895126f90e01decac80099d5dbf1a9e970fadd..b1cb7b05b2c48d5b50f8bd90835d9a126f5e9f5c 100755 (executable)
--- a/bex
+++ b/bex
@@ -14,7 +14,22 @@ GetOptions(
        "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 {
@@ -29,6 +44,9 @@ if (!-d $bex_home) {
 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;
@@ -36,12 +54,13 @@ $sub =~ /^[0-9a-zA-Z]+$/ or die "Invalid subcommand $sub\n";
 
 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;