wip

diff --git a/git-contrib-graph b/git-contrib-graph
index 605a7d6c343947c42030b5b508280c0e9fe025b7..414a80d782ab6a8b9dcbb55a38fea7f28caf3a7a 100755 (executable)
--- a/git-contrib-graph
+++ b/git-contrib-graph
@@ -3,8 +3,13 @@ set -e
 : ${OSSTEST_GIT:=$HOME/work/testing.git/.git}
 
 git --git-dir=$OSSTEST_GIT ls-files |
+egrep -v 'AGPLv3|COPYING' |
 (cd $OSSTEST_GIT/.. && xargs -n1 \
 git blame -M -C --date=iso) |
+perl -ne '
+        print unless m/^\w+\s[^()]*\([^()]+\)\s#/;
+' |
+tee contrib-graph.blame |
 perl -wl -ne '
         use strict;
         our %ym;
@@ -12,7 +17,14 @@ perl -wl -ne '
         $ym{$1}++;
         END {
                 foreach my $k (sort keys %ym) {
-                        print "\"$k\" $ym{$k}";
+                        print "$k $ym{$k}";
                 }
         }
+' |
+tee contrib-graph.symbolic |
+perl -wl -ne '
+        s/^(\d+)-(\d+) // or die;
+        use POSIX;
+        my $t = mktime(0,0,0, 14,$2,$1-1900);
+        print $t, " ", $_;
 '