wip

diff --git a/git-contrib-graph b/git-contrib-graph
new file mode 100755 (executable)
index 0000000..605a7d6
--- /dev/null
+++ b/git-contrib-graph
@@ -0,0 +1,18 @@
+#!/bin/sh
+set -e
+: ${OSSTEST_GIT:=$HOME/work/testing.git/.git}
+
+git --git-dir=$OSSTEST_GIT ls-files |
+(cd $OSSTEST_GIT/.. && xargs -n1 \
+git blame -M -C --date=iso) |
+perl -wl -ne '
+        use strict;
+        our %ym;
+        m/\s(\d+-\d+)-\d+\s/ or die "$_ ?";
+        $ym{$1}++;
+        END {
+                foreach my $k (sort keys %ym) {
+                        print "\"$k\" $ym{$k}";
+                }
+        }
+'