Author: arkurth
Date: Thu May 27 13:15:50 2010
New Revision: 948821

URL: http://svn.apache.org/viewvc?rev=948821&view=rev
Log:
VCL-298
Added set_vmhost_os and vmhost_os subroutines to Provisioning.pm.  These allow 
a provisioning module to set and access an OS object for the VM host OS if one 
was created.  As a result, the provisioning module can call 
$self->vmhost_os->... to access the VM host computer's OS the same way it would 
call $self->os->... to access the guest's OS.

Modified:
    incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning.pm

Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning.pm
URL: 
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning.pm?rev=948821&r1=948820&r2=948821&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning.pm Thu May 
27 13:15:50 2010
@@ -78,6 +78,22 @@ sub set_os {
 
 #/////////////////////////////////////////////////////////////////////////////
 
+=head2 set_vmhost_os
+
+ Parameters  : None
+ Returns     : Process's VM host OS object
+ Description : Sets the VM host OS object for the provisioner module to access.
+
+=cut
+
+sub set_vmhost_os {
+       my $self = shift;
+       my $vmhost_os = shift;
+       $self->{vmhost_os} = $vmhost_os;
+}
+
+#/////////////////////////////////////////////////////////////////////////////
+
 =head2 os
 
  Parameters  : None
@@ -101,6 +117,29 @@ sub os {
 
 #/////////////////////////////////////////////////////////////////////////////
 
+=head2 vmhost_os
+
+ Parameters  : None
+ Returns     : Process's VM host OS object
+ Description : Allows provisioning modules to access the reservation's VM host 
OS
+               object.
+
+=cut
+
+sub vmhost_os {
+       my $self = shift;
+       
+       if (!$self->{vmhost_os}) {
+               notify($ERRORS{'WARNING'}, 0, "unable to return VM host OS 
object, \$self->{vmhost_os} is not set");
+               return;
+       }
+       else {
+               return $self->{vmhost_os};
+       }
+}
+
+#/////////////////////////////////////////////////////////////////////////////
+
 1;
 __END__
 


Reply via email to