| stug23 2005-01-02, 3:56 am |
| My question is:
VisualWorks SOAP client -- How to obtain a session ID?
I am using the VisualWorks SOAP client to converse with a web service
that requires the session ID as one of the arguments for the web
service call. I have been able to successfully execute a conversation
by swiping a non-terminated session ID from a Perl SOAP::Lite client,
but can't figure out where/how to obtain the session ID for the
VisualWorks SOAP client.
Here is the code:
-------- Smalltalk code starts here -----------
| wsdlClient soapRequest sessionID |
wsdlClient := WsdlClient new loadFrom:
'http://imac.local:8080/exist/services/Query?WSDL' asURI.
wsdlClient transportClient loginToHost: 'myHost' port: 8080 asUser:
'myUserID' withPassword: 'myPassword' .
soapRequest := SoapRequest new.
soapRequest port: wsdlClient config anyPort.
"This is a session ID swiped from a Perl SOAP::Lite client session:"
sessionID := '9103440'.
"The sessionID is a required argument for the web service call:"
soapRequest smalltalkEntity:
(Message selector: #getResourceData arguments: #(sessionID
'/db/shakespeare/plays/hamlet.xml' true false false) ).
soapRequest value
-------- Smalltalk code ends here -----------
And here is the equivalent Perl SOAP client code:
-------- Perl code starts here -----------
#!/usr/bin/perl -w
use SOAP::Lite;
die "Usage: $0 collection document\n" unless @ARGV == 2;
my $collection = $ARGV[0];
my $doc = $ARGV[1];
my $service =
SOAP::Lite->service("http://myHost:8080/exist/services/Query?WSDL");
$service->on_fault(sub { my($soap, $res) = @_;
die ref $res ? $res->faultdetail : $soap->transport->status, "\n";
});
print "Connecting ...\n";
# The Perl connect method returns a session ID string:
my $session = $service->connect("guest", "guest");
print "$session\n"; # <--- got my session ID from here
print "Collection contents for $collection:\n";
my $resp = $service->listCollection($session, $collection);
my @resources = @{$resp->{'resources'}};
foreach $r (@resources) {
print "\t$r\n";
}
$doc = "$collection/$doc";
print "\nRetrieving document $doc ...\n\n";
$resp = $service->getResourceData($session, $doc, TRUE, FALSE, FALSE);
print "$resp\n\n";
#$service->disconnect($session);
-------- Perl code ends here -----------
Suggestions on how to obtain a session ID for a VisualWorks SOAP client
would be appreciated!
Thanks,
Pat Podenski
|