package BigIP::F5;

#use strict;
use SOAP::Lite;
use UNIVERSAL 'isa';
use Data::Dumper;

$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

sub new 
{
	my ($server, $user, $pass) = (@_);
	
	my $proxy_uri = sprintf("https://%s:443/iControl/iControlPortal.cgi", $server);
	my $soap = SOAP::Lite->proxy($proxy_uri);

	sub SOAP::Transport::HTTP::Client::get_basic_credentials {
		return $user => $pass;
	}
	
	return $soap;
}

sub getActivePartition 
{
	my ($self, $soap) = (@_);
	my $soapResponse = $soap->uri("urn:iControl:Management/Partition")->get_active_partition();
	#$self->checkResponse($soapResponse);
	my @partition = @{$soapResponse->result};
	return @partition;
}

1;