new helper kvmkeymaplist()

This commit is contained in:
Dietmar Maurer 2012-01-09 11:44:52 +01:00
parent 0f0990f14c
commit 910d57b0b0
3 changed files with 52 additions and 35 deletions

View File

@ -1,7 +1,7 @@
RELEASE=2.0 RELEASE=2.0
VERSION=1.0 VERSION=1.0
PKGREL=11 PKGREL=12
PACKAGE=libpve-common-perl PACKAGE=libpve-common-perl

View File

@ -513,8 +513,7 @@ sub debmirrors {
}; };
} }
sub kvmkeymaps { my $keymaphash = {
return {
'dk' => ['Danish', 'da', 'qwerty/dk-latin1.kmap.gz', 'dk', 'nodeadkeys'], 'dk' => ['Danish', 'da', 'qwerty/dk-latin1.kmap.gz', 'dk', 'nodeadkeys'],
'de' => ['German', 'de', 'qwertz/de-latin1-nodeadkeys.kmap.gz', 'de', 'nodeadkeys' ], 'de' => ['German', 'de', 'qwertz/de-latin1-nodeadkeys.kmap.gz', 'de', 'nodeadkeys' ],
'de-ch' => ['Swiss-German', 'de-ch', 'qwertz/sg-latin1.kmap.gz', 'ch', 'de_nodeadkeys' ], 'de-ch' => ['Swiss-German', 'de-ch', 'qwertz/sg-latin1.kmap.gz', 'ch', 'de_nodeadkeys' ],
@ -547,7 +546,19 @@ sub kvmkeymaps {
#'sv' => [], Swedish ? #'sv' => [], Swedish ?
#'th' => [], #'th' => [],
#'tr' => [], #'tr' => [],
}; };
my $kvmkeymaparray = [];
foreach my $lc (keys %$keymaphash) {
push @$kvmkeymaparray, $keymaphash->{$lc}->[1];
}
sub kvmkeymaps {
return $keymaphash;
}
sub kvmkeymaplist {
return $kvmkeymaparray;
} }
sub extract_param { sub extract_param {

6
debian/changelog vendored
View File

@ -1,3 +1,9 @@
libpve-common-perl (1.0-12) unstable; urgency=low
* new helper kvmkeymaplist()
-- Proxmox Support Team <support@proxmox.com> Mon, 09 Jan 2012 11:44:11 +0100
libpve-common-perl (1.0-11) unstable; urgency=low libpve-common-perl (1.0-11) unstable; urgency=low
* new helper run_with_timeout() * new helper run_with_timeout()