diff options
author | Josip Rodin <joy> | 2001-07-23 02:57:15 +0000 |
---|---|---|
committer | Josip Rodin <joy> | 2001-07-23 02:57:15 +0000 |
commit | 4a8be0d363bd47eaa52fa25535a12b300fe6f80c (patch) | |
tree | 97402ec4b3aa8d8dff87172f66509e74990384f8 /check_trans.pl | |
parent | c4e69c202db06772672add52a267ae8b60e3f5b8 (diff) |
skipped printing some extra stuff (hope this doesn't break things)
CVS version numbers
check_trans.pl: 1.22 -> 1.23
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/check_trans.pl b/check_trans.pl index 6b558dc2e2e..585ae1c4667 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -125,7 +125,7 @@ unless (getopts('vgdqQm:s:p:ln:M')) exit; } -warn "Checking subtree $opt_s only\n" if $opt_v; +warn "Checking subtree $opt_s only\n" if (($opt_v) && ($opt_s)); # include only files matching $filename my $filename = $opt_p || '(\.wml$)|(\.html$)'; @@ -449,15 +449,22 @@ sub check_file { my $str; if (!$oldr) { $oldr = '1.1'; - $str = "Unknown status of $name (revision should be $revision)" + if ($name !~ /$langto\/international\/$langto/i) { + $str = "Unknown status of $name (revision should be $revision)"; + } else { + warn "Ignoring $name\n" if $opt_v; + } } elsif ($oldr >> $revision) { $str = "Broken revision number $oldr for $name, it should be $revision"; } else { $str = "NeedToUpdate $name from version $oldr to version $revision"; } $str .= " (maintainer: $translator)" if $translator; - $str .= "\n"; - print $str unless $opt_Q; + if ($str) { + $str .= "\n"; + print $str unless ($opt_Q); + } + $oldname = $name; $oldname =~ s/^$to/$from/; |