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