VMware::LabManager - Perl module to provide basic VMware Lab Manager operations.

    use VMware::LabManager;
    use Data::Dumper;

    #instantiate the LM object
    my $lm = VMware::LabManager->new('username','passwd','labManager hostname', 'org');

    #or if you want the XML messages dumped (i.e. verbose), pass the debug option:
    my $lm = VMware::LabManager->new('username','passwd','labManager hostname', 'org', 'debug');

    #deploy_config returns the config ID of the config that is deployed
    my $configID = $lm->deploy_config('my_library_config_name');
    print $configID;

    #get all the machines in the deployed config
    my $machineArray = $lm->get_machines($configID);
    print Dumper($machineArray);

    #delete the config once you are done.
    $action = $lm->delete_config($configID);
    print $action

    perldoc VMware::LabManager

package VMware::LabManager;

use warnings;
use strict;

use Time::HiRes qw(time);    #used to generate unique confignames.

our $VERSION = '0.01';

sub new
{
 my $class = shift;
 my $uname = shift; # username for LM
 my $pass  = shift; # password for LM
 my $host  = shift; # LM hostname
 my $org   = shift; # LM organization name
 my $debug = shift; # enable debug, off by default

 # Set the debug option if passed to the constructor.
 if ( defined $debug && ( $debug eq 'debug' ) )
 {
  eval("use SOAP::Lite +trace => 'debug'");
 } else
 {
  eval("use SOAP::Lite");
 }

 my $self = {
              Username     => $uname,
              Password     => $pass,
              Hostname     => $host,
              Organization => $org
 };

 bless( $self, $class );
 return $self;
}

sub get_soap
{
 my $self = shift;
 my $soap = SOAP::Lite->on_action(
  sub {
   return "http://vmware.com/labmanager/" . $_[1];
  }
   )->default_ns('http://vmware.com/labmanager')
   ->proxy(
          'https://' . $self->{Hostname} . '/LabManager/SOAP/LabManager.asmx' );
 $soap->readable(1);
 return $soap;
}

sub get_auth_header
{
 my $self = shift;
 my $auth_header = SOAP::Header->new(
                            name => 'AuthenticationHeader',
                            attr => { xmlns => "http://vmware.com/labmanager" },
                            value => {
                                       username         => $self->{Username},
                                       password         => $self->{Password},
                                       organizationname => $self->{Organization},
                            },
 );
 
 return $auth_header;
}

sub deploy_config
{
 my $self        = shift;
 my $config_name = shift; # library config name
 my $soap        = $self->get_soap();
 my $auth_header = $self->get_auth_header();
 my $res;

 # Get Configuration by Name
 $res = $soap->GetConfigurationByName(
                                       $auth_header,
                                       SOAP::Data->name(
                                                         'name' => $config_name
                                         )->type('s:string')
 );

#check for error ... there's more in the faultdetail hash, could use Dumper to examine it
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail );
 }

 # Get the id of the configuration
 my $configID = undef;

# LM API does not provide any direct way of getting the version it is running & the data structure
# returned for this method changed in v4.0. I am just lazy, change the statement below if you use older version.
# For previous versions of LM: $configID = $res->result->{'Configuration'}->{'id'};

 $configID = $res->result->{'Configuration'}[0]->{'id'};

 # Check out Configuration to workspace
 my $new_config_name = $config_name . time;
 $res = $soap->ConfigurationCheckout(
                                      $auth_header,
                                      SOAP::Data->name(
                                                  'configurationId' => $configID
                                        )->type('s:int'),
                                      SOAP::Data->name(
                                             'workspaceName' => $new_config_name
                                        )->type('s:string')
 );

 #check for error...
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail );
 }

 # Get the configID of the checked out config
 my $checked_out_config_ID = $res->result;

 # Deploy that config...
 $res = $soap->ConfigurationDeploy(
                             $auth_header,
                             SOAP::Data->name(
                                     'configurationId' => $checked_out_config_ID
                               )->type('s:int'),
                             SOAP::Data->name( 'isCached' => 'false' )
                               ->type('s:boolean'),
                             SOAP::Data->name( 'fenceMode' => 4 )->type('s:int')
 );

 #check for error...
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail )
    . "\n";
 }

 return $checked_out_config_ID;
}

sub get_machines
{
 my $self        = shift;
 my $config_ID   = shift; # config ID that we got when we deployed
 my $soap        = $self->get_soap();
 my $auth_header = $self->get_auth_header();
 my $res;

 #Get the list of machines in a given config
 $res = $soap->ListMachines(
  $auth_header,
  SOAP::Data->name(
                    'configurationId' => $config_ID
    )->type('s:int')
 );

 #check for error...
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail );
 }

 #return an array of all machines information.
 return $res->paramsall;
}

sub delete_config
{
 my $self        = shift;
 my $config_ID   = shift; # config ID that we got when we deployed
 my $soap        = $self->get_soap();
 my $auth_header = $self->get_auth_header();
 my $res;

 # Undeploy the configuration
 $res = $soap->ConfigurationUndeploy(
                                      $auth_header,
                                      SOAP::Data->name(
                                                 'configurationId' => $config_ID
                                        )->type('s:int')
 );

 #check for error...
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail );
 }

 # Delete the configuration
 $res = $soap->ConfigurationDelete(
                                    $auth_header,
                                    SOAP::Data->name(
                                                 'configurationId' => $config_ID
                                      )->type('s:int')
 );

 #check for error...
 if ( $res->fault )
 {
  return
    join( ': ',
          'LabManager SOAP error', $res->faultcode,
          $res->faultstring,       $res->faultdetail );
 }

 return 'Deleted';
}

1;    # End of VMware::LabManager