16 lines
346 B
Perl
16 lines
346 B
Perl
|
#!/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;
|