summaryrefslogtreecommitdiffstats
path: root/perl/x509.xs
diff options
context:
space:
mode:
Diffstat (limited to 'perl/x509.xs')
-rw-r--r--perl/x509.xs74
1 files changed, 0 insertions, 74 deletions
diff --git a/perl/x509.xs b/perl/x509.xs
deleted file mode 100644
index 67633ad225..0000000000
--- a/perl/x509.xs
+++ /dev/null
@@ -1,74 +0,0 @@
-#include "p5SSLeay.h"
-
-MODULE = SSLeay::X509 PACKAGE = SSLeay::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),"SSLeay::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);
-