cleanup: naming consistency

This commit is contained in:
Wolfgang Bumiller 2016-03-30 12:20:07 +02:00 committed by Dietmar Maurer
parent 93c0971cec
commit ff6ffe20c9

View File

@ -92,7 +92,7 @@ mkdir $lock_dir;
my $pcisysfs = "/sys/bus/pci"; my $pcisysfs = "/sys/bus/pci";
my $cpudesc = { my $cpu_fmt = {
cputype => { cputype => {
description => "Emulated CPU type.", description => "Emulated CPU type.",
type => 'string', type => 'string',
@ -386,7 +386,7 @@ EODESCR
optional => 1, optional => 1,
description => "Emulated CPU type.", description => "Emulated CPU type.",
type => 'string', type => 'string',
format => $cpudesc, format => $cpu_fmt,
}, },
parent => get_standard_option('pve-snapshot-name', { parent => get_standard_option('pve-snapshot-name', {
optional => 1, optional => 1,
@ -749,7 +749,7 @@ my $alldrive_fmt = {
%queues_fmt, %queues_fmt,
}; };
my $usbformat = { my $usb_fmt = {
host => { host => {
default_key => 1, default_key => 1,
type => 'string', format => 'pve-qm-usb-device', type => 'string', format => 'pve-qm-usb-device',
@ -766,7 +766,7 @@ my $usbformat = {
my $usbdesc = { my $usbdesc = {
optional => 1, optional => 1,
type => 'string', format => $usbformat, type => 'string', format => $usb_fmt,
description => <<EODESCR, description => <<EODESCR,
Configure an USB device (n is 0 to 4). This can be used to Configure an USB device (n is 0 to 4). This can be used to
pass-through usb devices to the guest. HOSTUSBDEVICE syntax is: pass-through usb devices to the guest. HOSTUSBDEVICE syntax is:
@ -1673,7 +1673,7 @@ sub vmconfig_cleanup_pending {
} }
# smbios: [manufacturer=str][,product=str][,version=str][,serial=str][,uuid=uuid][,sku=str][,family=str] # smbios: [manufacturer=str][,product=str][,version=str][,serial=str][,uuid=uuid][,sku=str][,family=str]
my $smbios1_desc = { my $smbios1_fmt = {
uuid => { uuid => {
type => 'string', type => 'string',
pattern => '[a-fA-F0-9]{8}(?:-[a-fA-F0-9]{4}){3}-[a-fA-F0-9]{12}', pattern => '[a-fA-F0-9]{8}(?:-[a-fA-F0-9]{4}){3}-[a-fA-F0-9]{12}',
@ -1721,17 +1721,17 @@ my $smbios1_desc = {
sub parse_smbios1 { sub parse_smbios1 {
my ($data) = @_; my ($data) = @_;
my $res = eval { PVE::JSONSchema::parse_property_string($smbios1_desc, $data) }; my $res = eval { PVE::JSONSchema::parse_property_string($smbios1_fmt, $data) };
warn $@ if $@; warn $@ if $@;
return $res; return $res;
} }
sub print_smbios1 { sub print_smbios1 {
my ($smbios1) = @_; my ($smbios1) = @_;
return PVE::JSONSchema::print_property_string($smbios1, $smbios1_desc); return PVE::JSONSchema::print_property_string($smbios1, $smbios1_fmt);
} }
PVE::JSONSchema::register_format('pve-qm-smbios1', $smbios1_desc); PVE::JSONSchema::register_format('pve-qm-smbios1', $smbios1_fmt);
PVE::JSONSchema::register_format('pve-qm-bootdisk', \&verify_bootdisk); PVE::JSONSchema::register_format('pve-qm-bootdisk', \&verify_bootdisk);
sub verify_bootdisk { sub verify_bootdisk {
@ -3001,7 +3001,7 @@ sub config_to_command {
my $cpu = $nokvm ? "qemu64" : "kvm64"; my $cpu = $nokvm ? "qemu64" : "kvm64";
if (my $cputype = $conf->{cpu}) { if (my $cputype = $conf->{cpu}) {
my $cpuconf = PVE::JSONSchema::parse_property_string($cpudesc, $cputype) my $cpuconf = PVE::JSONSchema::parse_property_string($cpu_fmt, $cputype)
or die "Cannot parse cpu description: $cputype\n"; or die "Cannot parse cpu description: $cputype\n";
$cpu = $cpuconf->{cputype}; $cpu = $cpuconf->{cputype};
$kvm_off = 1 if $cpuconf->{hidden}; $kvm_off = 1 if $cpuconf->{hidden};