new helper kvmkeymaplist()

Makefile

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

data/PVE/Tools.pm

@@ -513,8 +513,7 @@ sub debmirrors {
     };
 }
 
-sub kvmkeymaps {
-    return {
+my $keymaphash =  {
     'dk'     => ['Danish', 'da', 'qwerty/dk-latin1.kmap.gz', 'dk', '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' ], 
@@ -548,6 +547,18 @@ sub kvmkeymaps {
     #'th'     => [],
     #'tr'     => [],
 };
+
+my $kvmkeymaparray = [];
+foreach my $lc (keys %$keymaphash) {
+    push @$kvmkeymaparray, $keymaphash->{$lc}->[1];
+}
+
+sub kvmkeymaps {
+    return $keymaphash;
+}
+
+sub kvmkeymaplist {
+    return $kvmkeymaparray;
 }
 
 sub extract_param {

debian/changelog

@@ -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
 
   * new helper run_with_timeout()