[pve-docs.git] / asciidoc-pve.in

#!/usr/bin/perl

use strict;
use warnings;
use JSON;

my $data_str = "";
while (<main::DATA>) { $data_str .= $_; }

my $fileinfo = decode_json($data_str);
    
print to_json($fileinfo, { pretty => 1 });

die "implement something useful instead";

__END__
Commit	Line	Data
aa99b349 DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use JSON;
	6
	7	my $data_str = "";
	8	while (<main::DATA>) { $data_str .= $_; }
	9
	10	my $fileinfo = decode_json($data_str);
	11
	12	print to_json($fileinfo, { pretty => 1 });
	13
	14	die "implement something useful instead";
	15
	16	__END__