+ $subj{$j} = ' (' . $job->{'Subject'} . ')';
+ my $st = $queue->read_job_status($m, $j);
+ if (defined($st->{'Time'}) && defined($st->{'Status'})) {
+ $stat{$m}{$j} = ' [' . $st->{'Status'} . ' on ' .
+ POSIX::strftime('%Y-%m-%d', localtime $st->{'Time'}) . ']';
+ } else {
+ $stat{$m}{$j} = '';
+ }
+ }
+}
+
+if ($by_host) {
+ for my $m (sort keys %machs) {
+ print "$m\n";
+ for my $j (@{$machs{$m}}) {
+ print "\t$j", $subj{$j}, $stat{$m}{$j}, "\n";
+ }
+ }
+} else {
+ for my $j (sort keys %jobs) {
+ print $j, $subj{$j}, "\n";
+ for my $m (sort @{$jobs{$j}}) {
+ print "\t$m", $stat{$m}{$j}, "\n";
+ }