mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-09-27 16:27:22 +00:00
8b28625ea2
For reasons! We are thinking about ways to improve the template workflow, and this is useful for doing that. Signed-off-by: Adam Williamson <awilliam@redhat.com>
16 lines
346 B
Perl
Executable File
16 lines
346 B
Perl
Executable File
#!/bin/perl
|
|
|
|
use JSON;
|
|
|
|
my $templates = do './templates';
|
|
my $updates = do './templates-updates';
|
|
|
|
my $tempjson = JSON->new->utf8(1)->pretty(1)->encode($templates);
|
|
my $updjson = JSON->new->utf8(1)->pretty(1)->encode($updates);
|
|
|
|
open(FILE, "> templates.json");
|
|
print FILE $tempjson;
|
|
|
|
open (FILE, "> templates-updates.json");
|
|
print FILE $updjson;
|