08c7c937dc
To avoid breaking the control flow and align to majority of code
already using `return`.
`exit()` has the side-effect of suppressing leak detection in cases.
Fix fallouts detected after switching to `return`.
- configure:
- fix `getaddrinfo` run test to call `freeaddrinfo()` to pacify ASAN,
and call `WSACleanup()` to deinit winsock2.
- fix `getifaddrs` run test to call `freeifaddrs()` to pacify ASAN.
- tests/server:
- setup `atexit(win32_cleanup)` via `win32_init()`.
- return 2 instead of 1 on winsock2 init failures.
- sws: goto cleanup instead of `exit()` in `http_connect()`.
Follow-up to 02dfe71937 #7235
- tests/client/http:
- cleanup memory to pacify ASAN in `h2-upgrade-extreme`,
`tls-session-reuse`.
- examples:
- block_ip: fix memory leak reported by CI.
- http2-upload: avoid handle leaks.
Untouched `exit()` calls, made from callbacks:
- docs/examples: ephiperfifo.c, ghiper.c, hiperfifo.c
- tests/libtest: lib582.c, lib655.c, lib670.c
- tests/server: tftpd.c
Closes #16507
100 lines
2.7 KiB
C
100 lines
2.7 KiB
C
/* File: report_openssl_version.c
|
|
*
|
|
* This file dynamically loads the OpenSSL shared image to report the
|
|
* version string.
|
|
*
|
|
* It will optionally place that version string in a DCL symbol.
|
|
*
|
|
* Usage: report_openssl_version <shared_image> [<dcl_symbol>]
|
|
*
|
|
* Copyright (C) John Malmberg
|
|
*
|
|
* Permission to use, copy, modify, and/or distribute this software for any
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
* copyright notice and this permission notice appear in all copies.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
* OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
*
|
|
* SPDX-License-Identifier: ISC
|
|
*
|
|
*/
|
|
|
|
#include <dlfcn.h>
|
|
#include <openssl/opensslv.h>
|
|
#include <openssl/crypto.h>
|
|
|
|
#include <string.h>
|
|
#include <descrip.h>
|
|
#include <libclidef.h>
|
|
#include <stsdef.h>
|
|
#include <errno.h>
|
|
|
|
unsigned long LIB$SET_SYMBOL(
|
|
const struct dsc$descriptor_s * symbol,
|
|
const struct dsc$descriptor_s * value,
|
|
const unsigned long *table_type);
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
void *libptr;
|
|
const char * (*ssl_version)(int t);
|
|
const char *version;
|
|
|
|
if(argc < 1) {
|
|
puts("report_openssl_version filename");
|
|
return 1;
|
|
}
|
|
|
|
libptr = dlopen(argv[1], 0);
|
|
|
|
ssl_version = (const char * (*)(int))dlsym(libptr, "SSLeay_version");
|
|
if(!ssl_version) {
|
|
ssl_version = (const char * (*)(int))dlsym(libptr, "ssleay_version");
|
|
if(!ssl_version) {
|
|
ssl_version = (const char * (*)(int))dlsym(libptr, "SSLEAY_VERSION");
|
|
}
|
|
}
|
|
|
|
dlclose(libptr);
|
|
|
|
if(!ssl_version) {
|
|
puts("Unable to lookup version of OpenSSL");
|
|
return 1;
|
|
}
|
|
|
|
version = ssl_version(SSLEAY_VERSION);
|
|
|
|
puts(version);
|
|
|
|
/* Was a symbol argument given? */
|
|
if(argc > 1) {
|
|
int status;
|
|
struct dsc$descriptor_s symbol_dsc;
|
|
struct dsc$descriptor_s value_dsc;
|
|
const unsigned long table_type = LIB$K_CLI_LOCAL_SYM;
|
|
|
|
symbol_dsc.dsc$a_pointer = argv[2];
|
|
symbol_dsc.dsc$w_length = strlen(argv[2]);
|
|
symbol_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
|
|
symbol_dsc.dsc$b_class = DSC$K_CLASS_S;
|
|
|
|
value_dsc.dsc$a_pointer = (char *)version; /* Cast ok */
|
|
value_dsc.dsc$w_length = strlen(version);
|
|
value_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
|
|
value_dsc.dsc$b_class = DSC$K_CLASS_S;
|
|
|
|
status = LIB$SET_SYMBOL(&symbol_dsc, &value_dsc, &table_type);
|
|
if(!$VMS_STATUS_SUCCESS(status)) {
|
|
return status;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|