view release on metacpan or  search on metacpan

lib/VMWare/LabmanSoap.pm  view on Meta::CPAN

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

	$self->{'soap'}->readable(1);
	$self->{'auth_header'} = SOAP::Header->new(
		name => 'AuthenticationHeader',
		attr => { xmlns => "http://vmware.com/labmanager" },
		value => { username => $username, password => $password, organizationname => $orgname, workspacename => $workspace  },
		);

	if ($self->{'soap'}->fault){ $self->{'LASTERROR'} = $self->{'soap'}->fault }

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