From ba7945c1c6171b2ed5f2b40a6b8cbd0dc017a54e Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 15:31:58 +0100
Subject: [PATCH] Use job->name consistently

---
 TODO | 1 -
 brun | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/TODO b/TODO
index ea1dfba..e6fca02 100644
--- 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 7af77f3..42bdf86 100755
--- 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;
-- 
2.39.5