2 # Batch EXecutor 3.0 -- List Machines and Groups
3 # (c) 2011-2012 Martin Mares <mj@ucw.cz>
15 Usage: bex mach [<options>]
25 ) && @ARGV == 0 or die "Try `bex mach --help' for more information.\n";
27 my $machines = \%BEX::Config::machines;
30 for my $h (sort keys %$machines) {
31 my $m = $machines->{$h};
32 ref $m eq 'HASH' or next;
36 print "\n# Groups:\n";
37 for my $h (sort keys %$machines) {
38 my $m = $machines->{$h};
39 ref $m eq 'ARRAY' or next;
40 print "$h = ", join(" ",
42 my $x = $machines->{$_};
43 !defined($x) ? "$_?" :
44 ref $x eq 'HASH' ? $_ :
45 ref $x eq 'ARRAY' ? "\@$_" :