blob: e3cf29d63c2f093ca5e900c3a3a5c3ca1de088e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl
#
# write out configdata.pm as json
#
use strict;
use warnings;
use JSON;
BEGIN {
my $openssldir = shift;
push @INC, $openssldir;
}
use configdata qw/%config %target %unified_info/;
my %data;
$data{'config'} = \%config;
$data{'target'} = \%target;
$data{'unified_info'} = \%unified_info;
print encode_json(\%data)
|