550cd4b30beae07350f86933eb5fe9736ce3e7a9
[pve-docs.git] / asciidoc-pve.in
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__