Forum Discussion

orangepeelbeef_'s avatar
orangepeelbeef_
Icon for Nimbostratus rankNimbostratus
Nov 17, 2008

add member to pool

I can't seem to find any references to adding a member to a pool. I'm not a professional coder, but I figured I understood enough programming to make this thing work, it seems like it should be pretty simple.

I get this error:

Server Could not find element by name: address

 
 ---------------------------------------------------------------------------- 
  Transport Information 
 ---------------------------------------------------------------------------- 
 sub SOAP::Transport::HTTP::Client::get_basic_credentials 
 { 
 return "$sUID" => "$sPWD"; 
 } 
 $Pool = SOAP::Lite 
 -> uri('urn:iControl:LocalLB/Pool') 
 -> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi"); 
 eval { $Pool->transport->http_request->header 
 ( 
 'Authorization' =>  
 'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '') 
 ); }; 
 $sIPPort = { address => $sMember, port => $sMemberPort }; 
  
 $soapResponse = $Pool->add_member(  
 SOAP::Data->name(pool_names => [$sPool]), 
 SOAP::Data->name(members => [$sIPPort]) 
 ); 
 &checkResponse($soapResponse); 
 

SOAPAction: "urn:iControl:LocalLB/Pooladd_member"                                                               
  
 rd-dev1.2.3.425000                                                                                                                        
 SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x9c3ecf0)                                               
 SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error                                           
 Connection: close                                                                                               

1 Reply

  • looks like this is what i needed

    $sIPPort = { address => $sMember, port => $sMemberPort };
     
      push @MemberList, $sIPPort;
      push @MemberListAofA, [@MemberList];
    
    
    $soapResponse = $Pool->add_member( 
    SOAP::Data->name(pool_names => [$sPool]),
            SOAP::Data->name(members => [@MemberListAofA])
     );
    &checkResponse($soapResponse);