#!/usr/bin/perl
# Batch EXecutor 2.0 -- Show Queued Jobs
# (c) 2011 Martin Mares <mj@ucw.cz>

use strict;
use warnings;
use Getopt::Long;

use lib 'lib';
use BEX;

my $queue_name;

GetOptions(
	"q|queue=s" => \$queue_name,
) or die <<AMEN ;
Usage: bq [<options>] [[!]<machine-or-class> ...]

Options:
-q, --queue=<name>	Show jobs in the given queue
AMEN

my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
my $queue = BEX::Queue->new($queue_name);
for my $m (@machines) {
	print "$m:\n";
	my @q = $queue->scan($m);
	for my $j (@q) {
		my $job = $queue->job_metadata($j);
		print "\t$j (", $job->attr('Subject'), ")\n";
	}
}