WSO2-WSF-Perl

 view release on metacpan or  search on metacpan

C.pm  view on Meta::CPAN

*BASIC256 = *WSO2::WSF::Cc::BASIC256;
*BASIC192 = *WSO2::WSF::Cc::BASIC192;
*BASIC128 = *WSO2::WSF::Cc::BASIC128;
*TRIPLEDES = *WSO2::WSF::Cc::TRIPLEDES;
*BASIC256_RSA15 = *WSO2::WSF::Cc::BASIC256_RSA15;
*BASIC192_RSA15 = *WSO2::WSF::Cc::BASIC192_RSA15;
*BASIC128_RSA15 = *WSO2::WSF::Cc::BASIC128_RSA15;
*TRIPLEDES_RSA15 = *WSO2::WSF::Cc::TRIPLEDES_RSA15;
*ISSUER_SERIAL = *WSO2::WSF::Cc::ISSUER_SERIAL;
*KEYIDENTIFIER = *WSO2::WSF::Cc::KEYIDENTIFIER;
*EMBEDDEDTOKEN = *WSO2::WSF::Cc::EMBEDDEDTOKEN;
*THUMBPRINT = *WSO2::WSF::Cc::THUMBPRINT;
*DIRECT = *WSO2::WSF::Cc::DIRECT;
*ISSUER_SERIAL_VAL = *WSO2::WSF::Cc::ISSUER_SERIAL_VAL;
*KEYIDENTIFIER_VAL = *WSO2::WSF::Cc::KEYIDENTIFIER_VAL;
*EMBEDDEDTOKEN_VAL = *WSO2::WSF::Cc::EMBEDDEDTOKEN_VAL;
*THUMBPRINT_VAL = *WSO2::WSF::Cc::THUMBPRINT_VAL;
*SIGN_BEFORE = *WSO2::WSF::Cc::SIGN_BEFORE;
*ENCRYPT_BEFORE = *WSO2::WSF::Cc::ENCRYPT_BEFORE;
*RP_REQUIRE_KEY_IDENTIFIRE_REFERENCE = *WSO2::WSF::Cc::RP_REQUIRE_KEY_IDENTIFIRE_REFERENCE;
*RP_REQUIRE_ISSUER_SERIAL_REFERENCE = *WSO2::WSF::Cc::RP_REQUIRE_ISSUER_SERIAL_REFERENCE;
*RP_REQUIRE_EMBEDDED_TOKEN_REFERENCE = *WSO2::WSF::Cc::RP_REQUIRE_EMBEDDED_TOKEN_REFERENCE;
*RP_REQUIRE_THUMBPRINT_REFERENCE = *WSO2::WSF::Cc::RP_REQUIRE_THUMBPRINT_REFERENCE;
*RP_REQUIRE_DERIVED_KEYS = *WSO2::WSF::Cc::RP_REQUIRE_DERIVED_KEYS;
*WSF_RAMPART_CONFIGURATION = *WSO2::WSF::Cc::WSF_RAMPART_CONFIGURATION;
*WSF_ELEMENT_LN_SOAP12_FAULT_CODE = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP12_FAULT_CODE;
*WSF_ELEMENT_LN_SOAP12_FAULT_REASON = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP12_FAULT_REASON;
*WSF_ELEMENT_LN_SOAP12_FAULT_DETAIL = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP12_FAULT_DETAIL;
*WSF_ELEMENT_LN_SOAP12_FAULT_ROLE = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP12_FAULT_ROLE;
*WSF_ELEMENT_LN_SOAP11_FAULT_CODE = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP11_FAULT_CODE;
*WSF_ELEMENT_LN_SOAP11_FAULT_REASON = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP11_FAULT_REASON;
*WSF_ELEMENT_LN_SOAP11_FAULT_DETAIL = *WSO2::WSF::Cc::WSF_ELEMENT_LN_SOAP11_FAULT_DETAIL;

WSFC_wrap.c  view on Meta::CPAN

    SV *sv = get_sv((char*) SWIG_prefix "ISSUER_SERIAL", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("IssuerSerial"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "KEYIDENTIFIER", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("KeyIdentifier"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "EMBEDDEDTOKEN", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("EmbeddedToken"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "THUMBPRINT", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("Thumbprint"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "DIRECT", TRUE | 0x2);

WSFC_wrap.c  view on Meta::CPAN

    SV *sv = get_sv((char*) SWIG_prefix "ISSUER_SERIAL_VAL", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("MustSupportRefIssuerSerial"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "KEYIDENTIFIER_VAL", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("MustSupportRefKeyIdentifier"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "EMBEDDEDTOKEN_VAL", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("MustSupportRefEmbeddedToken"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "THUMBPRINT_VAL", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("MustSupportRefThumbprint"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "SIGN_BEFORE", TRUE | 0x2);

WSFC_wrap.c  view on Meta::CPAN

    SV *sv = get_sv((char*) SWIG_prefix "RP_REQUIRE_KEY_IDENTIFIRE_REFERENCE", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("RequireKeyIdentifireReference"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "RP_REQUIRE_ISSUER_SERIAL_REFERENCE", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("RequireIssuerSerialReference"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "RP_REQUIRE_EMBEDDED_TOKEN_REFERENCE", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("RequireEmbeddedTokenReference"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "RP_REQUIRE_THUMBPRINT_REFERENCE", TRUE | 0x2);
    sv_setsv(sv, SWIG_FromCharPtr("RequireThumbprintReference"));
    SvREADONLY_on(sv);
  } while(0) /*@SWIG@*/;
  /*@SWIG:/usr/share/swig/1.3.33/perl5/perltypemaps.swg,64,%set_constant@*/ do {
    SV *sv = get_sv((char*) SWIG_prefix "RP_REQUIRE_DERIVED_KEYS", TRUE | 0x2);

WSO2-WSF/lib/WSO2/WSF/WSPolicy.pm  view on Meta::CPAN

}

sub get_rampart_token_value {
    my $op = shift;

    if ( $op eq "IssuerSerial" ) {
	return $WSO2::WSF::C::RP_REQUIRE_ISSUER_SERIAL_REFERENCE;
    } elsif ( $op eq "KeyIdentifier" ) {
	return $WSO2::WSF::C::RP_REQUIRE_KEY_IDENTIFIRE_REFERENCE;
    } elsif ( $op eq "EmbeddedToken" ) {
	return $WSO2::WSF::C::RP_REQUIRE_EMBEDDED_TOKEN_REFERENCE;
    } elsif ( $op eq "Thumbprint" ) {
	return $WSO2::WSF::C::RP_REQUIRE_THUMBPRINT_REFERENCE;
    } else {
	return undef;
    }
}

sub create_policy_from_string {
    my $this = shift;
    my $env = shift;