Return to report_openssl_version.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / packages / vms

Annotation of embedaddon/curl/packages/vms/report_openssl_version.c, revision 1.1

1.1     ! misho       1: /* File: report_openssl_version.c
        !             2:  *
        !             3:  * $Id$
        !             4:  *
        !             5:  * This file dynamically loads the openssl shared image to report the
        !             6:  * version string.
        !             7:  *
        !             8:  * It will optionally place that version string in a DCL symbol.
        !             9:  *
        !            10:  * Usage:  report_openssl_version <shared_image> [<dcl_symbol>]
        !            11:  *
        !            12:  * Copyright 2013, John Malmberg
        !            13:  *
        !            14:  * Permission to use, copy, modify, and/or distribute this software for any
        !            15:  * purpose with or without fee is hereby granted, provided that the above
        !            16:  * copyright notice and this permission notice appear in all copies.
        !            17:  *
        !            18:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
        !            19:  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
        !            20:  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
        !            21:  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
        !            22:  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
        !            23:  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
        !            24:  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        !            25:  *
        !            26:  */
        !            27: 
        !            28: #include <dlfcn.h>
        !            29: #include <openssl/opensslv.h>
        !            30: #include <openssl/crypto.h>
        !            31: 
        !            32: #include <string.h>
        !            33: #include <descrip.h>
        !            34: #include <libclidef.h>
        !            35: #include <stsdef.h>
        !            36: #include <errno.h>
        !            37: 
        !            38: unsigned long LIB$SET_SYMBOL(
        !            39:     const struct dsc$descriptor_s * symbol,
        !            40:     const struct dsc$descriptor_s * value,
        !            41:     const unsigned long * table_type);
        !            42: 
        !            43: int main(int argc, char ** argv) {
        !            44: 
        !            45: 
        !            46: void * libptr;
        !            47: const char * (*ssl_version)(int t);
        !            48: const char * version;
        !            49: 
        !            50:    if (argc < 1) {
        !            51:        puts("report_openssl_version filename");
        !            52:        exit(1);
        !            53:    }
        !            54: 
        !            55:    libptr = dlopen(argv[1], 0);
        !            56: 
        !            57:    ssl_version = (const char * (*)(int))dlsym(libptr, "SSLeay_version");
        !            58:    if ((void *)ssl_version == NULL) {
        !            59:       ssl_version = (const char * (*)(int))dlsym(libptr, "ssleay_version");
        !            60:       if ((void *)ssl_version == NULL) {
        !            61:          ssl_version = (const char * (*)(int))dlsym(libptr, "SSLEAY_VERSION");
        !            62:       }
        !            63:    }
        !            64: 
        !            65:    dlclose(libptr);
        !            66: 
        !            67:    if ((void *)ssl_version == NULL) {
        !            68:       puts("Unable to lookup version of OpenSSL");
        !            69:       exit(1);
        !            70:    }
        !            71: 
        !            72:    version = ssl_version(SSLEAY_VERSION);
        !            73: 
        !            74:    puts(version);
        !            75: 
        !            76:    /* Was a symbol argument given? */
        !            77:    if (argc > 1) {
        !            78:       int status;
        !            79:       struct dsc$descriptor_s symbol_dsc;
        !            80:       struct dsc$descriptor_s value_dsc;
        !            81:       const unsigned long table_type = LIB$K_CLI_LOCAL_SYM;
        !            82: 
        !            83:       symbol_dsc.dsc$a_pointer = argv[2];
        !            84:       symbol_dsc.dsc$w_length = strlen(argv[2]);
        !            85:       symbol_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
        !            86:       symbol_dsc.dsc$b_class = DSC$K_CLASS_S;
        !            87: 
        !            88:       value_dsc.dsc$a_pointer = (char *)version; /* Cast ok */
        !            89:       value_dsc.dsc$w_length = strlen(version);
        !            90:       value_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
        !            91:       value_dsc.dsc$b_class = DSC$K_CLASS_S;
        !            92: 
        !            93:       status = LIB$SET_SYMBOL(&symbol_dsc, &value_dsc, &table_type);
        !            94:       if (!$VMS_STATUS_SUCCESS(status)) {
        !            95:          exit(status);
        !            96:       }
        !            97:    }
        !            98: 
        !            99:    exit(0);
        !           100: }