5 files changed, 129 insertions, 17 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 82379ab57af..f8900ad2751 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -118,9 +118,9 @@ my %text = ( title      => 'TeX Live 2008 Installation',
              selectlang => 'Language Selection',
              selectdoc  => 'Doc/Language Selection',
              createsym  => 'create symlinks in standard directories',
-             binto      => 'binaries to: ',
-             manto      => 'manpages to: ',
-             infoto     => 'info to: ',
+             binto      => 'binaries to',
+             manto      => 'manpages to',
+             infoto     => 'info to',
              onnet      => 'On Net',
              ondisk     => 'On Disk',
              selectsys  => 'Select arch-os',
@@ -148,10 +148,11 @@ my %labels = ( binsys   => 'Binary System(s)',
     );
 
 if (($::lang ne "en") && ($::lang ne "C")) {
-  eval { require("installer/install-menu-perltk-$::lang.pl"); };
-  if ($@) {
+  if (! -r "$::installerdir/tlpkg/installer/lang/perltk-$::lang") {
+  #eval { require("installer/lang/perltk-$::lang.pl"); };
+  #if ($@) {
     # couldn't find the file, continue with english
-    warn "Couldn't find language file installer/install-menu-perltk-$::lang.pl: $!\nContinuing in English!\n";
+    warn "Couldn't find language file installer/lang/perltk-$::lang.pl: $!\nContinuing in English!\n";
   } else {
     # merge the translated strings into the text string
     my $destenc = "latin1";
@@ -159,18 +160,25 @@ if (($::lang ne "en") && ($::lang ne "C")) {
     $destenc = $special_win_encodings{$::lang} 
       if defined($special_win_encodings{$::lang});
     $destenc = $::charset if defined($::charset);
-    print "lang=$::lang, charset=$destenc\n";
-    foreach my $k (keys %translatedtext) {
-      my $tmp = $translatedtext{$k};
-      # translation strings are supposed to be in utf8
-      Encode::from_to($tmp, "utf8", $destenc);
-      $text{$k} = $tmp;
+    tllog($::LOG_DEBUG, "lang/charset settings: lang=$::lang, charset=$destenc\n");
+    open(LANG,"<$::installerdir/tlpkg/installer/lang/perltk-$::lang");
+    my %trans;
+    while (<LANG>) {
+      chomp;
+      next if m/^\s*#/;
+      next if m/^\s*$/;
+      my ($a,$b) = split(/:/,$_);
+      $b =~ s/^\s*([^\s])/$1/;
+      $b =~ s/\s*$//;
+      Encode::from_to($b, "utf8", $destenc);
+      $trans{"$a"} = "$b";
     }
-    foreach my $k (keys %translatedlabels) {
-      my $tmp = $translatedlabels{$k};
-      # translation strings are supposed to be in utf8
-      Encode::from_to($tmp, "utf8", $destenc);
-      $labels{$k} = $tmp;
+    close(LANG);
+    foreach my $k (keys %text) {
+      $text{$k} = $trans{"text.$k"} if defined($trans{"text.$k"});
+    }
+    foreach my $k (keys %labels) {
+      $labels{$k} = $trans{"label.$k"} if defined($trans{"label.$k"});
     }
   }
 }
diff --git a/Master/tlpkg/installer/lang/perltk-de b/Master/tlpkg/installer/lang/perltk-de
new file mode 100644
index 00000000000..55ab9f81b47
--- /dev/null
+++ b/Master/tlpkg/installer/lang/perltk-de
@@ -0,0 +1,51 @@
+#
+# german strings for texlive installer
+#
+text.title:        TeX Live 2008 Installation
+text.custom:       Weitere Einstellungen
+text.basicinfo:    Grundlegende Informationen
+text.dirsetup:     Setup der Ordner
+text.options:      Optionen
+text.sysint:       System Integration
+text.change:       Ändern
+text.toggle:       Ändern
+text.install:      TeX Live installieren
+text.finished:     Installation beendet
+text.finbut:       Ende
+text.quit:         Abbruch
+text.ok:           Ok
+text.cancel:       Abbruch
+text.status:       Status Ausgabe
+text.changevar:    Ändern der Werte von Variablen
+text.enterpath:    Bitte geben Sie den Pfad ein für 
+text.selectscheme: Auswahl des Schema
+text.selectstdcol: Auswahl der zu installierenden Sammlungen
+text.selectall:    Alle anwählen
+text.selectnone:   Alle abwählen
+text.selectlang:   Sprachauswahl
+text.selectdoc:    Dokumentationssprachauswahl
+text.createsym:    Erstellen von symbolischen Links in Standardordnern
+text.binto:        Programme nach: 
+text.manto:        Hilfeseiten nach: 
+text.infoto:       Infoseiten nach: 
+text.onnet:        Am Netz
+text.ondisk:       Auf dem Medium
+text.selectsys:    Auswahl von arch-os
+text.clicknetbin:  Klicken für Netzwerk Programme
+text.outof:        von
+text.collof:       Sammlungen von
+text.diskreq:      benötigter Festplattenplatz
+text.yes:          Ja
+text.no:           Nein
+
+label.scheme:      Ausgewähltes Schema
+label.stdcoll:     Standardsammlungen
+label.langcoll:    Sprachsammlungen
+label.texdir:      TEXDIR (Hauptordner für TeX)
+label.localdir:    TEXMFLOCAL (lokale Styles etc)
+label.sysvardir:   TEXMFSYSVAR (lokalen Konfiguration)
+label.optletter:   Standardmäßig letter anstelle von A4
+label.optfmt:      Alle Formatdateien erstellen
+label.optdoc:      Installation der font/macro Dokumentation
+label.optsrc:      Installation der font/macro Quellen
+label.symlink:     Symbolische Links in Systemordnern
diff --git a/Master/tlpkg/installer/install-menu-perltk-de.pl b/Master/tlpkg/installer/lang/perltk-de.pl
index 6bb7110992f..6bb7110992f 100644
--- a/Master/tlpkg/installer/install-menu-perltk-de.pl
+++ b/Master/tlpkg/installer/lang/perltk-de.pl
diff --git a/Master/tlpkg/installer/lang/perltk-pl b/Master/tlpkg/installer/lang/perltk-pl
new file mode 100644
index 00000000000..ee39ca2bed7
--- /dev/null
+++ b/Master/tlpkg/installer/lang/perltk-pl
@@ -0,0 +1,53 @@
+#
+# install-menu-perltk-pl.pl
+# Jerzy B. Ludwichowski
+#
+text.title:         Instalowanie TeX Live 2008
+text.custom:        Dalsze ustawienia
+text.basicinfo:     Informacje podstawowe
+text.dirsetup:      "Wybór folderów"
+text.options:       Opcje
+text.sysint:        Integracja systemu
+text.change:        Zmień
+text.toggle:        Zmień
+text.install:       Zainstaluj TeX Live
+text.finished:      Instalowanie zakończone
+text.finbut:        Koniec
+text.quit:          Przerwij
+text.ok:            Ok
+text.cancel:        Przerwij
+text.status:        Informacja o przebiegu
+text.changevar:     Zmień wartości zmiennych
+text.enterpath:     Podaj ścieżke dla 
+text.selectscheme:  Wybór schematu
+text.selectstdcol:  Wybór kolekcji do zainstalowania
+text.selectall:     Wybierz wszystko
+text.selectnone:    Wyłącz wszystko
+text.selectlang:    Wybór języków
+text.selectdoc:     Wybór języka dokumentacji
+text.createsym:     Ustalenie linkow symbolicznych w standardowych folderach
+text.binto:         Programy według
+text.manto:         Strony pomocy według
+text.infoto:        Strony informacyjne według
+text.onnet:         W sieci
+text.ondisk:        Na nośniku
+text.selectsys:     Wybór arch-os
+text.clicknetbin:   Kliknij aby uzyskać programy sieciowe
+text.outof:         spośród
+text.collof:        Kolekcje spośród
+text.diskreq:       wymagana przestrzeń na dysku
+text.yes:           Tak
+text.no:            Nie
+
+label.binsys:       System(y) binarne
+label.scheme:       Wybrany schemat
+label.stdcoll:      Kolekcje standardowe
+label.langcoll:     Kolekcje językowe
+label.texdir:       TEXDIR (główny folder dla TeXa)
+label.localdir:     TEXMFLOCAL (style lokalne itp)
+label.sysvardir:    TEXMFSYSVAR (konfiguracje lokalne)
+label.optletter:    Domyślnie letter zamiast A4
+label.optfmt:       Wygenerować wszystkie pliki formatów
+label.optdoc:       Instalowanie dokumentacji font/macro
+label.optsrc:       Instalowanie tekstów żródłowych font/macro
+label.symlink:      Linki symboliczne w folderach systemowych
diff --git a/Master/tlpkg/installer/install-menu-perltk-pl.pl b/Master/tlpkg/installer/lang/perltk-pl.pl
index fd7cdb69615..fd7cdb69615 100644
--- a/Master/tlpkg/installer/install-menu-perltk-pl.pl
+++ b/Master/tlpkg/installer/lang/perltk-pl.pl