diff options
author | Josip Rodin <joy> | 2001-09-04 18:08:29 +0000 |
---|---|---|
committer | Josip Rodin <joy> | 2001-09-04 18:08:29 +0000 |
commit | 5382a2329c25b18bcdc1ee5394d0336ac05be78b (patch) | |
tree | eb77c1deec1c00c23225679533bcd61927d76ea6 | |
parent | cfcf45b1098fdc6eebdc8491dd70990114b81772 (diff) |
use Perl/Webwml/Langs for the languages list, if i get this right
CVS version numbers
make_all.pl: 1.1 -> 1.2
-rwxr-xr-x | make_all.pl | 37 |
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"; |