Author: bmbouter
Date: Tue Mar 24 16:00:12 2009
New Revision: 757868
URL: http://svn.apache.org/viewvc?rev=757868&view=rev
Log:
VCL-29
Added more robust debugging for the esx.pm as it interacts with the hypervisor.
This debugging uses the 'DEBUG' level of logging.
Modified:
incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/esx.pm
Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/esx.pm
URL:
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/esx.pm?rev=757868&r1=757867&r2=757868&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/esx.pm
(original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/esx.pm Tue
Mar 24 16:00:12 2009
@@ -187,7 +187,7 @@
# parse the results from the host and determine if we need to remove an
old vm
if ($vminfo_output =~ /^Information of Virtual Machine
$computer_shortname/m) {
- # Turn new vm on
+ # Power off this vm
my $poweroff_command =
"/usr/lib/vmware-viperl/apps/vm/vmcontrol.pl";
$poweroff_command .= " --server '$vmhost_hostname'";
$poweroff_command .= " --vmname $computer_shortname";
@@ -210,6 +210,7 @@
$unregister_command .= " --pool Resources";
$unregister_command .= " --hostname '$vmhost_hostname'";
$unregister_command .= " --datacenter 'ha-datacenter'";
+ notify($ERRORS{'DEBUG'}, 0, "Un-Register Command:
$unregister_command");
my $unregister_output;
$unregister_output = `$unregister_command`;
notify($ERRORS{'DEBUG'}, 0, "Un-Registered:
$unregister_output");
@@ -332,6 +333,7 @@
$register_command .= " --pool Resources";
$register_command .= " --hostname '$vmhost_hostname'";
$register_command .= " --datacenter 'ha-datacenter'";
+ notify($ERRORS{'DEBUG'}, 0, "Register Command: $register_command");
my $register_output;
$register_output = `$register_command`;
notify($ERRORS{'DEBUG'}, 0, "Registered: $register_output");
