From 8bf2dc724200475f7b3e203d7a4d459584354810 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 16 Feb 2012 17:42:33 +0100
Subject: [PATCH] add: Added --execute switch

---
 lib/bin/bex-add | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/bin/bex-add b/lib/bin/bex-add
index 6cfbd17..56f58fa 100755
--- a/lib/bin/bex-add
+++ b/lib/bin/bex-add
@@ -9,6 +9,7 @@ use File::stat;
 use BEX;
 
 my $given_body;
+my $given_execute;
 my $given_go;
 my $given_id;
 my $queue_name;
@@ -22,6 +23,7 @@ Usage: bex add [<options>] [!]<machine-or-class> ...
 
 Options:
 -b, --body=<file>	Load job body from the given file
+-e, --execute=<command>	Set job body to the given command
 -g, --go		Do not run editor, go enqueue the job immediately
 -i, --id=<id>		Set job ID of the new job
 -q, --queue=<name>	Insert new jobs to the given queue
@@ -34,6 +36,7 @@ AMEN
 
 GetOptions(
 	"b|body=s" => \$given_body,
+	"e|execute=s" => \$given_execute,
 	"g|go!" => \$given_go,
 	"i|id=s" => \$given_id,
 	"q|queue=s" => \$queue_name,
@@ -54,7 +57,7 @@ my $tmp_fn;
 
 if (defined $requeue_id) {
 	# When requeueing, just fetch the existing job
-	if (defined($given_body) || defined($given_id) || defined($given_subject) || defined($given_template)) {
+	if (defined($given_body) || defined($given_execute) || defined($given_id) || defined($given_subject) || defined($given_template)) {
 		die "Parameters of a requeued job cannot be changed\n";
 	}
 	my $fn = $queue->job_file($requeue_id);
@@ -69,7 +72,9 @@ if (defined $requeue_id) {
 	}
 	$job->attr('ID', $given_id) if defined $given_id;
 	$job->attr('Subject', $given_subject) if defined $given_subject;
-	if (defined $given_body) {
+	if (defined $given_execute) {
+		$job->attr('body', $given_execute. "\n");
+	} elsif (defined $given_body) {
 		open B, '<', $given_body or die "Cannot open $given_body: $!\n";
 		local $/;
 		$job->attr('body', <B>);
-- 
2.39.2