qemu-defaults/test-defaults.pl
2014-02-18 10:01:56 +01:00

18 lines
253 B
Perl
Executable File

#!/usr/bin/perl
use lib '.';
use strict;
use warnings;
use PVE::Cluster qw(cfs_read_file);
use PVE::QemuDefaults;
use Data::Dumper;
#my $cfg = cfs_read_file('qemu-defaults.cfg');
my $cfg = PVE::QemuDefaults::load_defaults();
print Dumper($cfg);