| … | |
… | |
| 901 | ERR_load_DSA_strings(); |
901 | ERR_load_DSA_strings(); |
| 902 | ERR_load_RSA_strings(); |
902 | ERR_load_RSA_strings(); |
| 903 | } |
903 | } |
| 904 | |
904 | |
| 905 | |
905 | |
| 906 | void |
906 | OpenSSL::X509 |
| 907 | new_X509() |
907 | new_X509() |
| 908 | PREINIT: |
908 | CODE: |
| 909 | X509 *x509; |
|
|
| 910 | PPCODE: |
|
|
| 911 | if((x509=X509_new()) == NULL) |
909 | if ((RETVAL = X509_new ()) == NULL) |
| 912 | croak("X509_new"); |
910 | croak("X509_new"); |
|
|
911 | |
| 913 | if(!X509_set_version(x509, 2)) { |
912 | if (!X509_set_version (RETVAL, 2)) |
| 914 | X509_free(x509); |
913 | { |
|
|
914 | X509_free (RETVAL); |
| 915 | croak("X509_set_version"); |
915 | croak ("X509_set_version"); |
| 916 | } |
916 | } |
|
|
917 | |
| 917 | ASN1_INTEGER_set(X509_get_serialNumber(x509),0L); |
918 | ASN1_INTEGER_set (X509_get_serialNumber (RETVAL), 0L); |
| 918 | EXTEND(sp, 1); |
919 | OUTPUT: |
| 919 | PUSHs(sv_newmortal()); |
920 | RETVAL |
| 920 | sv_setref_pv(ST(0), "OpenSSL::X509", (void *) x509); |
|
|
| 921 | |
921 | |
| 922 | |
922 | |
| 923 | void |
923 | void |
| 924 | new_from_string(thing) |
924 | new_from_string(thing) |
| 925 | SV *thing |
925 | SV *thing |
