bprun: Use job names

diff --git a/bprun b/bprun
index 65dd08987866183b01b7bed5b3d85aa2605b1d73..b64a08ddb7a5c031eaf2a5844be62457333f83f7 100755 (executable)
--- a/bprun
+++ b/bprun
@@ -161,7 +161,8 @@ sub redraw_slot($) {
        my $mach = $s->{'Host'};
        my $stat = $s->{'Status'} // "?";
        my $jid = $s->{'Job'} // "";
-       my $text = sprintf("%-20s %-10s %s", $mach, $stat, $jid);
+       my $jname = $queue->job_name($jid);
+       my $text = sprintf("%-20s %-10s %s", $mach, $stat, $jname);
        $C->addnstr($s->{'Row'}, 0, $text, $C->getmaxx);
        $C->clrtoeol;
        $C->refresh;