CloverBootloader/Library/OpensslLib/perl2json.pl

20 lines
367 B
Perl
Raw Normal View History

#!/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)