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