Net :: Saml. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Sampo Kellomaki
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sampo/Socket-PassAccessRights-0.03/PassAccessRights.pm
Net :: Saml. ű×
Net :: Saml. ¼³¸í
SAML SSO¸¦ »ç¿ëÇϱâÀ§ÇÑ Perl È®Àå. NET :: SAMLÀº SAML SSO.SNOPSIS¸¦ »ç¿ëÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. NET :: SAML; $ cf = net :: saml :: new_conf ( "/ var / zxid /"); net :: saml :: url_set ($ cf, $ URL); net :: saml :: set_opt ($ cf, 1, 1); # libzxid ·¹º§ µð¹ö±ë $ cgi = net :: saml :: new_cgi ($ cf, $ env {query_string '}); net :: saml :: parse_cgi ($ cgi, $ qs); $ op = net :: saml :: zxid_cgi :: swig_op_get ($ cgi); $ sid = net :: saml :: zxid_cgi :: swig_sid_get ($ cgi); $ ses = net :: saml :: fetch_ses ($ cf, $ sid); $ ses = net :: saml :: fetch_ses ($ cf, ""); # ºó ³Ý :: SAML :: DEL_SES ($ CF, $ SES)¸¦ ÇÒ´çÇϽʽÿÀ. $ sid = net :: saml :: zxid_ses :: swig_sid_get ($ ses); $ nid = net :: saml :: zxid_ses :: swig_nid_get ($ ses); net :: saml :: lecp_check ($ cf, $ cgi); net :: saml :: cdc_read ($ cf, $ cgi); $ url = net :: saml :: start_sso_url ($ cf, $ cgi); $ ret = net :: saml :: sp_deref_art ($ cf, $ cgi, $ ses); $ req = net :: saml :: zxid_cgi :: swig_saml_req_get ($ cgi); $ res = net :: saml :: zxid_cgi :: swig_saml_resp_get ($ cgi); $ ret = net :: saml :: sp_dispatch ($ cf, $ cgi, $ ses, $ res); net :: saml :: send_sp_meta ($ cf, $ cgi); $ idp = net :: saml :: load_cot_cache ($ cf); $ eid = net :: saml :: zxid_entity :: swig_eid_get ($ IDP); $ eid_len = net :: saml :: zxid_entity :: swig_eid_len_get ($ IDP); $ idp = net :: saml :: zxid_entity :: swig_n_get ($ IDP); net :: saml :: sp_slo_redir ($ cf, $ cgi, $ ses); net :: saml :: sp_slo_soap ($ cf, $ cgi, $ ses); net :: saml :: sp_nireg_redir ($ cf, $ cgi, $ ses, 0); net :: saml :: sp_nireg_soap ($ cf, $ cgi, $ ses, 0); net :: saml :: OK; net :: saml :: redir_ok; ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: Saml. °ü·Ã ¼ÒÇÁÆ®¿þ¾î