#!/usr/bin/perl
# Batch EXecutor 3.0 -- List Machines and Groups
# (c) 2011-2012 Martin Mares <mj@ucw.cz>

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

my $edit;
my $queue_name;

GetOptions(
) && @ARGV == 0 or die <<AMEN ;
Usage: bex mach [<options>]

Options:
None defined so far.
AMEN

my $machines = \%BEX::Config::machines;

print "# Hosts:\n";
for my $h (sort keys %$machines) {
	my $m = $machines->{$h};
	ref $m eq 'HASH' or next;
	print "$h\n";
}

print "\n# Groups:\n";
for my $h (sort keys %$machines) {
	my $m = $machines->{$h};
	ref $m eq 'ARRAY' or next;
	print "$h = ", join(" ",
		map {
			my $x = $machines->{$_};
			!defined($x) ? "$_?" :
			ref $x eq 'HASH' ? $_ :
			ref $x eq 'ARRAY' ? "\@$_" :
			"$_???"
		} @$m), "\n";
}