admin admin 16789900 15 ##

##

my %methods = (
getNewGroup => {
    endpoint => 'http://10.3.1.5/smsapi/services/SMSAPI/r08_00/NewGroupService',
    soapaction => '',
    namespace => 'http://www.xyznet.com/sms/smsapi/r08_00/NewGroupService',
    parameters => [
      SOAP::Data->new(name => 'in0', type => 'tns1:PartKey', attr => {}),
      SOAP::Data->new(name => 'in1', type => 'tns1:NewGroupKey', attr => {}),
    ], # end parameters
  }, # end getNewGroup

##

##

use SOAP::Lite +trace => 'debug';
use Data::Dumper;
 
use SMSAPIService_r08_00_NewGroupService qw(:all);
 
my $headers = SOAP::Header->name("authenticate" =>
   SOAP::Header->value(SOAP::Header->name("USER" => "admin"),
   SOAP::Header->name("PASSWORD" => "admin")
   )
);
 
 
my $obj = new SMSAPIService_r08_00_NewGroupService;
$obj -> use_prefix(1);
$obj->readable(1);
$obj->want_som(1);
$obj->getNewGroup($headers,15,16789900);

##

##