【SOAP::Lite模块用例】Perl调用.NET 的 webservice

CODE:

sub auto: Private {

    my ($self, $c) = @_;
    unless ($c->session->{user_id}){
        if ($c->req->param('ticket')) {
                use SOAP::Lite;
                my $soap = SOAP::Lite
                ->uri('http://indigo.oa.com/services')
                ->on_action( sub { join '/', 'http://indigo.oa.com/services', $_[1] } )
                ->proxy('http://192.168.1.205/services/passportservice.asmx?WSDL');
                my @params  = ( SOAP::Data->name(encryptedTicket => $c->req->param('ticket')));
                my $method =SOAP::Data->name('DecryptTicket')->attr({xmlns => 'http://indigo.oa.com/services/'});;
                my $result=$soap->call($method => @params)->result;
                unless( $result->{LoginName}) {
                        $c->log->debug("Ticket Auth Error,Please Login Again!");
                        $c->response->redirect("http://passport.oa.com/modules/passport/signin.ashx?url=" . uri_escape('http://db.ied.com'));
                }
                else {
                        $c->log->debug("Ticket Auth OK, The LoginName is " . $result->{LoginName});
                        $c->session->{user_id} = $result->{LoginName};
                        return 1;
                }
        }
        else {
                #$c->log->debug(Dumper($c->session));
                #$c->log->debug($c->req->uri);
                $c->response->redirect("http://passport.oa.com/modules/passport/signin.ashx?url=" . uri_escape($c->req->uri));
        }
    }
    return 1;
}