From 3e2cd70694842c3fbc8aa61d13942ac4ddf1d717 Mon Sep 17 00:00:00 2001
From: Changwoo Ryu <cwryu@debian.org>
Date: Mon, 23 Mar 2020 14:07:10 +0900
Subject: Use mindelta and maxdelta in the translation statistics

Use per-page-specified "mindelta=" and "maxdelta=" values for checking updates
in the translation statistics.
---
 stattrans.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'stattrans.pl')

diff --git a/stattrans.pl b/stattrans.pl
index 3ef824214c4..917aeabb2a6 100755
--- a/stattrans.pl
+++ b/stattrans.pl
@@ -89,8 +89,8 @@ foreach (@{$transignore->global()}) {
 	delete $rev_info{"english/$_"};
 }
 
-$max_versions = 5;
-$min_versions = 1;
+$max_versions_default = 5;
+$min_versions_default = 1;
 
 $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;
 
@@ -99,6 +99,8 @@ my %transversion;
 my %version;
 my %files;
 my %sizes;
+my %min_versions;
+my %max_versions;
 
 print "Loading the coordination status databases\n" if ($config{verbose});
 my %status_db = ();
@@ -177,6 +179,8 @@ sub getwmlfiles
 	if ($transcheck->revision()) {
 	    $transversion{"$lang/$file"} = $transcheck->revision();
 	    $original{"$lang/$file"} ||= $transcheck->original();
+	    $min_versions{"$lang/$file"} = $transcheck->mindelta() || $min_versions_default;
+	    $max_versions{"$lang/$file"} = $transcheck->maxdelta() || $max_versions_default;
 	}
 	if ($is_english) {
 	    $version{"$lang/$file"} = $rev_info{"$file"}{'cmt_rev'};
@@ -253,7 +257,7 @@ sub update_file_metadata
 
 sub check_translation
 {
-    my ($translation, $version, $file, $orig_file) = @_;
+    my ($translation, $version, $file, $orig_file, $min_versions, $max_versions) = @_;
 
     my ( @version_numbers, $major_number, $last_number );
 #    print "  check_translation: looking at translation $translation, english version $version, file $file, orig_file $orig_file\n";
@@ -476,7 +480,7 @@ foreach $lang (@search_in) {
 		$translated_s{$lang} += $sizes{$file};
                 $orig = $original{"$lang/$file"} || "english";
                 # Outdated translations
-                $msg = check_translation ($transversion{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file", "$orig/$file");
+                $msg = check_translation ($transversion{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file", "$orig/$file", $min_versions{"$lang/$file"}, $max_versions{"$lang/$file"});
                 if (length ($msg) or (($todo ne '<td></td><td></td><td></td>') and ($transversion{"$lang/$file"} ne $version{"$orig/$file"}))) {
                     $o_body .= "<tr>";
                     if (($file !~ /\.wml$/)
-- 
cgit v1.2.3