#! /usr/bin/perl -wl
use strict;
use SOAP::Lite;
use Data::Dumper;
$Data::Dumper::Indent = 1;

my $soap = SOAP::Lite->uri(
  'https://ws1.responsys.net/webservices/ResponsysWS?wsdl'
)->proxy(
  'https://ws1.responsys.net/webservices/ResponsysWS?wsdl'
);

my $return = $soap->login('USER', 'PASSWORD');

#print Dumper($return);

if ($return->fault) {
  die $return->faultstring;
}

$return = $soap->listFolders();

if ($return->fault) {
  die $return->faultstring;
}
[download]

The response I get is:

java.rmi.RemoteException: RIAccount object is not available in session
+ at test.pl line 24.
[download]

which is coming from the attempt to call listFolders. (If you run this you'll get a different error since I haven't provided you with the right login information - login really did something.) So obviously there is an RIAccount object that I need to find and do something. But I can't find anything appropriate when I look through the datastructures I have available in $soap or $response.

When I compare with the Java code example in the documentation I see an interesting call to:

((ResponsysWSSoapBindingStub) service).setMaintainSession(true);
[download]

that looks like it could be relevant to keeping a login around. But I can't figure out what the Perl equivalent might be. (If there is one.)

Of course the interface is defined with WSDL. And if I look at WSDL examples in Perl, I see that might be better off calling the session method. However that produces an immediate error. Based on http://support.microsoft.com/kb/308438 I tried downloading the WSDL and deleting the wsdl:portType section. Now I don't get an error, but I get nothing back from:

#! /usr/bin/perl -wl
use strict;
use SOAP::Lite;
use Data::Dumper;
$Data::Dumper::Indent = 1;

my $soap = SOAP::Lite->service(
  'file://users/btilly/responsys/ResponsysWS.wsdl'
)->proxy(
  'https://ws1.responsys.net/webservices/ResponsysWS?wsdl'
);

$soap->login('USER', 'PASSWORD');

print $soap->listFolders;
[download]

which isn't very useful. Possibly related is that the datastructure of $soap includes a fault:

'org.xml.sax.SAXParseException: The value of the attribute "p
refix="xmlns",localpart="namesp1",rawname="xmlns:namesp1"" is invalid.
+ Prefixed
 namespace bindings may not be empty.'
[download]

and I don't know where this comes from.

Does anybody have ideas for what else I can try to be able to login to the service then start calling useful methods? (If it involves ignoring the WSDL and hand-coding stuff, I'm fine with that as long as I have an example to work from to let me know what I should be hand-coding.)