2 # Batch EXecutor 2.0 -- List Machines and Groups
3 # (c) 2011 Martin Mares <mj@ucw.cz>
16 ) && @ARGV == 0 or die <<AMEN ;
17 Usage: bjob [<options>]
23 my $machines = \%BEX::Config::machines;
26 for my $h (sort keys %$machines) {
27 my $m = $machines->{$h};
28 ref $m eq 'HASH' or next;
32 print "\n# Groups:\n";
33 for my $h (sort keys %$machines) {
34 my $m = $machines->{$h};
35 ref $m eq 'ARRAY' or next;
36 print "$h = ", join(" ",
38 my $x = $machines->{$_};
39 !defined($x) ? "$_?" :
40 ref $x eq 'HASH' ? $_ :
41 ref $x eq 'ARRAY' ? "\@$_" :