Add a little script that converts the templates to JSON

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>
This commit is contained in:
Adam Williamson 2020-01-22 14:54:24 +01:00
parent 0a4a787c03
commit 8b28625ea2

15
tojson.pm Executable file
View File

@ -0,0 +1,15 @@
#!/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;