bq

   1 #!/usr/bin/perl
   2 # Batch EXecutor 2.0 -- Show Queued Jobs
   3 # (c) 2011 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7 use Getopt::Long;
   8
   9 use lib 'lib';
  10 use BEX;
  11
  12 my $queue_name;
  13
  14 GetOptions(
  15         "q|queue=s" => \$queue_name,
  16 ) or die <<AMEN ;
  17 Usage: bq [<options>] [[!]<machine-or-class> ...]
  18
  19 Options:
  20 -q, --queue=<name>      Show jobs in the given queue
  21 AMEN
  22
  23 my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
  24 my $queue = BEX::Queue->new($queue_name);
  25 for my $m (@machines) {
  26         print "$m:\n";
  27         my @q = $queue->scan($m);
  28         for my $j (@q) {
  29                 my $job = $queue->job_metadata($j);
  30                 print "\t$j (", $job->attr('Subject'), ")\n";
  31         }
  32 }