… | |
… | |
53 | #define GEN_IO(type,class) \ |
53 | #define GEN_IO(type,class) \ |
54 | GEN_INPUT(type,class) \ |
54 | GEN_INPUT(type,class) \ |
55 | GEN_OUTPUT(type,class) |
55 | GEN_OUTPUT(type,class) |
56 | |
56 | |
57 | |
57 | |
58 | GEN_IO(X509,"OpenSSL::X509") |
|
|
59 | GEN_IO(X509_CRL,"OpenSSL::CRL") |
58 | GEN_IO(X509_CRL,"OpenSSL::CRL") |
60 | GEN_IO(X509_NAME, "OpenSSL::Name") |
59 | GEN_IO(X509_NAME, "OpenSSL::Name") |
61 | GEN_IO(PKCS12, "OpenSSL::PKCS12") |
60 | GEN_IO(PKCS12, "OpenSSL::PKCS12") |
62 | GEN_IO(PKCS7, "OpenSSL::PKCS7") |
61 | GEN_IO(PKCS7, "OpenSSL::PKCS7") |
63 | GEN_IO(RSA, "OpenSSL::RSA") |
62 | GEN_IO(RSA, "OpenSSL::RSA") |
… | |
… | |
902 | ERR_load_DSA_strings(); |
901 | ERR_load_DSA_strings(); |
903 | ERR_load_RSA_strings(); |
902 | ERR_load_RSA_strings(); |
904 | } |
903 | } |
905 | |
904 | |
906 | |
905 | |
907 | void |
906 | OpenSSL::X509 |
908 | new_X509() |
907 | new_X509() |
909 | PREINIT: |
908 | CODE: |
910 | X509 *x509; |
|
|
911 | PPCODE: |
|
|
912 | if((x509=X509_new()) == NULL) |
909 | if ((RETVAL = X509_new ()) == NULL) |
913 | croak("X509_new"); |
910 | croak("X509_new"); |
|
|
911 | |
914 | if(!X509_set_version(x509, 2)) { |
912 | if (!X509_set_version (RETVAL, 2)) |
915 | X509_free(x509); |
913 | { |
|
|
914 | X509_free (RETVAL); |
916 | croak("X509_set_version"); |
915 | croak ("X509_set_version"); |
917 | } |
916 | } |
|
|
917 | |
918 | ASN1_INTEGER_set(X509_get_serialNumber(x509),0L); |
918 | ASN1_INTEGER_set (X509_get_serialNumber (RETVAL), 0L); |
919 | EXTEND(sp, 1); |
919 | OUTPUT: |
920 | PUSHs(sv_newmortal()); |
920 | RETVAL |
921 | sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509); |
|
|
922 | |
921 | |
923 | |
922 | |
924 | void |
923 | void |
925 | new_from_string(thing) |
924 | new_from_string(thing) |
926 | SV *thing |
925 | SV *thing |
… | |
… | |
1092 | OUTPUT: |
1091 | OUTPUT: |
1093 | RETVAL |
1092 | RETVAL |
1094 | |
1093 | |
1095 | void |
1094 | void |
1096 | set_issuer(x509,name) |
1095 | set_issuer(x509,name) |
1097 | X509 *x509 |
1096 | OpenSSL::X509 x509 |
1098 | X509_NAME *name |
1097 | X509_NAME *name |
1099 | CODE: |
1098 | CODE: |
1100 | X509_set_issuer_name(x509, X509_NAME_dup(name)); |
1099 | X509_set_issuer_name(x509, X509_NAME_dup(name)); |
1101 | |
1100 | |
1102 | void |
1101 | void |
1103 | set_subject(x509,name) |
1102 | set_subject(x509,name) |
1104 | X509 *x509 |
1103 | OpenSSL::X509 x509 |
1105 | X509_NAME *name |
1104 | X509_NAME *name |
1106 | CODE: |
1105 | CODE: |
1107 | X509_set_subject_name(x509, X509_NAME_dup(name)); |
1106 | X509_set_subject_name(x509, X509_NAME_dup(name)); |
1108 | |
1107 | |
1109 | SV * |
1108 | SV * |