cleanup: add configs directory and move respective files

[pve-manager.git] / country.pl

diff --git a/country.pl b/country.pl
deleted file mode 100755 (executable)
index 119a5c7..0000000
--- a/country.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use PVE::Tools;
-
-# see also: http://en.wikipedia.org/wiki/Keyboard_layout
-#
-# country codes from: /usr/share/zoneinfo/iso3166.tab
-# timezones from: /usr/share/zoneinfo/zone.tab
-# keymaps: find /usr/share/keymaps/i386/ -type f -name '*.kmap.gz'
-# x11 layouts: /usr/share/X11/xkb/rules/xorg.lst
-
-my $country = {};
-
-my $line;
-open (TMP, "</usr/share/zoneinfo/iso3166.tab");
-while (defined ($line = <TMP>)) {
-    if ($line =~ m/^([A-Z][A-Z])\s+(.*\S)\s*$/) {
-       $country->{lc($1)} = $2;
-    }
-}
-close (TMP);
-
-# we need mappings for X11, console, and kvm vnc
-
-# LC(-LC)? => [DESC, kvm, console, X11, X11variant]
-my $keymaps = PVE::Tools::kvmkeymaps();
-
-foreach my $km (sort keys %$keymaps) {
-    my ($desc, $kvm, $console, $x11, $x11var) = @{$keymaps->{$km}};
-
-    if ($km =~m/^([a-z][a-z])-([a-z][a-z])$/i) {
-       defined ($country->{$2}) || die "undefined country code '$2'";
-    } else {
-       defined ($country->{$km}) || die "undefined country code '$km'";
-    }
-
-    $x11var = '' if !defined ($x11var);
-    print "map:$km:$desc:$kvm:$console:$x11:$x11var:\n";
-}
-
-my $defmap = {
-   'us' => 'en-us',
-   'be' => 'fr-be',
-   'br' => 'pt-br',
-   'ca' => 'en-us',
-   'dk' => 'dk',
-   'nl' => 'en-us', # most Dutch people us US layout
-   'fi' => 'fi',
-   'fr' => 'fr',
-   'de' => 'de',
-   'at' => 'de',
-   'hu' => 'hu',
-   'is' => 'is',
-   'it' => 'it',
-   'va' => 'it',
-   'jp' => 'jp',
-   'lt' => 'lt',
-   'mk' => 'mk',
-   'no' => 'no',
-   'pl' => 'pl',
-   'pt' => 'pt',
-   'si' => 'si',
-   'es' => 'es',
-   'gi' => 'es',
-   'ch' => 'de-ch',
-   'gb' => 'en-gb',
-   'lu' => 'fr-ch',
-   'li' => 'de-ch',
-};
-
-
-my $mirrors = PVE::Tools::debmirrors();
-foreach my $cc (keys %$mirrors) {
-    die "undefined country code '$cc'" if !defined ($country->{$cc});
-}
-
-foreach my $cc (sort keys %$country) {
-    my $map = $defmap->{$cc} || '';
-    my $mir = $mirrors->{$cc} || '';
-    print "$cc:$country->{$cc}:$map:$mir:\n";
-}