8073036dd6
- ported BN stuff to OpenSSL's different BN library - made the perl/ source tree CVS-aware - renamed the package from SSLeay to OpenSSL (the files still contain their history because I've copied them in the repository) - removed obsolete files (the test scripts will be replaced by better Test::Harness variants in the future)
75 lines
1.2 KiB
Text
75 lines
1.2 KiB
Text
|
|
#include "openssl.h"
|
|
|
|
MODULE = OpenSSL::X509 PACKAGE = OpenSSL::X509 PREFIX = p5_X509_
|
|
|
|
PROTOTYPES: ENABLE
|
|
VERSIONCHECK: DISABLE
|
|
|
|
void
|
|
p5_X509_new(void )
|
|
PREINIT:
|
|
X509 *x509;
|
|
SV *arg;
|
|
PPCODE:
|
|
pr_name("p5_X509_new");
|
|
EXTEND(sp,1);
|
|
PUSHs(sv_newmortal());
|
|
x509=X509_new();
|
|
sv_setref_pv(ST(0),"OpenSSL::X509",(void *)x509);
|
|
|
|
char *
|
|
p5_X509_get_subject_name(x509)
|
|
X509 *x509;
|
|
PREINIT:
|
|
char *p;
|
|
X509_NAME *name;
|
|
char buf[1024];
|
|
int i;
|
|
CODE:
|
|
name=X509_get_subject_name(x509);
|
|
X509_NAME_oneline(name,buf,sizeof(buf));
|
|
p= &(buf[0]);
|
|
RETVAL=p;
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
char *
|
|
p5_X509_get_issuer_name(x509)
|
|
X509 *x509;
|
|
PREINIT:
|
|
char *p;
|
|
X509_NAME *name;
|
|
char buf[1024];
|
|
int i;
|
|
CODE:
|
|
name=X509_get_issuer_name(x509);
|
|
X509_NAME_oneline(name,buf,sizeof(buf));
|
|
p= &(buf[0]);
|
|
RETVAL=p;
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
p5_X509_get_version(x509)
|
|
X509 *x509;
|
|
CODE:
|
|
RETVAL=X509_get_version(x509);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
BIGNUM *
|
|
p5_X509_get_serialNumber(x509)
|
|
X509 *x509;
|
|
CODE:
|
|
RETVAL=ASN1_INTEGER_to_BN(X509_get_serialNumber(x509),NULL);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
void
|
|
p5_X509_DESTROY(x509)
|
|
X509 *x509;
|
|
CODE:
|
|
pr_name("p5_X509_DESTROY");
|
|
X509_free(x509);
|
|
|