bq

   1 #!/usr/bin/perl
   2 # Batch EXecutor 2.0
   3 # (c) 2011 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib 'lib';
   9 use BEX;
  10
  11 my $queue = BEX::Queue->new;
  12 for my $m (keys %BEX::Config::machines) {
  13         print "$m:\n";
  14         my @q = $queue->scan($m);
  15         for my $j (@q) {
  16                 my $job = $queue->job_metadata($j);
  17                 print "\t$j (", $job->attr('Subject'), ")\n";
  18         }
  19 }