Use job->name consistently

diff --git a/TODO b/TODO
index ea1dfba6b4b3f1ef1e6e1c35e728190bfd6a825c..e6fca02d2e93777661a3479c72b2cadfdb49e3f8 100644 (file)
--- a/TODO
+++ b/TODO
@@ -3,4 +3,3 @@
 - bprun --curses
 - Terminology: machine vs. host
 - Detector of orphans (unused queue dirs, jobs on non-existent machines, non-queued jobs)
-- use job->name

diff --git a/brun b/brun
index 7af77f3301857de38b06646cdc7f034016742698..42bdf86b4e07b984632eaaca1de53417abb6040d 100755 (executable)
--- a/brun
+++ b/brun
@@ -127,7 +127,7 @@ sub run_job_body($$$) {
 
        update_status($mach, $jid, 'RUN', $queue);
        my $lf = $queue->log_file($mach, $jid);
-       system 'bash', '-o', 'pipefail', '-c', "$BEX::Config::ssh_command -t $host '$rtmp ; e=\$? ; rm -f $rtmp ; exit \$e' 2>&1 | tee -a $lf";
+       system 'bash', '-o', 'pipefail', '-c', "$BEX::Config::ssh_command $host '$rtmp ; e=\$? ; rm -f $rtmp ; exit \$e' 2>&1 | tee -a $lf";
        if ($?) {
                return ('FAILED', 'Job failed ' . exit_status($?));
        } else {
@@ -175,7 +175,7 @@ for my $mach (@machines) {
                my $stat = {
                        'Time' => time,
                };
-               print "### Running $jid (", $job->attr('Subject'), ") on $mach ###\n";
+               print "### Running ", $job->name, " on $mach ###\n";
                my ($s, $msg) = run_job($job, $queue, $mach);
 
                $stat->{'Status'} = $s;