DEPEND[libtestutil.a]=../libcrypto
PROGRAMS{noinst}=\
+ confdump \
versions \
aborttest test_test \
sanitytest rsa_complex exdatatest bntest \
context_internal_test aesgcmtest params_test evp_pkey_dparams_test \
keymgmt_internal_test
+ SOURCE[confdump]=confdump.c
+ INCLUDE[confdump]=../include ../apps/include
+ DEPEND[confdump]=../libcrypto
+
SOURCE[versions]=versions.c
INCLUDE[versions]=../include ../apps/include
DEPEND[versions]=../libcrypto
--- /dev/null
+/*
+ * Copyright 1999-2019 The OpenSSL Project Authors. All Rights Reserved.
+ *
+ * Licensed under the Apache License 2.0 (the "License"). You may not use
+ * this file except in compliance with the License. You can obtain a copy
+ * in the file LICENSE in the source distribution or at
+ * https://www.openssl.org/source/license.html
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <openssl/bio.h>
+#include <openssl/conf.h>
+#include <openssl/safestack.h>
+#include <openssl/err.h>
+
+static STACK_OF(OPENSSL_CSTRING) *section_names = NULL;
+
+static void collect_section_name(CONF_VALUE *v)
+{
+ /* A section is a CONF_VALUE with name == NULL */
+ if (v->name == NULL)
+ sk_OPENSSL_CSTRING_push(section_names, v->section);
+}
+
+static int section_name_cmp(OPENSSL_CSTRING const *a, OPENSSL_CSTRING const *b)
+{
+ return strcmp(*a, *b);
+}
+
+static void collect_all_sections(const CONF *cnf)
+{
+ section_names = sk_OPENSSL_CSTRING_new(section_name_cmp);
+ lh_CONF_VALUE_doall(cnf->data, collect_section_name);
+ sk_OPENSSL_CSTRING_sort(section_names);
+}
+
+static void dump_section(const char *name, const CONF *cnf)
+{
+ STACK_OF(CONF_VALUE) *sect = NCONF_get_section(cnf, name);
+ int i;
+
+ printf("[ %s ]\n", name);
+ for (i = 0; i < sk_CONF_VALUE_num(sect); i++) {
+ CONF_VALUE *cv = sk_CONF_VALUE_value(sect, i);
+
+ printf("%s = %s\n", cv->name, cv->value);
+ }
+}
+
+int main(int argc, char **argv)
+{
+ long eline;
+ CONF *conf;
+
+ if ((conf = NCONF_new(NCONF_default())) != NULL
+ && NCONF_load(conf, argv[1], &eline)) {
+ int i;
+
+ collect_all_sections(conf);
+ for (i = 0; i < sk_OPENSSL_CSTRING_num(section_names); i++) {
+ dump_section(sk_OPENSSL_CSTRING_value(section_names, i), conf);
+ }
+ sk_OPENSSL_CSTRING_free(section_names);
+ } else {
+ ERR_print_errors_fp(stderr);
+ return 1;
+ }
+ return 0;
+}
--- /dev/null
+#! /usr/bin/env perl
+# Copyright 2017-2018 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the Apache License 2.0 (the "License"). You may not use
+# this file except in compliance with the License. You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
+use strict;
+use warnings;
+
+use OpenSSL::Test qw(:DEFAULT data_file);
+use File::Compare qw(compare_text);
+
+setup('test_conf');
+
+my %input_result = (
+ 'dollarid_on.conf' => 'dollarid_on.txt',
+ 'dollarid_off.conf' => 'dollarid_off.txt',
+);
+
+plan tests => 2 * scalar(keys %input_result);
+
+foreach (sort keys %input_result) {
+ SKIP: {
+ my $input_path = data_file($_);
+ my $expected_path = data_file($input_result{$_});
+ my $result_path = "test_conf-$_-stdout";
+
+ skip "Problem dumping $_", 1
+ unless ok(run(test([ 'confdump', $input_path ],
+ stdout => $result_path)),
+ "dumping $_");
+ is(compare_text($result_path, $expected_path), 0,
+ "comparing the dump of $_ with $input_result{$_}");
+ }
+}