fixed for newer perl
[tridge/junkcode.git] / svnlog.awk
1 /^r[0-9]/ {
2         author = $3;
3         lines  = $13;
4         linecount[author] += lines;
5         commitcount[author]++;
6         totallines += lines;
7         totalcommits++;
8 }
9
10 END {
11         for (v in commitcount) {
12                 printf "%5d (%2.0f%%)  %5d (%2.0f%%) %s\n", 
13                         commitcount[v], (100*commitcount[v])/totalcommits,
14                         linecount[v], (100*linecount[v])/totallines,
15                         v;
16                         
17         }
18 }