]> mj.ucw.cz Git - bex.git/blob - bq
55ef17728984fe8ffdc67199ca8f04731df44a04
[bex.git] / 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 use POSIX;
9
10 use lib 'lib';
11 use BEX;
12
13 my $by_host;
14 my $queue_name;
15
16 GetOptions(
17         "h|by-host!" => \$by_host,
18         "q|queue=s" => \$queue_name,
19 ) or die <<AMEN ;
20 Usage: bq [<options>] [[!]<machine-or-class> ...]
21
22 Options:
23 -h, --by-host           Show jobs sorted by host (default: by job)
24 -q, --queue=<name>      Show jobs in the given queue
25 AMEN
26
27 my @machines = BEX::Config::parse_machine_list(@ARGV ? @ARGV : '*');
28 my $queue = BEX::Queue->new($queue_name);
29
30 my %jobs = ();
31 my %machs = ();
32 my %subj = ();
33 my %stat = ();
34 for my $m (@machines) {
35         for my $j ($queue->scan($m)) {
36                 push @{$jobs{$j}}, $m;
37                 push @{$machs{$m}}, $j;
38                 my $job = $queue->job_metadata($j);
39                 $subj{$j} = ' (' . $job->{'Subject'} . ')';
40                 my $st = $queue->read_job_status($m, $j);
41                 if (defined($st->{'Time'}) && defined($st->{'Status'})) {
42                         $stat{$m}{$j} = ' [' . $st->{'Status'} . ' on ' .
43                                         POSIX::strftime('%Y-%m-%d', localtime $st->{'Time'}) . ']';
44                 } else {
45                         $stat{$m}{$j} = '';
46                 }
47         }
48 }
49
50 if ($by_host) {
51         for my $m (sort keys %machs) {
52                 print "$m\n";
53                 for my $j (@{$machs{$m}}) {
54                         print "\t$j", $subj{$j}, $stat{$m}{$j}, "\n";
55                 }
56         }
57 } else {
58         for my $j (sort keys %jobs) {
59                 print $j, $subj{$j}, "\n";
60                 for my $m (sort @{$jobs{$j}}) {
61                         print "\t$m", $stat{$m}{$j}, "\n";
62                 }
63         }
64 }