Accept partial job IDs as long as they are unique

[bex.git] / lib / bin / bex-queue

diff --git a/lib/bin/bex-queue b/lib/bin/bex-queue
index d0f34f16451a9cd2a16c585f9643397ed458c866..6a39852465a62f7a2194d2f704402a2087c79881 100755 (executable)
--- a/lib/bin/bex-queue
+++ b/lib/bin/bex-queue
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # Batch EXecutor -- Show Queued Jobs
-# (c) 2011-2013 Martin Mares <mj@ucw.cz>
+# (c) 2011-2015 Martin Mares <mj@ucw.cz>
 
 use strict;
 use warnings;
@@ -61,6 +61,7 @@ GetOptions(
 
 my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
 my $queue = BEX::Queue->new($queue_name);
+$given_job = $queue->resolve_job_id($given_job) if defined $given_job;
 
 # Status cache
 my %status_cache = ();