lib/bin/mach

   1 #!/usr/bin/perl
   2 # Batch EXecutor 3.0 -- List Machines and Groups
   3 # (c) 2011-2012 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7 use Getopt::Long;
   8 use BEX;
   9
  10 my $edit;
  11 my $queue_name;
  12
  13 GetOptions(
  14 ) && @ARGV == 0 or die <<AMEN ;
  15 Usage: bex mach [<options>]
  16
  17 Options:
  18 None defined so far.
  19 AMEN
  20
  21 my $machines = \%BEX::Config::machines;
  22
  23 print "# Hosts:\n";
  24 for my $h (sort keys %$machines) {
  25         my $m = $machines->{$h};
  26         ref $m eq 'HASH' or next;
  27         print "$h\n";
  28 }
  29
  30 print "\n# Groups:\n";
  31 for my $h (sort keys %$machines) {
  32         my $m = $machines->{$h};
  33         ref $m eq 'ARRAY' or next;
  34         print "$h = ", join(" ",
  35                 map {
  36                         my $x = $machines->{$_};
  37                         !defined($x) ? "$_?" :
  38                         ref $x eq 'HASH' ? $_ :
  39                         ref $x eq 'ARRAY' ? "\@$_" :
  40                         "$_???"
  41                 } @$m), "\n";
  42 }