20 lines
367 B
Perl
Executable File
20 lines
367 B
Perl
Executable File
#!/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)
|