2 # Batch EXecutor 2.0 -- Show Queued Jobs
3 # (c) 2011 Martin Mares <mj@ucw.cz>
15 "q|queue=s" => \$queue_name,
17 Usage: bq [<options>] [[!]<machine-or-class> ...]
20 -q, --queue=<name> Show jobs in the given queue
23 my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
24 my $queue = BEX::Queue->new($queue_name);
25 for my $m (@machines) {
27 my @q = $queue->scan($m);
29 my $job = $queue->job_metadata($j);
30 print "\t$j (", $job->attr('Subject'), ")\n";