From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 17 Oct 2013 14:36:02 +0000 (+0100)
Subject: mg-hosts: manual-task-create option
X-Git-Tag: wip.xsm-13-actual.base~416
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=ce716a8330a19b0f07cf8d41b33e5606a098af24;p=people%2Fiwj%2Fosstest.git

mg-hosts: manual-task-create option
---

diff --git a/mg-hosts b/mg-hosts
index f9790a5f..e4092015 100755
--- a/mg-hosts
+++ b/mg-hosts
@@ -218,6 +218,17 @@ END
     });
 }
 
+sub cmd_manual_task_create () {
+    @ARGV==1 or die "bad usage\n";
+    my $refkey = shift @ARGV;
+    $refkey =~ m/^\w+/ or die "bad task refkey\n";
+    my $q = $dbh_tests->prepare(<<END);
+        INSERT INTO tasks (type,    refkey,username,comment, live,refinfo)
+                   VALUES ('static',?,     ?,       'manual','t', '')
+END
+    db_retry($dbh_tests,[qw(resources)], sub { $q->execute($refkey,$refkey); });
+}
+
 sub cmd_previoustasks () {
     my $doclear = (@ARGV==0 ? 0 :
 		   @ARGV==1 && $ARGV[0] eq '--clear' ? 1 :