From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 09:00:38 +0000 (+0100)
Subject: bprun: Set window title
X-Git-Tag: v3.0~61
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=21f685017fcf4ea6d2dce219c033b3e6f530589a;p=bex.git

bprun: Set window title
---

diff --git a/bprun b/bprun
index 3c36ce9..47ca569 100755
--- a/bprun
+++ b/bprun
@@ -38,7 +38,7 @@ while (%running || @machines) {
 		my $mach = shift @machines;
 		$queue->scan($mach) or next;
 		print "$mach: START\n";
-		system 'screen', './brun', "--status-fifo=$fifo_name", $mach;
+		system 'screen', '-t', $mach, './brun', "--status-fifo=$fifo_name", $mach;
 		!$? or print "$mach: Failed to run!\n";
 		$running{$mach} = 'START';
 		next;