add helper to correctly resolve links
[pve-docs.git] / asciidoc-pve.in
CommitLineData
aa99b349
DM
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use JSON;
6
7my $data_str = "";
8while (<main::DATA>) { $data_str .= $_; }
9
10my $fileinfo = decode_json($data_str);
11
12print to_json($fileinfo, { pretty => 1 });
13
14die "implement something useful instead";
15
16__END__