--- log_accum.pl 2006-06-07 12:05:14.000000000 -0400 +++ ../log_accum.pl 2006-06-26 18:38:13.482306011 -0400 @@ -41,31 +41,10 @@ # You usually call log_accum from CVSROOT/loginfo, for example: # ALL /usr/local/bin/log_accum -T ccvs_1 --config /etc/log_accum.config --mail-to address@hidden --send-diff %p %{sVv} # ^prog1\(/\|$\) /usr/local/bin/log_accum -T ccvs_2 --config /etc/log_accum.config -m address@hidden %p %{sVv} -# -# Contributed by David Hampton -# Roy Fielding removed useless code and added log/mail of new files -# Ken Coar added special processing (i.e., no diffs) for binary files -# Changes by Sylvain Beucler (2006-05-08): -# - option -T added again to support multiple log_accum hooks -# - used 'use strict' and added compatibility for 'perl -T' switch -# (and found a ghost variable!) -# - documented some more -# - fixed a bug in processing -u in log_accum -# - cleaned-up the temporary filenames -# - fixed support for UseNewInfoFmtStrings -# - test if files are empty, so they are not reported as binary -# - -r now also accepts 'HEAD' as argument (clearer than '') -# - viewcvs URL's for binary files now use application/octet-stream -# content type; diff URLs are also more compatible with viewcvs -# (removed '.diff') -# - do not perform a diff if a file is added or removed -# Derek Price (2006-05-08): -# - Perform the diff if added or removed unless -E is specified. -# - Accept and process config files. -# - Send one diff per file when requested. -# - Tidy and perform some performance optimization. -# - Format output. -# - Use short cvsweb URLs. +# +# Brought to you by David Hampton , Roy Fielding, +# Ken Coar, Sylvain Beucler and Derek Price -- check +# ChangeLog for precise credits. use strict; @@ -1226,7 +1205,11 @@ die "$tmpdir does not exist" unless -d $tmpdir; opendir DIR, $tmpdir or die "Can't read $tmpdir: $!"; + # Doesn't work: push @files, grep /^#\Q$prefix\E\.$id.*\.$/, readdir DIR; + # What on earth? + # Insecure dependency in unlink while running with -T switch at /usr/local/bin/log_accum.pl line 1213. + #push @files, grep /^#\Q$prefix\E\.$id\..*$/, readdir DIR; closedir DIR; foreach (@files)