… | |
… | |
62 | GEN_IO(PKCS7, "OpenSSL::PKCS7") |
62 | GEN_IO(PKCS7, "OpenSSL::PKCS7") |
63 | GEN_IO(RSA, "OpenSSL::RSA") |
63 | GEN_IO(RSA, "OpenSSL::RSA") |
64 | GEN_IO(EVP_MD_CTX, "OpenSSL::Digest") |
64 | GEN_IO(EVP_MD_CTX, "OpenSSL::Digest") |
65 | GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher") |
65 | GEN_IO(EVP_CIPHER_CTX, "OpenSSL::Cipher") |
66 | |
66 | |
|
|
67 | typedef X509 *OpenSSL__X509; |
67 | |
68 | |
68 | static inline SV* output_ASN1_INTEGER(ASN1_INTEGER *ai, SV *sv) |
69 | static inline SV* output_ASN1_INTEGER(ASN1_INTEGER *ai, SV *sv) |
69 | { |
70 | { |
70 | if(!ai) |
71 | if(!ai) |
71 | croak("got 0-ptr"); |
72 | croak("got 0-ptr"); |
… | |
… | |
949 | PUSHs(sv_newmortal()); |
950 | PUSHs(sv_newmortal()); |
950 | sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509); |
951 | sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509); |
951 | |
952 | |
952 | void |
953 | void |
953 | DESTROY(x509) |
954 | DESTROY(x509) |
954 | X509 *x509 |
955 | OpenSSL::X509 x509 |
955 | CODE: |
956 | CODE: |
956 | if (x509) { |
957 | if (x509) { |
957 | XD("X509_free(%p)\n", x509); |
958 | XD("X509_free(%p)\n", x509); |
958 | X509_free(x509); |
959 | X509_free(x509); |
959 | x509 = 0; |
960 | x509 = 0; |
960 | } |
961 | } |
961 | |
962 | |
962 | |
963 | |
963 | char * |
964 | char * |
964 | fingerprint_md5(x509) |
965 | fingerprint_md5(x509) |
965 | X509 *x509 |
966 | OpenSSL::X509 x509 |
966 | ALIAS: |
967 | ALIAS: |
967 | fingerprint_md2 = 1 |
968 | fingerprint_md2 = 1 |
968 | fingerprint_mdc2 = 2 |
969 | fingerprint_mdc2 = 2 |
969 | fingerprint_sha1 = 3 |
970 | fingerprint_sha1 = 3 |
970 | PREINIT: |
971 | PREINIT: |
… | |
… | |
975 | RETVAL |
976 | RETVAL |
976 | |
977 | |
977 | |
978 | |
978 | X509_NAME * |
979 | X509_NAME * |
979 | subject(x509) |
980 | subject(x509) |
980 | X509 *x509 |
981 | OpenSSL::X509 x509 |
981 | CODE: |
982 | CODE: |
982 | RETVAL = X509_get_subject_name(x509); |
983 | RETVAL = X509_get_subject_name(x509); |
983 | OUTPUT: |
984 | OUTPUT: |
984 | RETVAL |
985 | RETVAL |
985 | |
986 | |
986 | X509_NAME * |
987 | X509_NAME * |
987 | issuer(x509) |
988 | issuer(x509) |
988 | X509 *x509 |
989 | OpenSSL::X509 x509 |
989 | CODE: |
990 | CODE: |
990 | RETVAL = X509_get_issuer_name(x509); |
991 | RETVAL = X509_get_issuer_name(x509); |
991 | OUTPUT: |
992 | OUTPUT: |
992 | RETVAL |
993 | RETVAL |
993 | |
994 | |
994 | |
995 | |
995 | char * |
996 | char * |
996 | subject_txt(x509) |
997 | subject_txt(x509) |
997 | X509 *x509 |
998 | OpenSSL::X509 x509 |
998 | CODE: |
999 | CODE: |
999 | RETVAL = ol(X509_get_subject_name(x509)); |
1000 | RETVAL = ol(X509_get_subject_name(x509)); |
1000 | OUTPUT: |
1001 | OUTPUT: |
1001 | RETVAL |
1002 | RETVAL |
1002 | |
1003 | |
1003 | |
1004 | |
1004 | char * |
1005 | char * |
1005 | issuer_txt(x509) |
1006 | issuer_txt(x509) |
1006 | X509 *x509 |
1007 | OpenSSL::X509 x509 |
1007 | CODE: |
1008 | CODE: |
1008 | RETVAL = ol(X509_get_issuer_name(x509)); |
1009 | RETVAL = ol(X509_get_issuer_name(x509)); |
1009 | OUTPUT: |
1010 | OUTPUT: |
1010 | RETVAL |
1011 | RETVAL |
1011 | |
1012 | |
1012 | ASN1_INTEGER * |
1013 | ASN1_INTEGER * |
1013 | serial(x509) |
1014 | serial(x509) |
1014 | X509 *x509 |
1015 | OpenSSL::X509 x509 |
1015 | CODE: |
1016 | CODE: |
1016 | RETVAL = X509_get_serialNumber(x509); |
1017 | RETVAL = X509_get_serialNumber(x509); |
1017 | OUTPUT: |
1018 | OUTPUT: |
1018 | RETVAL |
1019 | RETVAL |
1019 | |
1020 | |
1020 | |
1021 | |
1021 | int |
1022 | int |
1022 | version(x509) |
1023 | version(x509) |
1023 | X509 *x509 |
1024 | OpenSSL::X509 x509 |
1024 | CODE: |
1025 | CODE: |
1025 | RETVAL = X509_get_version(x509); |
1026 | RETVAL = X509_get_version(x509); |
1026 | OUTPUT: |
1027 | OUTPUT: |
1027 | RETVAL |
1028 | RETVAL |
1028 | |
1029 | |
1029 | ASN1_UTCTIME * |
1030 | ASN1_UTCTIME * |
1030 | notBefore(x509) |
1031 | notBefore(x509) |
1031 | X509 *x509 |
1032 | OpenSSL::X509 x509 |
1032 | CODE: |
1033 | CODE: |
1033 | RETVAL = X509_get_notBefore(x509); |
1034 | RETVAL = X509_get_notBefore(x509); |
1034 | OUTPUT: |
1035 | OUTPUT: |
1035 | RETVAL |
1036 | RETVAL |
1036 | |
1037 | |
1037 | ASN1_UTCTIME * |
1038 | ASN1_UTCTIME * |
1038 | notAfter(x509) |
1039 | notAfter(x509) |
1039 | X509 *x509 |
1040 | OpenSSL::X509 x509 |
1040 | CODE: |
1041 | CODE: |
1041 | RETVAL = X509_get_notAfter(x509); |
1042 | RETVAL = X509_get_notAfter(x509); |
1042 | OUTPUT: |
1043 | OUTPUT: |
1043 | RETVAL |
1044 | RETVAL |
1044 | |
1045 | |
1045 | int |
1046 | int |
1046 | cert_type(x509) |
1047 | cert_type(x509) |
1047 | X509 *x509 |
1048 | OpenSSL::X509 x509 |
1048 | CODE: |
1049 | CODE: |
1049 | RETVAL = X509_certificate_type(x509, 0); |
1050 | RETVAL = X509_certificate_type(x509, 0); |
1050 | OUTPUT: |
1051 | OUTPUT: |
1051 | RETVAL |
1052 | RETVAL |
1052 | |
1053 | |
1053 | SV* |
1054 | SV* |
1054 | as_string(x509,...) |
1055 | as_string(x509,...) |
1055 | X509 *x509 |
1056 | OpenSSL::X509 x509 |
1056 | ALIAS: |
1057 | ALIAS: |
1057 | as_file = 1 |
1058 | as_file = 1 |
1058 | PROTOTYPE: $;$ |
1059 | PROTOTYPE: $;$ |
1059 | PREINIT: |
1060 | PREINIT: |
1060 | BIO *bio; |
1061 | BIO *bio; |
… | |
… | |
1076 | OUTPUT: |
1077 | OUTPUT: |
1077 | RETVAL |
1078 | RETVAL |
1078 | |
1079 | |
1079 | SV* |
1080 | SV* |
1080 | info(x509) |
1081 | info(x509) |
1081 | X509 *x509 |
1082 | OpenSSL::X509 x509 |
1082 | PREINIT: |
1083 | PREINIT: |
1083 | BIO *bio; |
1084 | BIO *bio; |
1084 | CODE: |
1085 | CODE: |
1085 | bio = sv_bio_create(); |
1086 | bio = sv_bio_create(); |
1086 | if(!X509_print(bio,x509)) { |
1087 | if(!X509_print(bio,x509)) { |
… | |
… | |
1105 | CODE: |
1106 | CODE: |
1106 | X509_set_subject_name(x509, X509_NAME_dup(name)); |
1107 | X509_set_subject_name(x509, X509_NAME_dup(name)); |
1107 | |
1108 | |
1108 | SV * |
1109 | SV * |
1109 | errstring(x509) |
1110 | errstring(x509) |
1110 | X509 *x509 |
1111 | OpenSSL::X509 x509 |
1111 | PREINIT: |
1112 | PREINIT: |
1112 | BIO *bio; |
1113 | BIO *bio; |
1113 | CODE: |
1114 | CODE: |
1114 | bio = sv_bio_create(); |
1115 | bio = sv_bio_create(); |
1115 | ERR_print_errors(bio); |
1116 | ERR_print_errors(bio); |