Re^4: Connecting to WSDL

I've used XML::Compile::WSDL11 and it's working now. However, my next question is:
I first call the logon method. It returns a session ID. In subsequent calls, I need to set the "header" with the session ID. How do I do that? Trying to find this out.

Comment on Re^4: Connecting to WSDL

Replies are listed 'Best First'.
Re^5: Connecting to WSDL by Anonymous Monk on Jul 06, 2015 at 09:40 UTC
Um, its either done automatically (I hope) or you manipulate some object (transport?) :D I imagine http://perl.overmeer.net/xml-compile/#doc would have an example ... yeah use a transport "hook" http://perl.overmeer.net/xml-compile/html/XML_Compile_SOAP/index.html `my $call = $wsdl->compileClient($operation , transport_hook => \&basic_auth ); sub basic_auth($$) { my ($request, $trace) = @_; # Encode userid and password my $authorization = 'Basic '. encode_base64 "$user:$password"; # Modify http header to include basic authorisation $request->header(Authorization => $authorization ); my $ua = $trace->{user_agent}; $ua->request($request); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Connecting to WSDL
by Anonymous Monk on Jul 06, 2015 at 09:40 UTC

http://perl.overmeer.net/xml-compile/#doc

http://perl.overmeer.net/xml-compile/html/XML_Compile_SOAP/index.html

 my $call = $wsdl->compileClient($operation
     , transport_hook => \&basic_auth );
  sub basic_auth($$)
  {   my ($request, $trace) = @_;

      # Encode userid and password
      my $authorization = 'Basic '. encode_base64 "$user:$password";

      # Modify http header to include basic authorisation
      $request->header(Authorization => $authorization );

      my $ua = $trace->{user_agent};
      $ua->request($request);
  }
[download]

[reply]
[d/l]