Difference between revisions of "Perl GetDisplayPreferences"

Latest revision as of 15:57, 25 August 2008

#!/usr/bin/perl -w

use strict;
use SOAP::Lite;
use Data::Dumper;

my $service = "https://secure.webmail.us/mail4/soap/soap_server.php?wsdl";

my $resellerUsername = "someadmin";
my $resellerPassword = "adminpass";
my $domain = "somedomain.com";
my $userid = "someuser";

my @result = SOAP::Lite
  -> service($service)
  -> GetDisplayPreferences($resellerUsername, $resellerPassword, $domain, $userid);
print Dumper @result;
print "\n";