Quicksilver has asked for the wisdom of the Perl Monks concerning the following question:
What I need to do is to get the name in the cookie over to Java so that it can authorise any resource uses, not to set a cookie in Java. I did think about inline Java but got put off by potential language bloat. I'd be grateful for any help or advice on creating this file.#!c:\perl\bin\perl.exe use strict; use warnings; use SOAP::Transport::HTTP; use HTTP::Cookies; SOAP::Transport::HTTP::CGI ->dispatch_to('emailfind') ->handle; package emailfind; sub findingit { warn "****** findingit(".join(',',map{"'$_'"}@_).")\n"; my $function = shift; my $cookiejar = shift; die "No cookies" unless $cookiejar; my $cookie = $cookiejar->as_string(); die "no cookie" if (!$cookie || $cookie =~ /WALOGIN="RESET"/); #e +xit function if cookie empty or is RESET my ($e) = $cookie =~ /WALOGIN=\"([^\"]+)\"/; my ($e) = split(/-/, $cookie); $e = pack ("H*", $e); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Trying to create WSDL file to link Perl and Axis2
by zby (Vicar) on Nov 13, 2008 at 11:44 UTC |