use Perl/Webwml/Langs for the languages list, if i get this right

CVS version numbers

make_all.pl: 1.1 -> 1.2

1 files changed, 9 insertions, 28 deletions

diff --git a/make_all.pl b/make_all.pl
index a9c2a064242..4cdac94525d 100755
--- a/make_all.pl
+++ b/make_all.pl
@@ -10,35 +10,16 @@
 require 5.001;
 use strict;
 
-my (@languages, @parts, $file, $filename, $lang, $path, $pid);
+# This module resides under webwml/Perl
+use lib ($0 =~ m|(.*)/|, $1 or ".") ."/Perl";
+use Webwml::Langs;
+
+my $l = Webwml::Langs->new();
+my %langs = $l->name_iso();
 
-# from english/template/debian/languages.wml
-# TODO: Needs to be synced frequently or fixed so it's automatic
-my %langs = ( english    => "en",
-#             arabic     => "ar",
-              catalan    => "ca",
-              danish     => "da",
-              german     => "de",
-              greek      => "el",
-              esperanto  => "eo",
-              spanish    => "es",
-              finnish    => "fi",
-              french     => "fr",
-              croatian   => "hr",
-              hungarian  => "hu",
-              italian    => "it",
-              japanese   => "ja",
-              korean     => "ko",
-              dutch      => "nl",
-              norwegian  => "no",
-              polish     => "pl",
-              portuguese => "pt",
-              romanian   => "ro",
-              russian    => "ru",
-              swedish    => "sv",
-              turkish    => "tr",
-              chinese    => "zh",
-);
+#print "$_ $langs{$_}\n" foreach (keys %langs); exit;
+
+my (@languages, @parts, $file, $filename, $lang, $path, $pid);
 
 if (!@ARGV) {
   open SELF, "<$0" or die "Unable to display help: $!\n";