diff options
author | French Language Team <french> | 2001-09-24 18:08:39 +0000 |
---|---|---|
committer | French Language Team <french> | 2001-09-24 18:08:39 +0000 |
commit | fe7ddee7afaa5a3f16a0fa552e92f9bbec2e9888 (patch) | |
tree | 7ef87284885b4b90f7b1a9e6c83cecfd8fec9e4d /check_trans.pl | |
parent | 227906d03a04578296a5b477ad6590dbcbea8ed0 (diff) |
Ooops, -t was already used, and I forgot to stop the debuging output. Sorry...
CVS version numbers
check_trans.pl: 1.41 -> 1.42
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/check_trans.pl b/check_trans.pl index 0ef93feca57..91e79623065 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -31,7 +31,7 @@ # -C <dir> go to <dir> directory before running this script # -d output CVS diffs # -l output CVS log messages -# -t output translated diffs +# -T output translated diffs # -p <pattern> include only files matching <pattern>, # default is *.html|*.wml # -s <subtree> check only that subtree @@ -97,13 +97,13 @@ my %translators;# the real hash my $maintainer = "mquinson\@ens-lyon.fr"; # the default e-mail at which to bitch :-) # options (note: with perl 5.6, this could change to our()) -use vars qw($opt_C $opt_M $opt_Q $opt_d $opt_g $opt_l $opt_m $opt_n $opt_p $opt_q $opt_s $opt_t $opt_v); +use vars qw($opt_C $opt_M $opt_Q $opt_d $opt_g $opt_l $opt_m $opt_n $opt_p $opt_q $opt_s $opt_t $opt_T $opt_v); $opt_n = 5; # an invalid default $opt_s = ''; $opt_C = '.'; $opt_t = 'text'; -unless (getopts('vgdqQC:m:s:t:p:ln:M')) +unless (getopts('vgdqQC:m:s:Tt:p:ln:M')) { open SELF, "<$0" or die "Unable to display help: $!\n"; HELP: while (<SELF>) @@ -380,7 +380,7 @@ sub add_sub_part { my $txt = shift; $name =~ s,<.*?>,,; $name =~ s,^ *(.*?) *$,$1,; - print "add_sub_part($name)(part=$part)($subpart):$txt"; +# print "add_sub_part($name)(part=$part)($subpart):$txt" if $opt_v; STDOUT->flush; if (verify_send($name,$part)) { # print "YES\n"; @@ -395,13 +395,12 @@ sub get_diff_txt { my $cmd; # Get old revision file - $cmd = "cvs -z3 update -r $oldr -p $oldname"; + $cmd = "cvs -z3 update -r $oldr -p $oldname 2>/dev/null"; # print "!get_diff_txt: cvs -z3 update -r ".$oldr." -p ".$oldname."\n"; my @old_rev_file_lines = qx($cmd); # Get translation file open (FILE,"$name") || die ("Can't open `$name' for read"); -# warn "get_diff_txt: cat $name\n"; my @translation_file_lines; while (<FILE>) { $translation_file_lines[scalar @translation_file_lines] = $_; @@ -409,15 +408,14 @@ sub get_diff_txt { close FILE || die ("Can't close $name after reading"); # Get diff lines - $cmd = "cvs -z3 diff -u -r$oldr -r $revision $oldname"; - warn "!get_diff_txt: $cmd: cvs -z3 diff -u -r$oldr -r $revision $oldname\n"; + $cmd = "cvs -z3 diff -u -r$oldr -r $revision $oldname 2>/dev/null"; +# print "get_diff_txt: $cmd: cvs -z3 diff -u -r$oldr -r $revision $oldname\n"; my @diff_lines = qx($cmd); my $txt = Local::WmlDiffTrans::find_trans_parts(\@old_rev_file_lines, \@translation_file_lines, \@diff_lines); - warn "get_diff_txt: $txt\n"; return $txt; } @@ -541,7 +539,7 @@ sub check_file { STDOUT->flush; } - if ($opt_t) { + if ($opt_T) { print get_diff_txt("$oldr", "$revision", "$oldname", "$name")."\n"; } } |