X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=bex;h=592fb24c1703bfdcec44326eca67112b1aabd172;hb=95043fc65f4ce0cf34d1773cc3e3b90016f05840;hp=76c2c3cda50f40882beb97f766eb42582489d7b4;hpb=05d15284a242dd122311f605fd1ac27465588f3d;p=bex.git diff --git a/bex b/bex index 76c2c3c..592fb24 100755 --- a/bex +++ b/bex @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Batch EXecutor 3.0 -- Master Program -# (c) 2012 Martin Mares +# Batch EXecutor -- Master Program +# (c) 2012--2015 Martin Mares use strict; use warnings; @@ -20,7 +20,7 @@ General options: Commands (and aliases): add (a) Add new jobs to a queue help Show this help -job Operations on queued jobs +job (j) Operations on jobs mach List known machines and groups prun (pr) Parallel version of `run' qman Management of queues @@ -36,7 +36,7 @@ GetOptions( "lib=s" => \$bex_lib, "help" => \&show_help, "version" => sub { - print "BEX 3.0 (c) 2011-2012 Martin Mares \n"; + print "BEX 3.3 (c) 2011-2015 Martin Mares \n"; }, ) or die "Try `bex help' for more information.\n"; Getopt::Long::Configure('default'); @@ -59,7 +59,8 @@ if ($sub eq 'help') { show_help(); } my %aliases = ( 'a' => 'add', - 'p' => 'prun', + 'j' => 'job', + 'pr' => 'prun', 'q' => 'queue', 'r' => 'run', );