From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 12:38:59 +0000 (+0100)
Subject: Newly inserted jobs immediately enter NEW status
X-Git-Tag: v3.0~45
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=4cc1dc2043a97c10c349bb13a81ada220d1ea485;p=bex.git

Newly inserted jobs immediately enter NEW status
---

diff --git a/NOTES b/NOTES
index 7030015..561abd6 100644
--- a/NOTES
+++ b/NOTES
@@ -45,6 +45,7 @@ Message: <msg>			(Optional) human-readable message explaining the status
 
 ### Status codes ###
 
+NEW		Newly inserted job, which did not run yet
 NOPING		Host does not respond to ping
 NOXFER		Transfer of the job body to a temporary file on the host has failed
 OK		Job finished successfully (this is usually not seen in the queue, since
diff --git a/benq b/benq
index c401720..b4b6735 100755
--- a/benq
+++ b/benq
@@ -43,6 +43,7 @@ print "New job ", $job->id, "\n";
 my $queue = BEX::Queue->new($queue_name);
 for my $m (@machines) {
 	if ($queue->enqueue($m, $job)) {
+		$queue->write_job_status($m, $job->id, { 'Time' => time, 'Status' => 'NEW' });
 		print "\t$m\n";
 	} else {
 		print "\t$m (already queued)\n";