view release on metacpan or  search on metacpan

lib/Cisco/UCS.pm  view on Meta::CPAN

	$self->{ua} = LWP::UserAgent->new( 
				ssl_opts => { 
					verify_hostname => $self->{verify_hostname}
				} 
			);

	$self->{uri} = $self->{proto}. '://' .$self->{cluster}
				. ':' .$self->{port}. '/nuova';

	$self->{req} = HTTP::Request->new(
					POST => $self->{uri}
			);

	$self->{req}->content_type( 'application/x-www-form-urlencoded' );

	$self->{req}->content( '<aaaLogin inName="'. $self->{username} 
				.'" inPassword="'. $self->{passwd} .'"/>' );

	my $res	= $self->{ua}->request( $self->{req} );