Summary
Activity
SCM

SCM Repository

[webwml] Diff of /webwml/stattrans.pl
[webwml] / webwml / stattrans.pl  
ViewVC logotype

Diff of /webwml/stattrans.pl

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

revision 1.24, Mon Sep 3 23:48:35 2001 UTC revision 1.25, Fri Sep 7 21:46:20 2001 UTC
# Line 85  Line 85 
85  $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;  $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;
86    
87  my %original;  my %original;
88    my %transversion;
89    my %version;
90    
91  # Count wml files in given directory  # Count wml files in given directory
92  #  #
# Line 113  Line 115 
115          $file =~ s/\.wml$//;          $file =~ s/\.wml$//;
116          $wmlfiles{$lang} .= " " . $file;          $wmlfiles{$lang} .= " " . $file;
117          my $transcheck = Webwml::TransCheck->new("$dir/$file.wml");          my $transcheck = Webwml::TransCheck->new("$dir/$file.wml");
118            if ($transcheck->revision()) {
119                $transversion{"$lang/$file"} = $transcheck->revision();
120                $original{"$lang/$file"} ||= $transcheck->original();
121            }
122          if ($is_english) {          if ($is_english) {
             if ($original{$file}) {  
                 $version{"$lang/$file"} = $transcheck->revision();  
             } else {  
123                  $version{"$lang/$file"} = $cvs->revision($f);                  $version{"$lang/$file"} = $cvs->revision($f);
             }  
         } else {  
             if ($transcheck->revision()) {  
                 $version{"$lang/$file"} = $transcheck->revision();  
                 $original{$file} ||= $transcheck->original();  
124              } else {              } else {
125                  $version{"$lang/$file"} = $altcvs->revision($f);                  $version{"$lang/$file"} = $altcvs->revision($f);
126                  $original{$file} = $lang;              if (!$transcheck->revision()) {
127                    $original{"english/$file"} = $lang;
128                    $transversion{"english/$file"} = "1.1";
129              }              }
130          }          }
131          $version{"$lang/$file"} ||= "1.1";          $version{"$lang/$file"} ||= "1.1";
# Line 225  Line 225 
225                          $t_body .= sprintf "<a href=\"/%s.%s.html\">%s</a><br>\n", $file, $l, $file;                          $t_body .= sprintf "<a href=\"/%s.%s.html\">%s</a><br>\n", $file, $l, $file;
226                  }                  }
227                  $translated{$lang}++;                  $translated{$lang}++;
228                  $orig = $original{$file} || "english";                  $orig = $original{"$lang/$file"} || "english";
229                  # Outdated translations                  # Outdated translations
230                  $msg = check_translation ($version{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file");                  $msg = check_translation ($transversion{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file");
231                  if (length ($msg)) {                  if (length ($msg)) {
232                          $o_body .= "<tr>";                          $o_body .= "<tr>";
233                          if ($file eq "devel/wnpp/wnpp") {                          if ($file eq "devel/wnpp/wnpp") {
# Line 235  Line 235 
235                          } else {                          } else {
236                                  $o_body .= sprintf "<td><a href=\"/%s.%s.html\">%s</a></td>", $file, $l, $file;                                  $o_body .= sprintf "<td><a href=\"/%s.%s.html\">%s</a></td>", $file, $l, $file;
237                          }                          }
238                          $o_body .= sprintf "<td>%s</td>", $version{"$lang/$file"};                          $o_body .= sprintf "<td>%s</td>", $transversion{"$lang/$file"};
239                          $o_body .= sprintf "<td>%s</td>", $version{"$orig/$file"};                          $o_body .= sprintf "<td>%s</td>", $version{"$orig/$file"};
240                          $o_body .= sprintf "<td>%s</td>", $msg;                          $o_body .= sprintf "<td>%s</td>", $msg;
241                          $o_body .= sprintf "<td>&nbsp;&nbsp;<a href=\"http://cvs.debian.org/webwml/$orig/%s.wml.diff\?r1=%s\&r2=%s\&cvsroot=webwml\&diff_format=%s\">%s -> %s</a></td>", $file, $version{"$lang/$file"}, $version{"$orig/$file"}, $config{'diff_type'}, $version{"$lang/$file"}, $version{"$orig/$file"};                          $o_body .= sprintf "<td>&nbsp;&nbsp;<a href=\"http://cvs.debian.org/webwml/$orig/%s.wml.diff\?r1=%s\&r2=%s\&cvsroot=webwml\&diff_format=%s\">%s -> %s</a></td>", $file, $transversion{"$lang/$file"}, $version{"$orig/$file"}, $config{'diff_type'}, $transversion{"$lang/$file"}, $version{"$orig/$file"};
242                          $o_body .= "</tr>\n";                          $o_body .= "</tr>\n";
243                          $outdated{$lang}++;                          $outdated{$lang}++;
244                  }                  }
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
root@alioth.debian.org
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge
Show source