From e589f0e95092588af251fb41955e07a58a1985aa Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 18 Feb 2014 10:01:56 +0100
Subject: [PATCH] initial import

---
 PVE/QemuDefaults.pm | 155 ++++++++++++++++++++++++++++++++++++++++++++
 qemu-defaults.cfg   |  30 +++++++++
 test-defaults.pl    |  17 +++++
 3 files changed, 202 insertions(+)
 create mode 100644 PVE/QemuDefaults.pm
 create mode 100644 qemu-defaults.cfg
 create mode 100755 test-defaults.pl

diff --git a/PVE/QemuDefaults.pm b/PVE/QemuDefaults.pm
new file mode 100644
index 0000000..d992b88
--- /dev/null
+++ b/PVE/QemuDefaults.pm
@@ -0,0 +1,155 @@
+package PVE::QemuDefaults;
+
+use strict;
+use warnings;
+use File::chdir;
+use File::Path;
+use PVE::Tools qw(run_command);
+use PVE::JSONSchema qw(get_standard_option);
+use PVE::Cluster qw(cfs_register_file);
+use PVE::QemuServer;
+
+use Data::Dumper;
+
+use base qw(PVE::SectionConfig);
+
+#cfs_register_file('qemu-defaults.cfg',
+#		  sub { __PACKAGE__->parse_config(@_); },
+#		  sub { __PACKAGE__->write_config(@_); });
+
+# fixme: remove this, use cfs_register_file above
+sub load_defaults {
+    #my $filename = "/etc/pve/qemu-defaults.cfg";
+    my $filename = "./qemu-defaults.cfg";
+    my $raw = PVE::Tools::file_get_contents($filename);
+    return __PACKAGE__->parse_config($filename, $raw);
+}
+
+my $defaultData = {
+    propertyList => {
+	type => { 
+	    description => "Section type.",
+	    type => 'string',
+	},
+	group => { 
+	    description => "User Group.",
+	    type => 'string', format => 'pve-groupid',
+	},
+    },
+};
+
+sub private {
+    return $defaultData;
+}
+
+sub parse_section_header {
+    my ($class, $line) = @_;
+
+    if ($line =~ m/^((qm|storage):([^\s\:\@]*)(:([^\s\:\@]+))?)(\s+\@(\S+))?$/) {
+	my ($sid, $type, $pool, $subid, $group) = ($1, $2, $3, $5, $7);
+	my $errmsg = undef; # set if you want to skip whole section
+	my $config = {}; # to return additional attributes
+	$sid = "$sid\@$group" if defined($group);
+	eval {
+	    if ($type eq 'qm') {
+		if ($subid) {
+		    __PACKAGE__->check_value($type, 'ostype', $subid, $sid);
+		    $config->{ostype} = $subid;
+		}
+
+	    } elsif ($type eq 'storage') {
+		if ($subid) {
+		    PVE::JSONSchema::parse_storage_id($subid);
+		    $config->{storage} = $subid;
+		}
+	    } 
+	    if ($group) {
+		__PACKAGE__->check_value($type, 'group', $group, $sid);
+		$config->{group} = $group;
+	    }
+	};
+	$errmsg = $@ if $@;
+	$config->{pool} = $pool if $pool;
+	return ($type, $sid, $errmsg, $config);
+    }
+    return undef;
+}
+
+sub parse_config {
+    my ($class, $filename, $raw) = @_;
+
+    my $cfg = $class->SUPER::parse_config($filename, $raw);
+
+    return $cfg;
+}
+
+package PVE::QemuDefaults::qm;
+
+use PVE::JSONSchema qw(get_standard_option);
+use base qw(PVE::QemuDefaults);
+
+my $option_list = ['ostype', 'memory', 'sockets', 'cores'];
+
+sub type {
+    return 'qm';
+}
+
+sub properties {
+    my $props = {
+	pool => {
+	    description => "VM pool.",
+	    type => 'string', format => 'pve-poolid',
+	},
+    };
+
+    foreach my $k (@$option_list) {
+	$props->{$k} = get_standard_option("pve-qm-$k");
+    }
+
+    return $props;
+}
+
+sub options {
+    my $opts = {
+	group => { optional => 1 },
+ 	pool => { optional => 1 },
+    };
+
+    foreach my $k (@$option_list) {
+	$opts->{$k} = { optional => 1 };
+    }
+
+    return $opts;
+}
+
+__PACKAGE__->register();
+
+package PVE::QemuDefaults::storage;
+
+use PVE::JSONSchema qw(get_standard_option);
+use base qw(PVE::QemuDefaults);
+
+sub type {
+    return 'storage';
+}
+
+sub properties {
+    return {
+	storage => get_standard_option('pve-storage-id'),
+    };
+}
+
+sub options {
+     return {
+	group => { optional => 1 },
+	pool => { optional => 1 },
+	storage => { optional => 1 },
+   };
+}
+
+__PACKAGE__->register();
+
+
+PVE::QemuDefaults->init();
+
+1;
diff --git a/qemu-defaults.cfg b/qemu-defaults.cfg
new file mode 100644
index 0000000..d076222
--- /dev/null
+++ b/qemu-defaults.cfg
@@ -0,0 +1,30 @@
+
+# default for all VMs
+qm:
+	memory 1024
+	cores 1
+
+# default for all VMs with ostype win7
+qm::win7
+	memory 8192
+
+# default for VMs inside pool1
+qm:pool1
+	memory 2048
+	cores 2
+
+# default for all VMs with ostype win7
+qm::win7 @group1
+	memory 8192
+
+# default for all storages
+storage:
+#	iothrottle mbps=5
+
+# defaults for storage local
+storage::local
+#	iothrottle mbps=10
+
+# defaults for storage local when use for VM inside pool1
+storage:pool1:local @group2
+#	iothrottle mbps=20
diff --git a/test-defaults.pl b/test-defaults.pl
new file mode 100755
index 0000000..dbbaf7c
--- /dev/null
+++ b/test-defaults.pl
@@ -0,0 +1,17 @@
+#!/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);
-- 
2.39.2