1 files changed, 75 insertions, 0 deletions

diff --git a/src/lib/libssl/src/perl/openssl_x509.xs b/src/lib/libssl/src/perl/openssl_x509.xs
new file mode 100644
index 0000000000..008d959c64
--- /dev/null
+++ b/src/lib/libssl/src/perl/openssl_x509.xs
@@ -0,0 +1,75 @@
+
+#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);
+