view release on metacpan or  search on metacpan

lib/VMware/LabManager.pm  view on Meta::CPAN

This method returns an authentication header wrapper that is needed for each
SOAP call that you make to Lab Manager. It uses the options you provided in the
new() method to build this header.

=cut

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;

t/01-auth_hdr.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 5;
use VMware::LabManager;

my $lm = VMware::LabManager->new('aivaturi','passwd','lm.acme.com', 'org');
my $auth_hdr = $lm->get_auth_header();

ok($auth_hdr->isa('SOAP::Header'), "auth_hdr is a right class" );
is(($auth_hdr->value)->{username}, 'aivaturi', "Testing returned username");
is(($auth_hdr->value)->{password}, 'passwd', "Testing returned password");
is(($auth_hdr->value)->{organizationname}, 'org', "Testing returned organization name");
is(($auth_hdr->attr)->{xmlns}, 'http://vmware.com/labmanager', "Testing returned xmlns");