/[debian-l10n]/dl10n/trunk/lib/Debian/L10n/Html.pm
ViewVC logotype

Diff of /dl10n/trunk/lib/Debian/L10n/Html.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2861 by taffit, Fri Feb 3 19:52:05 2012 UTC revision 2862 by nekral-guest, Sun Feb 12 14:25:39 2012 UTC
# Line 27  build a l10n coordination page or any ot Line 27  build a l10n coordination page or any ot
27  use LWP::UserAgent;  use LWP::UserAgent;
28  use Digest::MD5 qw(md5_base64);  use Digest::MD5 qw(md5_base64);
29  use Debian::L10n::Db;  use Debian::L10n::Db;
30    use Debian::L10n::Utils;
31  use Time::Local 'timelocal';  use Time::Local 'timelocal';
32  use File::Path;  use File::Path;
33    
# Line 70  my %Type_syn = ( Line 71  my %Type_syn = (
71          'po-man'           => 'man',            # nobody uses po4a so far, but it may come          'po-man'           => 'man',            # nobody uses po4a so far, but it may come
72          );          );
73    
 my %LanguageList = (  
         ar    => 'arabic',  
         ca    => 'catalan',  
         cs    => 'czech',  
         da    => 'danish',  
         de    => 'german',  
         en    => 'english',  
         es    => 'spanish',  
         fr    => 'french',  
         gl    => 'galician',  
         id    => 'indonesian',  
         it    => 'italian',  
         nl    => 'dutch',  
 #       pt    => 'portuguese',  
         pt_BR => 'portuguese',  
         ro    => 'romanian',  
         ru    => 'russian',  
         sk    => 'slovak',  
         sv    => 'swedish',  
         tr    => 'turkish',  
         all   => 'all',  
         );  
 my %Language = (  
         ar => 'arabic',  
         ca => 'catalan',  
         cs => 'czech',  
         da => 'danish',  
         de => 'german',  
         en => 'english',  
         es => 'spanish',  
         fr => 'french',  
         gl => 'galician',  
         id => 'indonesian',  
         it => 'italian',  
         nl => 'dutch',  
 #       pt => 'portuguese',  
         pt_BR => 'brazilian',  
         ro => 'romanian',  
         ru => 'russian',  
         sk => 'slovak',  
         sv => 'swedish',  
         tr => 'turkish',  
         all => 'all',  
         );  
   
74  =head2 check_bts  =head2 check_bts
75    
76  check_bts searches in the BTS for open bugs, it fixes the bug submission date  check_bts searches in the BTS for open bugs, it fixes the bug submission date
# Line 186  EOF Line 142  EOF
142                                                  $translator = "" if $status eq "maj";                                                  $translator = "" if $status eq "maj";
143    
144                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
145                                                  $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>";                                                  $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
146    
147                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
148                                                                    : "";                                                                    : "";
# Line 278  EOF Line 234  EOF
234                                                  $date =~ s/\ \+0000//;                                                  $date =~ s/\ \+0000//;
235    
236                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
237                                                  $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>";                                                  $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
238    
239                                                  $sbug_nb = $sbug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$sbug_nb\">#$sbug_nb</a>"                                                  $sbug_nb = $sbug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$sbug_nb\">#$sbug_nb</a>"
240                                                                    : "";                                                                    : "";
# Line 375  EOF Line 331  EOF
331                                                  $date =~ s/\ \+0000//;                                                  $date =~ s/\ \+0000//;
332    
333                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
334                                                  $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>";                                                  $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
335    
336                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
337                                                                    : "";                                                                    : "";
# Line 471  EOF Line 427  EOF
427                                          $date =~ s/\ \+0000//;                                          $date =~ s/\ \+0000//;
428    
429                                          $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                          $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
430                                          $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>";                                          $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
431    
432                                          $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"                                          $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
433                                                            : "";                                                            : "";
# Line 576  EOF Line 532  EOF
532                                                  $date =~ s/\ \+0000//;                                                  $date =~ s/\ \+0000//;
533    
534                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                                  $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
535                                                  $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>";                                                  $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
536    
537                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"                                                  $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
538                                                                    : "";                                                                    : "";
# Line 662  EOF Line 618  EOF
618                                          $date =~ s/\ \+0000//;                                          $date =~ s/\ \+0000//;
619    
620                                          $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;                                          $list =~ /^(\d\d\d\d)-(\d\d)-(\d\d\d\d\d)$/;
621                                          $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>";                                          $list = "<a href=\"http://lists.debian.org/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}/$1/debian-l10n-$Debian::L10n::Utils::LanguageList{$lang}-$1$2/msg$3.html\">[$1-$2-$3]</a>";
622    
623                                          $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"                                          $bug_nb = $bug_nb ? "<a href=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$bug_nb\">#$bug_nb</a>"
624                                                            : "";                                                            : "";
# Line 711  sub html($@) { Line 667  sub html($@) {
667    
668          my @langs;          my @langs;
669          if (m/^all$/i) {          if (m/^all$/i) {
670                  @langs = keys %Language;                  @langs = keys %Debian::L10n::Utils::Language;
671          } else {          } else {
672                  @langs = ($_, @_);                  @langs = ($_, @_);
673          }          }
674    
675          while (my $lang = shift @langs) {          while (my $lang = shift @langs) {
676                  die "Html.pm: Lang '$lang' unknown. Please update \%Language.\n" unless $Language{$lang};                  die "Html.pm: Lang '$lang' unknown. Please update \%Debian::L10n::Utils::Language.\n" unless $Debian::L10n::Utils::Language{$lang};
677                  my $db = Debian::L10n::Db->new();                  my $db = Debian::L10n::Db->new();
678                  my $dbName = "$Status_file";                    # FIXME add $lang if not provided in command line FIXME                  my $dbName = "$Status_file";                    # FIXME add $lang if not provided in command line FIXME
679                     $dbName =~ s/\$lang/$lang/g;                     $dbName =~ s/\$lang/$lang/g;
Legend:
Removed from v.2861  
changed lines
  Added in v.2862
  ViewVC Help
Powered by ViewVC 1.1.5