过SOAP技术调用oa SSO认证的WebService：perl，PHP例子代码

最近一个Perl写的 Server需要去调用公司的SSO认证，她们是以webservice方式提供服务的。具体访问就是走SOAP的方式。

跨主机远程函数调用，并且还能语言独立，我想这是每个 程序员的梦想，SOAP就是不错的实现技术。但是不要期待SOAP能提供你自己写的很多底层代码一样高的效率。

先跟兄弟部门要了个 PHP soap调用的方法，如下：
    public function login() {
        global $db;
        if (isset($_GET['ticket'])) {
            try {
                $soap = new SoapClient("http://192.168.1.205/services/passportservice.asmx?WSDL");
                $result = $soap->DecryptTicket(array("encryptedTicket" => $_GET['ticket']));
                if (!$result->DecryptTicketResult->LoginName) {
                    msg('TICKET错误，请重新登录', './login.php');
                } else {
                    $soap = new SoapClient("http://ws.oa.com/orgservice.asmx?wsdl");
                    $result = $soap->GetStaffInfoByLoginName(array('loginName' => $result->DecryptTicketResult->LoginName));
                    if ($result->GetStaffInfoByLoginNameResult) {
                        require_once ROOT_PATH . 'user/func/pinyin.func.php';
                        $user_id        = (int) $result->GetStaffInfoByLoginNameResult->Id;
                        $login_name     = $db['user']->escape($result->GetStaffInfoByLoginNameResult->LoginName);
                        $english_name   = $db['user']->escape($result->GetStaffInfoByLoginNameResult->EnglishName);
                        $chinese_name   = $db['user']->escape($result->GetStaffInfoByLoginNameResult->ChineseName);
                        $full_name      = $db['user']->escape($result->GetStaffInfoByLoginNameResult->FullName);
                        $gender         = $db['user']->escape($result->GetStaffInfoByLoginNameResult->Gender);
                        $id_card_number = $db['user']->escape($result->GetStaffInfoByLoginNameResult->IDCardNumber);
                        if (!preg_match('/^\d+$/', $id_card_number)) {
                            $id_card_number = 0;
                        }
                        $pinyin_name    = pinyin($chinese_name);
                        $department_id = (int) $result->GetStaffInfoByLoginNameResult->DepartmentId;
                        $department_name = $db['user']->escape($result->GetStaffInfoByLoginNameResult->DepartmentName);
                        $group_id = $db['user']->escape($result->GetStaffInfoByLoginNameResult->GroupId);
                        $group_name = $db['user']->escape($result->GetStaffInfoByLoginNameResult->GroupName);
                        try {
                            $this->insertUser(array($user_id, $login_name, $english_name, $chinese_name, $full_name, $pinyin_name, $gender, $id_card_number, $department_id, $department_name, $group_id, $group_name));
                            $_SESSION['user_id'] = $user_id;
                            header("location: ./index.php");
                        } catch (User_Exception $e) {
                            msg($e->getMessage());
                        }
                    } else {
                        msg("OA上没有您的个人信息，请联系 管理员!");
                    }
                }
            } catch (SoapFault $s) {
                msg("PASSPORT连接失败!");
            }
        } else {
            $login_url = "http://passport.oa.com/modules/passport/signin.ashx?url=" . urlencode(SITE_URL . "/login.php");
            exit("<script. type='text/javascript'>top.location.href = '$login_url';</script>");
        }
    }

根据上边的，有写了一下Perl调用Soap服务的代码，如下为perl MVC框架Catalyst中的代码，放在Root.pm中，所有的页面都会经过此处认证了：

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;
}