]> mj.ucw.cz Git - bex.git/blobdiff - bex
Still cleaning up references to `brun' and `bq'
[bex.git] / bex
diff --git a/bex b/bex
index faf9de71ef1451b96195d13713c8b8884411a00b..b1cb7b05b2c48d5b50f8bd90835d9a126f5e9f5c 100755 (executable)
--- a/bex
+++ b/bex
@@ -24,9 +24,10 @@ General options:
 Commands (and aliases):
 add (a)                Add new jobs to a queue
 job            Operations on queued jobs
-ls             List known machines and groups
+mach           List known machines and groups
 prun (pr)      Parallel version of `run'
-queue (q)      Show queues and jobs
+qman           Management of queues
+queue (q)      Show queues and jobs on them
 run (r)                Run queued jobs
 AMEN
                        exit 0;
@@ -43,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;
@@ -56,7 +60,7 @@ my %aliases = (
 );
 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;