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

use strict;
use warnings;

use lib 'lib';
use BEX;

my $queue = BEX::Queue->new;
for my $m (keys %BEX::Config::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";
	}
}