From 0acd4960835364a6113fdca1827cfc0938ed7de9 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sat, 21 Feb 2009 12:58:41 +0000
Subject: [PATCH] -Also implement mkvm for kvm plugin

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2791 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/kvm.pm | 6 ++++++
 xCAT-server/lib/xcat/plugins/xen.pm | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/kvm.pm b/xCAT-server/lib/xcat/plugins/kvm.pm
index 7a26b2a55..b0e378411 100644
--- a/xCAT-server/lib/xcat/plugins/kvm.pm
+++ b/xCAT-server/lib/xcat/plugins/kvm.pm
@@ -53,6 +53,7 @@ sub handled_commands {
   #}
   return {
     rpower => 'nodehm:power,mgt',
+    mkvm => 'nodehm:power,mgt',
     rmigrate => 'nodehm:mgt',
     getnencons => 'nodehm:mgt',
     #rvitals => 'nodehm:mgt',
@@ -473,6 +474,9 @@ sub makedom {
 }
 
 
+sub mkvm {
+ build_xmldesc($node);
+}
 sub power {
     my $subcommand = shift;
     my $retstring;
@@ -533,6 +537,8 @@ sub guestcmd {
   my $error;
   if ($command eq "rpower") {
     return power(@args);
+  } elsif ($command eq "mkvm") {
+      return mkvm();
   } elsif ($command eq "rmigrate") {
       return migrate($node,@args);
   } elsif ($command eq "getrvidparms") {
diff --git a/xCAT-server/lib/xcat/plugins/xen.pm b/xCAT-server/lib/xcat/plugins/xen.pm
index 6075d33f8..77bfd4fda 100644
--- a/xCAT-server/lib/xcat/plugins/xen.pm
+++ b/xCAT-server/lib/xcat/plugins/xen.pm
@@ -921,7 +921,7 @@ sub dohyp {
   unless ($hypconn) {
      my %err=(node=>[]);
      foreach (keys %{$hyphash{$hyp}->{nodes}}) {
-        push (@{$err{node}},{name=>[$_],error=>["Cannot communicate AB via libvirt to $hyp"],errorcode=>[1]});
+        push (@{$err{node}},{name=>[$_],error=>["Cannot communicate via libvirt to $hyp"],errorcode=>[1]});
      }
      print $out freeze([\%err]);
      print $out "\nENDOFFREEZE6sK4ci\n";