[Debian-l10n-commits] r1060 - in /dl10n/trunk: dl10n-html lib/Debian/L10n/Html.pm lib/Debian/L10n/Spider.pm
nekral-guest at users.alioth.debian.org
nekral-guest at users.alioth.debian.org
Fri Jun 20 19:48:15 UTC 2008
Author: nekral-guest
Date: Fri Jun 20 19:48:15 2008
New Revision: 1060
URL: http://svn.debian.org/wsvn/?sc=1&rev=1060
Log:
pt and pt_BR use the debian-l10n-portuguese mailing list.
Differentiate the language name from the mailing list name.
The support for Portuguese translations is not really supported currently
(pt and pt_BR PO files will both be reported in the status file).
Modified:
dl10n/trunk/dl10n-html
dl10n/trunk/lib/Debian/L10n/Html.pm
dl10n/trunk/lib/Debian/L10n/Spider.pm
Modified: dl10n/trunk/dl10n-html
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-html?rev=1060&op=diff
==============================================================================
--- dl10n/trunk/dl10n-html (original)
+++ dl10n/trunk/dl10n-html Fri Jun 20 19:48:15 2008
@@ -43,16 +43,17 @@
my $cmdline_file = undef;
my %Language = (
- ar => 'arabic',
- ca => 'catalan',
- de => 'german',
- en => 'english',
- es => 'spanish',
- fr => 'french',
- nl => 'dutch',
- pt => 'portuguese',
- tr => 'turkish',
- all => 'all',
+ ar => 'arabic',
+ ca => 'catalan',
+ de => 'german',
+ en => 'english',
+ es => 'spanish',
+ fr => 'french',
+ nl => 'dutch',
+# pt => 'portuguese',
+ pt_BR => 'portuguese_BRAZIL',
+ tr => 'turkish',
+ all => 'all',
);
@@ -224,6 +225,7 @@
my @files = readdir D;
closedir D;
mkpath ("html/include", 02775) or die "Cannot create include directory\n" unless (-d "html/include");
+ mkpath ("html/$Language{$lang}", 02775) or die "Cannot create $Language{$lang} directory\n" unless (-d "html/$Language{$lang}");
foreach (grep (/^$lang\./, @files)) {
next unless /\.inc$/;
Modified: dl10n/trunk/lib/Debian/L10n/Html.pm
URL: http://svn.debian.org/wsvn/dl10n/trunk/lib/Debian/L10n/Html.pm?rev=1060&op=diff
==============================================================================
--- dl10n/trunk/lib/Debian/L10n/Html.pm (original)
+++ dl10n/trunk/lib/Debian/L10n/Html.pm Fri Jun 20 19:48:15 2008
@@ -73,6 +73,19 @@
'po-man' => 'man', # nobody uses po4a so far, but it may come
);
+my %LanguageList = (
+ ar => 'arabic',
+ ca => 'catalan',
+ de => 'german',
+ en => 'english',
+ es => 'spanish',
+ fr => 'french',
+ nl => 'dutch',
+# pt => 'portuguese',
+ pt_BR => 'portuguese',
+ tr => 'turkish',
+ all => 'all',
+ );
my %Language = (
ar => 'arabic',
ca => 'catalan',
@@ -81,7 +94,8 @@
es => 'spanish',
fr => 'french',
nl => 'dutch',
- pt => 'portuguese',
+# pt => 'portuguese',
+ pt_BR => 'portuguese_BRAZIL',
tr => 'turkish',
all => 'all',
);
@@ -148,7 +162,7 @@
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
@@ -238,7 +252,7 @@
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
@@ -332,7 +346,7 @@
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
@@ -425,7 +439,7 @@
$translator = "" if $status eq "maj";
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
@@ -511,7 +525,7 @@
$translator = "" if $status eq "maj";
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
@@ -594,7 +608,7 @@
$translator = "" if $status eq "maj";
$date =~ s/\ \+0000//;
$list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
- $list = "<a href=\"http://lists.debian.org/debian-l10n-$Language{$lang}/$1/debian-l10n-$Language{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
+ $list = "<a href=\"http://lists.debian.org/debian-l10n-$LanguageList{$lang}/$1/debian-l10n-$LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
$bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
: "";
Modified: dl10n/trunk/lib/Debian/L10n/Spider.pm
URL: http://svn.debian.org/wsvn/dl10n/trunk/lib/Debian/L10n/Spider.pm?rev=1060&op=diff
==============================================================================
--- dl10n/trunk/lib/Debian/L10n/Spider.pm (original)
+++ dl10n/trunk/lib/Debian/L10n/Spider.pm Fri Jun 20 19:48:15 2008
@@ -78,17 +78,31 @@
'po-man' => 'man', # nobody uses po4a so far, but it may come
);
+my %LanguageList = (
+ ar => 'arabic',
+ ca => 'catalan',
+ cs => 'czech',
+ de => 'german',
+ en => 'english',
+ es => 'spanish',
+ fr => 'french',
+ nl => 'dutch',
+# pt => 'portuguese',
+ pt_BR => 'portuguese',
+ tr => 'turkish',
+ );
my %Language = (
- ar => 'arabic',
- ca => 'catalan',
- cs => 'czech',
- de => 'german',
- en => 'english',
- es => 'spanish',
- fr => 'french',
- nl => 'dutch',
- pt => 'portuguese',
- tr => 'turkish',
+ ar => 'arabic',
+ ca => 'catalan',
+ cs => 'czech',
+ de => 'german',
+ en => 'english',
+ es => 'spanish',
+ fr => 'french',
+ nl => 'dutch',
+# pt => 'portuguese',
+ pt_BR => 'portuguese_BRAZIL',
+ tr => 'turkish',
);
=head2 parse_subject(SUBJECT)
@@ -679,7 +693,7 @@
$message++;
while (1) {
- my $messages = get_indexpage($Language{$lang}, $year, $month, $page);
+ my $messages = get_indexpage($LanguageList{$lang}, $year, $month, $page);
# if no more page, check if we need to look at next month
unless ($messages) {
@@ -705,7 +719,7 @@
next unless $status; # unparsable mail
}
- my $html = get_message($Language{$lang}, $year, $month, $message);
+ my $html = get_message($LanguageList{$lang}, $year, $month, $message);
next unless defined $html;
my $header = get_header($html);
More information about the Debian-l10n-commits
mailing list