#!/usr/bin/env perl
use SOAP::Lite +trace => [ qw (all) ];
my $soap = SOAP::Lite
-> proxy('http://sitebuilder.yourserver/ServiceFacade/AccountWebService.asmx')
-> ns('http://swsoft.com/SiteBuilder/AccountService/v_3_2');
my @headers = (SOAP::Header->name("CredentialsSoapHeader" =>
\SOAP::Data->value(
SOAP::Header->name("Login" => "admin"),
SOAP::Header->name("Password" => "admin")
)
));
$headers[0]->uri("http://swsoft.com/SiteBuilder/AccountService/v_3_2");
my @data = (
SOAP::Data->name("username", "test"),
SOAP::Data->name("password", "test"),
SOAP::Data->name("firstName", "john"),
SOAP::Data->name("lastName", "doe"),
SOAP::Data->name("email", 'john@nowhere.com'),
SOAP::Data->name("role", "Reseller"),
);
$soap->CreateAccountWithNewPlan(@data, @headers);