Perl ModifyUser

From Rackspace Email & Apps API
Jump to: navigation, search

#!/usr/bin/perl -w

use strict;
use SOAP::Lite;

my $service = "https://admin.webmail.us/mailaccounts/mailaccounts.wsdl";

my $resellerUsername = "someadmin";
my $resellerPassword = "somepasswd";

my $hostName = "mydomain.com";
my $userID = "myuser";
my $newpasswd = "mynewpasswd";

my @result = SOAP::Lite
-> service($service)
-> ModifyUser($resellerUsername, $resellerPassword, $hostName, $userID, $newpasswd, 1,"","","","","","","","","","");

print $result[0]."\n\n";